vb中的数据库插入问题！！！！求救，着急等待中！！！

Question

我原来也问过一次，按回复中的方法做了一下，但是有一个问题，无论那种方法，在运行时都有一个错误，说是“找不到可安装的ISAM”。ISAM是什么东西啊？为什么会这样啊？
具体帖子敬请看http://community.csdn.net/Expert/topic/3076/3076008.xml?temp=5.567569E-02
在这里先谢谢给我帮助的朋友，希望你们帮忙把这个问题解决一下！！！！
还有就是我已经加了microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件

Answer 1

Option Explicit
Dim cn   As New ADODB.Connection
Dim rs   As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim t As String
Dim CNum As String
Dim CUser As String
Dim CMes As String
Dim CYuYue As String
Dim CTel As String
t = "insert into Customer(CNum,CUser,CMes,CYuYue,CTel)  values (" & Text6.Text & ",'" & Text1.Text & "'," & Text2.Text & "," & Text7.Text & "," & Text5.Text & ") "
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "data sourse=D:\data\db2.mdb"
cn.Open
rs.AddNew
CNum = Text6.Text
CUser = Text1.Text
CMes = Text2.Text
CYuYue = Text7.Text
CTel = Text5.Text
rs.Update
MsgBox "access", vbOKOnly, "access"
End Sub

Answer 2

http://www.china-askpro.com/msg2/qa56.shtml
http://www.china-askpro.com/msg1/qa26.shtml
上这两篇贴子里看看!!

Answer 3

改成这样咯
Option Explicit
Dim cn   As New ADODB.Connection
Dim rs   As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim t As String
Dim CNum As String
Dim CUser As String
Dim CMes As String
Dim CYuYue As String
Dim CTel As String
t = "insert into Customer(CNum,CUser,CMes,CYuYue,CTel)  values (" & Text6.Text & ",'" & Text1.Text & "'," & Text2.Text & "," & Text7.Text & "," & Text5.Text & ") "
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "data sourse=D:\data\db2.mdb"
cn.Open
'rs.AddNew
'CNum = Text6.Text
'CUser = Text1.Text
'CMes = Text2.Text
'CYuYue = Text7.Text
'CTel = Text5.Text
'rs.Update
'MsgBox "access", vbOKOnly, "access"
cn.Execute t
End Sub
不知道你的sql语句是否正确，没有测试过

Answer 4

测试通过
CNum,CUser,CMes,CYuYue,CTel是表Customer的字段
Option Explicit
Dim cn   As New ADODB.Connection
Dim rs   As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim t As String
Dim CNum As String
Dim CUser As String
Dim CMes As String
Dim CYuYue As String
Dim CTel As String
t = "insert into Customer(CNum,CUser,CMes,CYuYue,CTel)  values ('" & Text6.Text & "','" & Text1.Text & "','" & Text2.Text & "','" & Text7.Text & "','" & Text5.Text & "') "'cn.Provider = "Microsoft.Jet.OLEDB.4.0"
'cn.ConnectionString = "data sourse=D:\data\db2.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\data\db2.mdb ;Persist Security Info=False"
'cn.Open
'rs.AddNew
'CNum = Text6.Text
'CUser = Text1.Text
'CMes = Text2.Text
'CYuYue = Text7.Text
'CTel = Text5.Text
'rs.Update
'MsgBox "access", vbOKOnly, "access"
cn.Execute t
End Sub