. . 23.15 ( ), .
. 23.15
( )
| , ( ) | |||
| UserForm | Name | Form1 | , . |
| Caption | SQL-DMO (5) | . | |
| Frame | Name | Frame1 | |
| Caption | SQL Server | Combo1. | |
| ComboBox | Name | Combo1 | ( ) . |
| Frame | Name | Frame2 | |
| Caption | Command2. | ||
| CommandButton | Name | Command2 | . |
| Caption | |||
| CommandButton | Name | Command1 | . |
| Caption |
23.5 , . 23.16 23.17 . . Command2_Click ( 35) , Text1 (. 23.16). Combo1, (. 23.17).
23.5
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 "VOVA", "sa", ""
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: End Sub
18:
19:
20: Private Sub Command1_Click()
21: Unload Me
22: End Sub
23:
24: Private Sub Command2_Click()
25: Dim mSQLServer As SQLDMO.SQLServer
26: Dim mDatabase As SQLDMO.Database
27: Dim mDBFile As SQLDMO.DBFile
28:
29: Set mSQLServer = New SQLDMO.SQLServer
30: mSQLServer.Connect "VOVA", "sa", ""
31:
32: Set mDatabase = New SQLDMO.Database
33: mDatabase.Name = Text1.Text
34:
35: mSQLServer.Databases.Add mDatabase
36:
37:
38: Text1.Text = ""
39:
40: Form_Load
41:
42: End Sub
. 23.16
( )
. 23.17
( ). .
