一sql数据库中有3 个表。在一MDI窗体中有若干个子窗体。如何用ADO控件代码对数据库中的3 个表建立连接后，在子窗体中分别调用相应的连接。
问题点数：20、回复次数：13Top
1 楼outer2000（天外流星）回复于 2001-12-16 11:40:06 得分 0
别用控件，用代码多好，写一个过程，专门连接数据库的，分别写SQL语句就行了。Top
2 楼aby（风清扬）回复于 2001-12-16 13:10:45 得分 0
你还是用控件吧!Top
3 楼lngxj（老公）回复于 2001-12-16 13:22:44 得分 0
outer2000:aby: 在这先谢了，
outer2000:
我是用代码写的，可是我不知应放在什么位置，如何调用，
我曾把代码放在MDI窗体中，可是不行。又不知添加类模块是否可行，因为这方面我不懂。
不知能否明示。谢了。
Top
4 楼lngxj（老公）回复于 2001-12-16 13:29:01 得分 0
aby:
因为在MDI窗体中的子窗体有若干个。而我又不想每个窗体中都放上一个ADO控件。
如果放一个就可以解决的话，不知应如何做。Top
5 楼lngxj（老公）回复于 2001-12-16 13:30:28 得分 0
outer2000:aby: 在这先谢了，
outer2000:
我是用代码写的，可是我不知应放在什么位置，如何调用，
我曾把代码放在MDI窗体中，可是不行。又不知添加类模块是否可行，因为这方面我不懂。
不知能否明示。谢了。
Top
6 楼tonton（tonton）回复于 2001-12-16 22:28:47 得分 5
在子窗體中用Public定義一個LoadData方法。
Option Explicit
Public Sub LoadData(ConnString As String, Sql As String)
Dim Conn As New Connection
Dim Rs As New Recordset
Conn.Open ConnString
Rs.Open Sql, Conn
'.......
Me.Show
End Sub
在別的窗體中要打開子窗體時，可以這樣子Private Sub Command1_Click()
Dim Frm As Form
Dim Conn As String
Dim Sql As String
Conn = "這裏是連接字符串"
Sql = "這裏是SQL查詢語句"
Set Frm = New Form1
Form1.LoadData Conn, Sql
End Sub
Top
7 楼lngxj（老公）回复于 2001-12-17 09:50:26 得分 0
tonton:
如果这样做，控件如何才能绑定到连接上呢？Top
8 楼lngxj（老公）回复于 2001-12-17 10:06:13 得分 0
如果这样做，不知能否实现。
先定义：
dim Conn As New Connection
Dim Rs As New Recordset
dim rs1 as new recordset
dim rs2 as new recordset
Conn.Open "连接字符串“
Rs.Open “第一个sql查询", Conn
rs1.open “第二个sql查询", Conn
rs2.open “第三个sql查询", Conn
在调用窗体中直接将控件绑定到rs 或 rs1 或 rs2
如果以上成立，不知该如何做。
Top
9 楼lngxj（老公）回复于 2001-12-17 13:40:36 得分 0
有人帮忙吗？Top
10 楼crystal_heart（笑看风云）回复于 2001-12-17 14:28:45 得分 5
用模块启动不行吗？我觉得用main()启动比较灵活，容易控制。Top
11 楼lngxj（老公）回复于 2001-12-18 14:35:04 得分 0
main()?
我没有用过这个，不知应如何做模块启动。
不知能否细说一下。谢了。Top
12 楼wufang（蓝点）回复于 2001-12-18 15:35:03 得分 10
1、在MDI父窗体的LOAD事件中打开RS1、RS2、RS3，再在子窗体中分别调用，（要设它们为全局变量）
2、在模块里做一个公用的数据库联结过程
子窗体中分别打开RS
Top
13 楼lngxj（老公）回复于 2001-12-19 10:15:20 得分 0
wufang:仁兄。
2、在模块里做一个公用的数据库联结过程
应如何做。Top
