. . 23.20 ( ).
. 23.20
( )
2, Combo1(2), List(2). 23.7 , . 23.21 .
23.7
1: Dim sqlOb1 As SQLDMO.SQLServer
2: Dim sqlOb2 As SQLDMO.SQLServer
3: Dim obj1 As Object
4: Dim obj2 As Object
5:
6: Private Sub Form_Load()
7:
8: Set sqlOb1 = New SQLDMO.SQLServer
9: sqlOb1.Connect "VOVA", "sa", ""
10:
11:
12: Set sqlOb2 = New SQLDMO.SQLServer
13: sqlOb2.LoginSecure = True
14: sqlOb2.Connect "TOSHIBA-USER"
15:
16: Set obj1 = sqlOb1.Databases
17: Set obj2 = sqlOb2.Databases
18:
19: For Each dbs In obj1
20: Combo1(0).AddItem dbs.Name
21: Combo1(0).Text = dbs.Name
22: Next dbs
23:
24: Combo1_Click (0)
25:
26: For Each dbs In obj2
27: Combo1(1).AddItem dbs.Name
28: Combo1(1).Text = dbs.Name
29: Next dbs
30:
31: Combo1_Click (1)
32:
33:
34:
35: End Sub
36:
37: Private Sub Combo1_Click(Index As Integer)
38: ' List1 Combo1
39:
40: Dim objN As SQLDMO.Tables
41:
42: Frame2.Caption = " '" & Trim(Combo1(Index).Text) & "'"
43:
44: List1.Clear
45: If Index = 0 Then
46: Set objN = obj1(Trim(Combo1(Index).Text)).Tables
47: Else
48: Set objN = obj2(Trim(Combo1(Index).Text)).Tables
49: End If
50:
51: For Each tbl In objN
52: List1(Index).AddItem tbl.Name
53: Next tbl
54: End Sub
55:
56: Private Sub Command1_Click()
57: Unload Me
58: End Sub
. 23.21
( )
SQL-DMO VBA- MS Office, Access. ( ) Excel, Word, Access.