VB批量修改SQL字段

如果这张表中还有其它字段 相对于你多选的记录 有共同特性，用SQL语句就可以，

Update ..... Where 有共性的字段=共性值

否者，只能一条一条改

数据类型就是上面的样子，也就是一对一对出现，中间用空格分开，每行都是这样，就简单。而且1234总是在前面。

假如数据结构不是这样的话，方法也会变化的。

请明示　

张志晨

Dim txtName As String

Function getFileName(dlg As Object) As String

'添加　commondialog1

'添加　file1，　可设为不可见　也就是只当作数组

On Error GoTo err

With dlg

.DialogTitle = "请指定文件夹"

.Filter = "文本文件(*.txt)|*.txt"

.ShowOpen

getFileName = .FileName

End With

Exit Function

err:

MsgBox "您没有选择文件或者文件夹中没有txt文件"

End Function

'写

Sub wirteTxt(namePath As String, txt As String)

Open namePath For Output As #1

Print #1, txt

Close #1

End Sub

'读

Function lineRead(namePath As String) As String

'多行数据

Dim strLine As String

Dim strBox As String

Open namePath For Input As #1

Do Until EOF(1)

Line Input #1, strLine

strBox = strBox + strLine + vbCrLf

Loop

Text1(0).Text = strBox

Text1(1).Text = Replace(strBox, "1234", "5678")

Close #1

End Function

Private Sub Command1_Click()

txtName = getFileName(CommonDialog1)

lineRead txtName

End Sub

Private Sub File1_Click() '这只是修改一个文件，你可以用循环修改文件夹下所有的txt文件

lineRead File1.List(ListIndex)

wirteTxt txtName, Text1(1).Text

End Sub

一、连接数据库之后，还要打开需要进行修改的数据表。建立相应的SQL语句

strSql="select

*

from

table

"(也可加上条件判断where语句)

rs.Open

strSql,con,adOpenDynamic,adLockOptimistic

rs.Fields("这里写上你要修改的字段名称")＝修改后的信息

………………类推

rs.Update

二、可直接使用Update

SQL语句进行修改

strSql="Update

table(表名）

set

要修改的字段名称1=修改后的信息1,要修改的字段名称2=修改后的信息2,……等等"

con.Execute

即可，试试吧。

---