Question

关于VB用SQL语句写入Access数据库

我想问下
我做的子程序
Sub update3(str1, str2, str3, str4, str5, str6)
Set Rs = New Recordset
sql = "update line set Region_distance='" & str1 & "',Region_yxtime='" & str2 & "',Region_qttime='" & str3 & "',Region_jgtime='" & str4 & "',Region_jgtime3='" & str5 & "',Region_hctime='" & str6 & "' where Line_Name='" & oldname & "'"
Rs.Open sql, Conn, 1, 3
MsgBox "修改成功！", 64, "提示"
Set Rs = Nothing
End Sub
网数据库里添加数据
然后Call update3(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text), Val(Text5.Text), Val(Text6.Text))
为什么没反应啊 数据库信息不会变 是哪里出错啦啊？万分着急

Answer 1

第一，确认这个拼出来的sql语句能在数据库里正确执行
第二。不要用rs.open执行语句，而是使用connection.executesql
第三，使用断点，跟随进去，看看出了什么问题。

Answer 2

1、oldname 参数没有值
2、update不能用open

Answer 3

你的表格可以修改吗