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

jicheng

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

jicheng

Rs.Open "select * from 表1 where 编号='" & Me.Text91 & " '", Conn, adOpenDynamic, adLockOptimistic
    'Rs.AddNew   '这行就不要了是吗？
    Rs.Fields("编号") = Me.Text89
    Rs.Fields("名称") = Me.Text91
   Rs.Update   
  Set Rs = Nothing
''这样对吗？

还有增加用 Rs.addnew ，
删除用什么呢？

andymark

以下是引用jicheng在2006-8-23 14:48:00的发言：
增加是：
Rs.AddNew
    Rs.Fields("编号") = Me.Text3
     Rs.Fields("名称") = Me.Text0
    Rs.Update
    Set Rs = Nothing
那修改怎么写？

      打开记录集前应要把要修改记录的筛选出来，再Update

jicheng

增加是：
Rs.AddNew
    Rs.Fields("编号") = Me.Text3
     Rs.Fields("名称") = Me.Text0
    Rs.Update
    Set Rs = Nothing
那修改怎么写？

好学

我知道VB是用这方法的,也想过用VB来做,因VB可以编译成EXE且不用ACCESS(它自带),但VB没有ACCESS方便,都要写代码.[em01][em01]

andymark

以下是引用好学在2006-8-22 22:52:00的发言：
请问这样追加有什么好处?是否避免连接不上后台啊?[em06][em06][em06]

      其中之一可以不需要更改什么代码,很容易升迁到其他数据库，也可以移植到VB去

好学

请问这样追加有什么好处?是否避免连接不上后台啊?[em06][em06][em06]

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

     ........

   

jicheng

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

不过还想问一下，

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

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

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

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