两个Acces档案间的ADODB读写问题

小小白菜　发表于：2014-06-04 15:34:38 　

老师,向您请教一个问题,我有两个ACC档,一个是操作前台,一个是后台数据库,我用如下方法向后台写入数据时出错,请帮我看一下,谢谢
Dim Conn As New ADODB.Connection
Dim Recordset As New ADODB.Recordset
Set Conn = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =

D:\测试\Data.mdb"
Recordset.AddNew
Recordset("料号").Value = "LLHH"
Recordset.Update
Conn.Close

Top

zhaoyoulong 发表于：2014-06-04 15:57:45

Recordset.open ...........?

Top

夏晓卫发表于：2014-06-04 16:05:23

不啊.提示文件已关闭.我上传的有附件,再帮我看一下,谢谢

Top

zhaoyoulong 发表于：2014-06-04 16:38:13

点击下载此附件

Dim MyRecordset As New ADODB.Recordset

Set MyRecordset = CreateObject("ADODB.Recordset")
MyRecordset.Open "IQC来料表明细", "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & CurrentProject.Path & "\Data.mdb", adOpenKeyset, adLockOptimistic
MyRecordset.AddNew
MyRecordset("料号").Value = "LLHH"
MyRecordset("批号").Value = Format(Now(), "yyyymmddhhmmss")
MyRecordset.Update
MyRecordset.Close
Set MyRecordset = Nothing

Top

夏晓卫发表于：2014-06-05 09:47:31

您好,再请问一下,如果数据库中的料号有LLHH,LLH1,LLH2,LLH3等等,假如我要更新指定的一批LLH2为LL,是否可用update进行

Top

zhaoyoulong 发表于：2014-06-05 11:33:28

可以，但不是用 MyRecordset.AddNew 了

这种情况直接用更新查询就可以了

Top

夏晓卫发表于：2014-06-05 12:25:37

老师,可否在原档上指点一下,我只记得函数,写出来老报错.

麻烦做一个示例,谢谢老师.