查人人中国名人网全球杰出华人大奖:VB数据库连接问题，这样写对吗。还用定义全局变量吗
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 13:21:49
这样写提示至少一个参数未指定值，是为什么。还用定义全局变量吗，如果不对请帮改正
Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim zrst As ADODB.Recordset
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\sousousou\data\data.mdb;Persist Security Info=False"
con.Open
con.Execute "insert into sousousou(titledata,httpdata) VALUES(ddd,aaa)"
End Sub
Private Sub Command1_Click()
Dim con As ADODB.Connection
Dim zrst As ADODB.Recordset
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\sousousou\data\data.mdb;Persist Security Info=False"
con.Open
con.Execute "insert into sousousou(titledata,httpdata) VALUES(ddd,aaa)"
End Sub
Private Sub Command1_Click()
Dim con As new ADODB.Connection
Dim zrst As ADODB.Recordset
dim constring as string
constring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\sousousou\data\data.mdb;Persist Security Info=False"
con.Open constring
con.Execute "insert into sousousou(titledata,httpdata) VALUES(ddd,aaa)"
End Sub
还有如果你的titledata和httpdata是字符型应该这样写：
con.Execute "insert into sousousou(titledata,httpdata) VALUES(‘ddd’,‘aaa’)"
con.Execute "insert into sousousou(titledata,httpdata) VALUES('ddd','aaa')"
zhangsilong说的对.