vb 中怎样将采集的数据保存到access中
1个回答
展开全部
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 ’关闭数据库
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 ’关闭数据库
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
