如何在不建立外部链接表的情况下，如何把另一数据库的查询结果赋值给窗体的子窗体

dulton

我有两个数据库，一个作为前台进行数据录入，保存和查询，一个作为后台数据。
为了实现多用户同时能进行连接操作，所以我准备用ADO 来连接数据库，进行数据的添加，更新等操作。

现在我想实现下面的功能，就是把 "DATA” 据库里的查询结果“订单汇总”，根据 "前台" 数据库 窗体 “订单查询”里的 店铺 和 产品 两个文本控件的条件删选后得到的记录集 Recordset， 赋值给订单查询的子窗体 --->“订单汇总子窗体“

望高手不吝指教！
谢谢！

dulton

谢谢 roych

dulton

谢谢roych！

最近我在做一个下数据库，我们是个小的服务型公司，做服务的工程师会在各个客户处工作。

我在公司设了服务器，通过花生壳的地址绑定，在外的员工可以通过VPN拨号连上公共盘。
现在要求在外的员工要及时把数据维护到服务器上的数据库，所以我准备在每个员工放一个前台数据库，后台数据放在服务器上。

考虑到ADSL上网的网速情况，如果都通过建立连接表，每次打开占用很多内存和带宽，感觉很慢。

所以现在准备，用ADO连接，获得记录集后，可以马上关闭链接。

或者你有什么好的推荐。

dulton

谢谢!
我会好好理解一下代码。

鱼儿游游

帮你写了以下代码：不用链接表读取ADO记录集，并在子窗体显示取回的ADO记录集，供楼主参考。

1. Private Sub cmd查询_Click()
   
2. On Error GoTo Err_Handler
   
3.    
   
4.     Dim rst     As Object
   
5.     Dim strShop As String
   
6.     Dim strProd As String
   
7.     Dim strSQL  As String
   
8.    
   
9.     '关闭屏幕刷新
   
10.     Application.Echo False
    
11.     '设置鼠标指针为沙漏形状
    
12.     DoCmd.Hourglass True
    
13.    
    
14.     '定义子窗体的数据源的SQL语句
    
15.     Me.t店铺 = Trim(Nz(Me.t店铺, ""))
    
16.     Me.t产品 = Trim(Nz(Me.t产品, ""))
    
17.     strShop = IIf(Len(Me.t店铺) = 0, "%", "%" & Me.t店铺 & "%")
    
18.     strProd = IIf(Len(Me.t产品) = 0, "%", "%" & Me.t产品 & "%")
    
19.     strSQL = "SELECT 订单明细.店铺名称, 订单明细.产品, Sum(订单明细.规格1) as 规格1," _
    
20.              & " Sum(订单明细.规格2) As 规格2, Sum(订单明细.规格3) As 规格3 FROM 订单明细" _
    
21.              & " GROUP BY 订单明细.店铺名称, 订单明细.产品" _
    
22.              & " HAVING 订单明细.店铺名称 Like '" & strShop & "' And 订单明细.产品 Like '" & strProd & "'"
    
23.    
    
24.     '设置子窗体的数据源
    
25.     If GetRecordset(rst, strSQL, 1, 1) Then
    
26.         SetFieldName True
    
27.         Set Me.Controls("订单汇总子窗体").Form.Recordset = rst
    
28.     Else
    
29.          SetFieldName False
    
30.     End If
    
31.    
    
32. Exit_Handler:
    
33.     '恢复鼠标指针
    
34.     DoCmd.Hourglass False
    
35.     '打开屏幕刷新
    
36.     Application.Echo True
    
37.     Exit Sub
    
38.    
    
39. Err_Handler:
    
40.     MsgBox Err.Descripton, vbExclamation, "读取数据"
    
41.     Resume Exit_Handler
    
42.    
    
43. End Sub
    
44. 
    
45. Private Sub SetFieldName(Optional ByVal blnDisplayRecordset As Boolean = True)
    
46.     If blnDisplayRecordset Then
    
47.         Forms!订单查询!订单汇总子窗体!t店铺名.ControlSource = "店铺名称"
    
48.         Forms!订单查询!订单汇总子窗体!t产品.ControlSource = "产品"
    
49.         Forms!订单查询!订单汇总子窗体!t规格1.ControlSource = "规格1"
    
50.         Forms!订单查询!订单汇总子窗体!t规格2.ControlSource = "规格2"
    
