上实剑桥外国语学校:VB数据库连接操作问题

来源:百度文库 编辑:神马品牌网 时间:2024/05/07 01:54:07
我是这样写的,一运行,就提示至少一个参数没有被指定值,而且values中的str,end都为字符串变量,如何写,带单引号还是双引号,如果改成单引号,就只能插入str,end本身了,里面的字符串写不进去了。
rs.Open "insert into table(tedata,pdata)values(str,end)", conn
以下是全部源码,为何数据库插入操作中不能获得字符串中的数据呢,而只把字符串本身当作数据写入数据库。
Option Explicit
Dim WithEvents cnn As ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Dim scnn As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
scnn = "provider=microsoft.jet.oledb.4.0;data source=d:\vb98\data\data.mdb"
cnn.Open scnn
End Sub

Private Sub comm1_Click()
strtemp="VB编程"
strtext="希望出版社"
rs.Open " INSERT INTO mytable" & "(edata,pdata) VALUES " & "('strtemp', 'strtext')", cnn
End Sub

变量使用有问题
rs.Open "insert into table(tedata,pdata)values(" & str & "," & end & " )", conn

变量需要用连接符

确实缺少参数
dim sql as String
sql = "insert...."
rs.Open sql , 1,3, conn

这样就可以了