问题是这样的,查询的时候将数据库中每个字段显示出来,然后想修改某个字段的时候就直接修改然后按保存按钮,但字段是字母和数字的都可以成功的修改保存,字段是汉字的就会报错!例如:原来“名称”字段里是“王二”,当改成“王小二”时就会报错:列名“王小二”无效。。代码如下:
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
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
解决方案 »
- VB界面不能输入汉字
- 怎样运用DIRECT X把自身窗体或文字 或图片 画到屏幕最上层,而不会给游戏挡住,请赐教
- VB 运行以下代码总是出现内存错误
- 信息:大名鼎鼎的Lavolpe (Keith)将要在Planet-Source-Code上发布Unicode Textbox源码
- 求VB安装程序!
- 怎么样编辑--*.dll,在先求助
- datareport的打印问题?急!
- 如何做一个计时的控件?
- 用VB编程时,如何能使在文本框中输入的数据,达到小数点后两位时自动,跳到下一个文本框!
- 如何将excel的计算页面用VB移植到.exe程序中?
- API强制关闭IE窗口内的WEBBROWSER控件
- VB6怎样捕捉这样的错误并处理?
update test set [名称]=" + Trim(Text4.Text)
试试
update test set [名称]='" & Trim(Text4.Text) & "'"
试试