问题是这样的,查询的时候将数据库中每个字段显示出来,然后想修改某个字段的时候就直接修改然后按保存按钮,但字段是字母和数字的都可以成功的修改保存,字段是汉字的就会报错!例如:原来“名称”字段里是“王二”,当改成“王小二”时就会报错:列名“王小二”无效。。代码如下:
Private Sub Command1_Click()Dim conn As New ADODB.Connection
Dim rst  As ADODB.Recordsetconn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=PC-201009081452"
conn.Open
SQL = "select * from test where CI= "
SQL = SQL & " '" & TextCI.Text & " ' "Set rst = conn.Execute(SQL)Do Until rst.EOFText4.Text = rst("名称") & ""
...
...rst.MoveNext
LoopEnd SubPrivate Sub Command4_Click()Dim conn3 As New ADODB.Connection
Dim cmd As New ADODB.Commandconn3.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=PC-201009081452"
conn3.OpenSQL6 = "update test set 名称=" + Trim(Text4.Text)
...
...
cmd.ActiveConnection = conn3
cmd.CommandType = adCmdTextcmd.CommandText = SQL6
cmd.Execute
...
...
MsgBox "保存成功!"End Sub