, . . 23.7 ( ), .
. 23.7
( )
| , ( ) | |||
| UserForm | Name | Form1 | , . |
| Caption | SQL-DMO (2) | . | |
| Frame | Name | Frame1 | |
| Caption | SQL Server | Combo1. | |
| ComboBox | Name | Combo1 | ( ) . |
| Frame | Name | Frame2 | |
| Caption | List1. | ||
| ListBox | Name | List1 | Combo1 . |
| CommandButton | Name | Command1 | . |
| Caption |
23.2 , . 23.8 . Combo1 ( 1215). Combo1_Click, () . obj1(Trim(Combo1.Text)).Tables ( 28) Name ( 29).
23.12
1: Dim sqlOb As SQLDMO.SQLServer
2: Dim obj1 As Object
3:
4: Private Sub Form_Load()
5:
6: Set sqlOb = New SQLDMO.SQLServer
7: sqlOb.Connect "TOSHIBA-USER", "Nata", "Nata"
8:
9: Set obj1 = sqlOb.Databases
10:
11:
12: For Each dbs In obj1
13: Combo1.AddItem dbs.Name
14: Combo1.Text = dbs.Name
15: Next dbs
16:
17: Combo1_Click
18:
19: End Sub
20:
21: Private Sub Combo1_Click()
22: ' List1 Combo1
23:
24: Frame2.Caption = " '" & Trim(Combo1.Text) & "'"
25:
26: List1.Clear
27:
28: For Each tbl In obj1(Trim(Combo1.Text)).Tables
29: List1.AddItem tbl.Name
30: Next tbl
31:
32: End Sub
33:
34: Private Sub Command1_Click()
35: Unload Me
36: End Sub
. 23.8
( )
