Question

access做的插入查询,vb怎么使用才能运行它

Answer 1

建议方法是通过在VB中写代码，通过连接ACCESS，操作ACCESS拆迁相应的插入语句，因为你没有说你的具体要求是什么，那就把我工作中的两个例子给你吧：

1、VB连接2003

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open"Provider=Microsoft.Jet.Oledb.4.0;data Source=" &ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] where 区域='"& qx & "'"
 
'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn
 
  '复制字段名
 
    For i = 1 Tors.Fields.Count
 
        Cells(1, i) = rs.Fields(i - 1).Name
 
    Next i
 
   '复制全部数据
 
   Range("A2").CopyFromRecordset rs
 
    rs.Close
 
    cnn.Close
 
 
End Sub
 
2、连接2007查寻
Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;dataSource=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站] where 区域='"& qx & "'"
 
'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn
 
[a1].CopyFromRecordset rs
 
EndSub

注：如果是2003板也可以用Microsoft.Ace.OleDB.12.0的驱动，但是2007的不能用Microsoft.Jet.Oledb.4.0

3、远程连接

把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享
然后写成这样：\\服务器名或IP\你共享的文件夹的名字（其它路径不写的）\数据库名

这里说明了方法的。
 
http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html

Sub 远程()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open"Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb "
sql = "select * from [宏站] where 区域='"& qx & "'"
'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn
 
[a1].CopyFromRecordset rs
 
EndSub