怎样用代码将记录加到其他数据库中？

jicheng

打开的数据库是a.mdb,怎样用代码将窗体中的数据保存到b.mdb表中？  不想用链接表，直接用代码追加！

老鬼

用TRANSDATABASE试试

djhong

我最近在用ado.不过初学.已经成功可以追加记录到指定的b.mdb.

jicheng

哪具体怎么操作呀？  

像追加到本地用： DoCmd.RunSQL "INSERT INTO 号码 ( [票据号码],[发票]) values(" & thm & ",'" & Me.tlx & "')"

追加到其他数据表中怎样写代码呀？

andymark

Dim Server As String
    Dim Rs As New ADODB.Recordset
    Server = CurrentProject.Path & "\data\B.mdb"    '定义数据库路径

    Dim Conn As New ADODB.Connection

    Rs.ActiveConnection = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ""

    Set Conn = Rs.ActiveConnection

    Rs.Open "select * from test", Conn, adOpenDynamic, adLockOptimistic
    Rs.AddNew
    Rs.Fields(0) = "a"
    ......
    Rs.Update
    Set Rs = Nothing

djhong

追加到本地文件比较简单.可以参照ado的连接方式.可以参照如下:

http://www.office-cn.net/forum.php?mod=viewthread&tid=45252&replyID=29305&skin=1

jicheng

试了不行，弄了个文件上来，帮忙改改吧！

在D盘下打开a文件，向b文件加记录

[此贴子已经被作者于2006-8-22 20:11:49编辑过]

andymark

你的数据库路径定义错误

Dim Server As String
    Dim Rs As New ADODB.Recordset
    Server = CurrentProject.Path & "\b.mdb"    '定义数据库路径


    Dim Conn As New ADODB.Connection

    Rs.ActiveConnection = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ""

    Set Conn = Rs.ActiveConnection

    Rs.Open "select * from 表1", Conn, adOpenDynamic, adLockOptimistic
    Rs.AddNew
    Rs.Fields("编号") = Me.Text3
     Rs.Fields("名称") = Me.Text0
    Rs.Update
    Set Rs = Nothing

jicheng

谢谢，这个数据库可以了，

不过还想问一下，

如果追加的数据库b.mdb有设置密码的怎么写代码？（数据库打开的时密码，没能安全机制）

有密码的话追加时他出错，出现对话框：“密码无效”

[此贴子已经被作者于2006-8-22 22:06:36编辑过]

andymark

    Dim Server As String
    Dim Password As String

    Dim Rs As New ADODB.Recordset
    Server = CurrentProject.Path & "\b.mdb"    '定义数据库路径

    Password = "123"
    Dim Conn As New ADODB.Connection

    Rs.ActiveConnection = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Trim(Server) + ";Jet OLEDBatabase Password=" + Trim(Password) + ""



    Set Conn = Rs.ActiveConnection

     ........