vb中如何将一个Access表的选定记录写入到另一Access表 思路？

Question

问一下
用vb编写一个程序   用查询命令按钮将一个Access表的选定记录，写入到另一个Access表中，并在dataGrid显示出来哪位大仙 能不能指点一二  说下思路就可以 有代码更好

Answer 1

把ACCESS不同的数据表合并

Answer 2

我的意思是 对前一个表 按条件要求 进行查询后，写入到一个新的表内，并将新表的所有记录显示在datagrid 上？

Answer 3

用SELECT INTO语句，看这个例子，改编自微软Jet SQL帮助：Sub SelectIntoX()
    Dim dbs As Database    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径.
    Set dbs = OpenDatabase("Northwind.mdb")
    
    ' 对运费超过 $100 的订单,
    ' 选择员工表中的所有记录,
    ' 并且复制到称作员工备份的新表中.
    dbs.Execute "SELECT Employees.* INTO " _
        & "[NewTable] FROM Employees;"            ' 删除 NewTable 因为这是一个演示.
    dbs.Execute "DROP TABLE [NewTable];"  
    dbs.Close
End Sub

Answer 4

3楼代码是DAO应用,不支持高版本ACCESS数据库.
Option Explicit
    Dim sql As StringPrivate Sub Command1_Click() '生成新表
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    sql = "select *  into [newtable] from jishijilu"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
End SubPrivate Sub Command2_Click() '删除新表
    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    sql = "DROP TABLE  [newtable];" ' from jishijilu"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
End SubPrivate Sub Command3_Click() '查询新表
    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    sql = "select * from [newtable]"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load() '原表显示
    Dim cn As New ADODB.Connection
    sql = "select * from jishijilu "
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

Answer 5

楼上的 很好 很强大 三楼的不适合  我的ADO应用 Access 数据库