. . 23.9 ( ), .
. 23.9
( )
UserForm | Name | Form1 | , . |
Caption | SQL-DMO (3) | . | |
Frame | Name | Frame1 | |
Caption | SQL Server | Combo1. | |
ComboBox | Name | Combo1 | ( ) . |
Frame | Name | Frame2 | |
Caption | List1. | ||
ComboBox | Name | Combo2 | ( ) Combo1 . |
ListBox | Name | List1 | Combo2 . |
CommandButton | Name | Command1 | . |
Caption |
23.3 , . 23.10 . , , Combo1 ( 1518) ( 20). Combo1_Click ( Combo1.Text) Combo2 ( 3134) ( 36).
Combo2_Click Combo2.Text ( 4756). obj1(Trim(Combo1.Text)).Tables(Trim(Combo2.Text)).Columns ( 48) Name ( 50).
23.3
1: Option Explicit
2:
3: Dim sqlOb As SQLDMO.SQLServer
4: Dim obj1 As Object
5:
6:
7: Private Sub Form_Load()
8: Dim dbs As Object
9: Set sqlOb = New SQLDMO.SQLServer
10: sqlOb.Connect "TOSHIBA-USER", "Nata", "Nata"
11:
12: Set obj1 = sqlOb.Databases
13:
14:
15: For Each dbs In obj1
16: Combo1.AddItem dbs.Name
17: Combo1.Text = dbs.Name
18: Next dbs
19:
20: Combo1_Click
21:
22: End Sub
23:
24: Private Sub Combo1_Click()
25: ' List1 Combo1
26: Dim tbl As Object
27: Frame2.Caption = " '" & Trim(Combo1.Text) & "'"
28:
29: Combo2.Clear
30:
31: For Each tbl In obj1(Trim(Combo1.Text)).Tables
32: Combo2.AddItem tbl.Name
33: Combo2.Text = tbl.Name
34: Next tbl
35:
36: Combo2_Click
37:
38: End Sub
39:
40: Private Sub Combo2_Click()
41: Dim colu As Object, addText As String
42:
43: Frame3.Caption = " '" & Trim(Combo2.Text) & "'"
|
|
44:
45: List1.Clear
46:
47: For Each colu In _
48: obj1(Trim(Combo1.Text)).Tables(Trim(Combo2.Text)).Columns
49:
50: addText = colu.Name & _
51: " - " & colu.Datatype & _
52: "(" & colu.Length & ")"
53: If colu.InPrimaryKey Then addText = addText & " PRIMARY KEY"
54:
55: List1.AddItem addText
56: Next colu
57:
58:
59: End Sub
60:
61: Private Sub Command1_Click()
62: Unload Me
63: End Sub
. 23.10
( )