Dim Conn As New ADODB.Connection
Dim SqlStrBc As String
Dim SqlStrUpdate As String
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TBCS08D.MDB;Jet OLEDB:DataBase password=wn8815732;"
’连接数据库，数据库名是TBCS08D.MDB，密码是wn8815732
Conn.Open ‘打开数据库
SqlStrBc = "Insert Into SaveData Values ('" & a1 & "','" & a2 & "','" & a3 & "')"
’插入新记录，a1,a2,a3就是你读出来要存的数据
Conn.Execute (SqlStrBc) ’存盘
Conn.Close ’关闭数据库
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024