
vb引用ADO对象如何对数据库里的数据修改
这是编辑用户信息的确认编辑按钮PrivateSubCommand1_Click()DimupuserAsString'用来存储修改SQL的字符串DimjiluAsInte...
这是编辑用户信息的确认编辑按钮
Private Sub Command1_Click()
Dim upuser As String '用来存储修改SQL的字符串
Dim jilu As Integer '用来存储在datagrid里选择的编号的变量
jilu = Val(Text1.Text) '通过text1.text得到数据编号来修改数据库
MsgBox jilu '测试是否成功得到编号
upuser = "update 记录 set 姓名='" & (Text2.Text) & "' where 编号='jilu'" 'text2.text输入姓名用来修改
cnn.Execute upuser
MsgBox "成功"
End Sub
请前辈指点一下,这样写总是出现错误已经可以得到julu这个变量里的数字,可是执行到cnn.Execute upuser 会有错误提示标准表达式中数据类型不匹配!!
我的SQL语句那有错误~?
是为了通过判断编号用Text2.Text对数据的姓名进行修改 展开
Private Sub Command1_Click()
Dim upuser As String '用来存储修改SQL的字符串
Dim jilu As Integer '用来存储在datagrid里选择的编号的变量
jilu = Val(Text1.Text) '通过text1.text得到数据编号来修改数据库
MsgBox jilu '测试是否成功得到编号
upuser = "update 记录 set 姓名='" & (Text2.Text) & "' where 编号='jilu'" 'text2.text输入姓名用来修改
cnn.Execute upuser
MsgBox "成功"
End Sub
请前辈指点一下,这样写总是出现错误已经可以得到julu这个变量里的数字,可是执行到cnn.Execute upuser 会有错误提示标准表达式中数据类型不匹配!!
我的SQL语句那有错误~?
是为了通过判断编号用Text2.Text对数据的姓名进行修改 展开
展开全部
你的编号字段是什么类型的?
要是数字型的话你就得改下你的sql语句了
upuser = "update 记录 set 姓名='" & (Text2.Text) & "' where 编号="&jilu&""
你看看你以前的sql语句
编号='jilu'
这个就查询 编号=jilu的这条数据,而不是你提交的变量。
要是变量的话应该用个"&变量名&"格式
要是数字型的话你就得改下你的sql语句了
upuser = "update 记录 set 姓名='" & (Text2.Text) & "' where 编号="&jilu&""
你看看你以前的sql语句
编号='jilu'
这个就查询 编号=jilu的这条数据,而不是你提交的变量。
要是变量的话应该用个"&变量名&"格式
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询