好久没搞了。这个问题只有像我才遇到过。因为我们的前台库和后台库不是通过“拆分”的方法将原来的ACCESS库一分为二的,其连接是通过:
Dim MYDATA As String
MYDATA = "Provider = 'MICROSOFT.JET.OLEDB.4.0';DATA SOURCE='\\服务器名\文件名\后台库名.mdb';USER ID='ADMIN';PASSWORD='';"
Set CNN = New ADODB.Connection
CNN.Open MYDATA
当然在同一机上就不必需服务器名了。
只有先运行该程序才能将两个库连接起来(不像拆分后就能自动连接直接使用)。前台调用后台数据的方法是应用“复制”手段,让我们应用ADO吧:
Set Rs1 = New ADODB.Recordset
MYSQL = "Select * From 后台表名"
Rs1.Open MYSQL, CNN, adOpenKeyset, adLockOptimistic
Set Rs11 = New ADODB.Recordset
MYSQL = "Select * From 前台表名"
Rs11.Open MYSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
然后可将后台一表中条件记录逐一复制到前台一表中
N = Rs1.Fields.Count
Rs1.MoveFirst
For I = 0 To Rs1.RecordCount - 1
........
请指正!