查人人中国名人网脱肛的复位手法:VB中字符串写入数据库的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:59:29
以下是全部源码，为何数据库插入操作中不能获得字符串中的数据呢，而只把字符串本身当作数据写入数据库。
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
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
你的单引号和双引号用反了。你可以连接直接执行：cnn.execute " INSERT INTO mytable" & "(edata,pdata) VALUES "('" & strtemp & "', '" & strtext & "')"
如果你看不懂这里的单引号、双引号是如何组织的，也可以通过另一种方法添加数据，如下所示。
rs.open "selcet edata,pdata from mytable",cnn,1,3
rs.addnew
rs.fields(0)=strtemp
rs.fields(1)=strtext
rs.update
这样也可以。是不是明白些了？呵呵，祝你好运。
rs.Open " INSERT INTO mytable" & "(edata,pdata) VALUES "('" & strtemp & "', '" & strtext & "')", cnn,3,1,1