51.         Forms!订单查询!订单汇总子窗体!t规格3.ControlSource = "规格3"
    
52.     Else
    
53.         Forms!订单查询!订单汇总子窗体!t店铺名.ControlSource = ""
    
54.         Forms!订单查询!订单汇总子窗体!t产品.ControlSource = ""
    
55.         Forms!订单查询!订单汇总子窗体!t规格1.ControlSource = ""
    
56.         Forms!订单查询!订单汇总子窗体!t规格2.ControlSource = ""
    
57.         Forms!订单查询!订单汇总子窗体!t规格3.ControlSource = ""
    
58.     End If
    
59. End Sub
    

复制代码

调用函数如下：

1. Option Compare Database '使用数据库的字符串比较方式
   
2. Option Explicit         '变量在使用前必须进行显式声明
   
3. 
   
4. '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
5. Public cn As Object '定义全程变量：数据链接对象（ADODB.Connection），用来保存连接数据库信息变量。
   
6. '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   
7. 
   
8. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
9. 
   
10. '=======================================
    
11. ' 建立与后台数据库的链接（无链接表方式）
    
12. '=======================================
    
13. Public Function ADODB_Connect(Optional ByVal strDatabase As String = ".\Data.MDB", Optional ByVal strPwd As String = "") As Boolean
    
14. On Error GoTo Err_ADODB_Connect
    
15.    
    
16.     Dim strConnect As String
    
17.     strDatabase = Trim(Nz(strDatabase, ""))
    
18.     '如果是简写的路径则转换为绝对路径
    
19.     If strDatabase Like ".\*" Then strDatabase = CurrentProject.Path & Mid(strDatabase, 2)
    
20.     '如果是相对路径则转换为绝对路径
    
21.     If Left(strDatabase, 1) = "" Then strDatabase = Mid(CurrentProject.Path, 1, 2) & strDatabase
    
22.     If Not strDatabase Like "[A-z]:*" Then strDatabase = CurrentProject.Path & "" & strDatabase
    
23.     '定义ACCESS链接串
    
24.     strConnect = "Provider=Microsoft.Jet.OLEDB.4.0" & ";Data Source=" & strDatabase & ";Jet OLEDB:Database Password=" & strPwd
    
25.    
    
26.     '用ADO通过OLEDB直接连接数据库
    
27.     Set cn = Nothing
    
28.     Set cn = CreateObject("ADODB.Connection")
    
29.     cn.ConnectionString = strConnect
    
30.     cn.CursorLocation = adUseClient
    
31.     cn.ConnectionTimeout = 15
    
32.     cn.CommandTimeout = 30
    
33.     cn.Open
    
34.     ADODB_Connect = True
    
35. 
    
36. Exit_ADODB_Connect:
    
37.     Exit Function
    
38. 
    
39. Err_ADODB_Connect:
    
40.     ADODB_Connect = False
    
41.     MsgBox "连接后台数据库【" & strDatabase & "】失败！" \ Chr(10) & Chr(10) & "出错原因：" & Err.Description, 64, "出错信息"
    
42.     '并释放变量
    
43.     Set cn = Nothing
    
44.     Resume Exit_ADODB_Connect
    
45. 
    
46. End Function
    
47. 
    
48. '=======================================
    
49. ' 打开记录集
    
50. '=======================================
    
51. Public Function GetRecordset(ByRef rst As Object, _
    
52.                              ByRef strSQL As String, _
    
53.                              Optional ByRef intOpenKeyset As Integer = adOpenKeyset, _
    
54.                              Optional ByRef intLockOptimistic As Integer = adLockReadOnly, _
    
55.                              Optional ByRef IsCurrentMDB As Boolean = False) As Boolean
    
56. On Error GoTo Err_GetRecordset
    
57. 
    
58. RetryOpen:
    
59.    '打开ADO记录集
    
60.    Set rst = Nothing
    
61.    Set rst = CreateObject("ADODB.Recordset")
    
62.    If IsCurrentMDB Then
    
63.        '当前MDB
    
64.        rst.Open strSQL, CurrentProject.AccessConnection, intOpenKeyset, intLockOptimistic
    
65.    Else
    
66.        With rst
    
67.            .Source = strSQL
    
68.            .ActiveConnection = cn
    
69.            .CursorLocation = adUseClient  '3
    
70.            .CursorType = intOpenKeyset
    
71.            .LockType = intLockOptimistic
    
72.            .Open
    
73.         End With
    
74.     End If
    
75.     GetRecordset = True
    
76.     If rst.RecordCount > 0 Then rst.MoveFirst
    
77. Exit_GetRecordset:
    
78.     Exit Function
    
79. Err_GetRecordset:
    
80.     If Not IsCurrentMDB Then
    
81.        Dim intCounter As Integer
    
82.       '与数据库断开连接，则重新连接一次。
    
83.        If Err.Number = 91 Or cn Is Nothing Then
    
84.            If intCounter = 0 Then
    
85.               intCounter = intCounter + 1
    
86.               If ADODB_Connect Then Resume RetryOpen
    
87.            End If
    
88.        ElseIf Err.Number = 3709 Then
    
89.            If intCounter = 0 Then
    
90.               intCounter = intCounter + 1
    
91.               Sleep 1000
    
92.               Resume RetryOpen
    
93.            End If
    
94.        ElseIf Err.Number = -2147217865 Then
    
95.            If intCounter = 0 Then
    
96.               intCounter = intCounter + 1
    
97.               Sleep 1000
    
98.               Resume
    
99.            End If
    
100.        End If
     
101.     End If
     
102.     GetRecordset = False
     
103.     '并释放变量
     
104.     Set rst = Nothing
     
105.     '显示错误信息
     
106.     MsgBox Err.Description, vbExclamation, "打开记录集过程：GetRecordset"
     
107.     Resume Exit_GetRecordset
     
108. End Function
     

复制代码

dulton

鱼儿游游
你能分享经验吗？

鱼儿游游

dulton 发表于 2012-3-5 16:43
鱼儿游游
你能分享经验吗？

附件已测试，不当之处请斧正。

roych

事实上DAO写起来比ADO更简单些许~~嗯，只是些许而已，所以我这里用DAO来完成。

1. Private Sub cmd查询_Click()
   
2. Dim rst As dao.Recordset
   
3. Dim db As dao.Database
   
4. Dim Shop As String, Prod As String, GetRow
   
5. '定义查询条件
   
6. If IsNull(Me.t店铺) Then
   
7.     Shop = "'*'"
   
8. Else
   
9.     Shop = "'*" & Me.t店铺 & "*'"
   
10. End If
    
11. If IsNull(Me.t产品) Then
    
12.     Prod = "'*'"
    
13. Else
    
14.     Prod = "'*" & Me.t产品 & "*'"
    
15. End If
    
16. '定义sql查询语句
    
17. ssql = "SELECT 订单明细.店铺名称, 订单明细.产品, Sum(订单明细.规格1) as 规格1, " _
    
18.     & "Sum(订单明细.规格2) As 规格2, Sum(订单明细.规格3) As 规格3 FROM 订单明细 " _
    
19.     & "GROUP BY 订单明细.店铺名称, 订单明细.产品 " _
    
20.     & "HAVING 订单明细.店铺名称 Like " & Shop & " And 订单明细.产品 Like " & Prod
    
21. '打开数据库并连接记录集
    
22. Set db = dao.OpenDatabase(CurrentProject.Path & "\data.mdb")
    
23. Set rst = db.OpenRecordset(ssql)
    
24. '绑定窗体数据源
    
25. Set Me.订单汇总子窗体.Form.Recordset = rst
    
26. Forms!订单查询!订单汇总子窗体!t店铺名.ControlSource = "店铺名称"
    
27. Forms!订单查询!订单汇总子窗体!t产品.ControlSource = "产品"
    
28. Forms!订单查询!订单汇总子窗体!t规格1.ControlSource = "规格1"
    
29. Forms!订单查询!订单汇总子窗体!t规格2.ControlSource = "规格2"
    
30. Forms!订单查询!订单汇总子窗体!t规格3.ControlSource = "规格3"
    
31. End Sub

复制代码

此外，用老汉的In语句也是可行的，不过SQL查询语句写起来也挺麻烦的。这个就留给你做作业了。{:soso_e112:}

dulton

SELECT 订单汇总.店铺名称, 订单汇总.产品, 订单汇总.规格1Sum, 订单汇总.规格2Sum, 订单汇总.规格3Sum
FROM 订单汇总  IN "d:\temp\ado\Data.mdb";

谢谢

todaynew