我的2个问题大家帮帮忙

Question

1、在vb中用代码创建数据库aaa示例，在vb+SQLServer7中测试通过。
Dim conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQLServerConnect As String, SQLCreate As String
SQLServerConnect = "Driver={SQL Server};Server=TCL;UID=sa;PWD=;"
Set conn = New ADODB.Connection
conn.ConnectionString = SQLServerConnect
conn.Open
SQLCreate = "create database aaa" & vbCrLf & "on" & vbCrLf & _
        "primary(name=aaa_data, filename='c:\aaa.mdf', size=10MB, " & _
        "maxsize=15MB, filegrowth=20%)" & vbCrLf & _
        "log on" & vbCrLf & "(name=aaa_log, filename='c:\aaa.ldf', " & _
        "size=3MB, " & vbCrLf & "maxsize=5MB, filegrowth=1MB)"
Set Rs = conn.Execute(SQLCreate, 1, adCmdText)
Set Rs = Nothing
conn.Close
Set conn = Nothing2、不会。

Answer 1

回答你的第二个问题Dim Server As SQLDMO.NameList
    Dim appDMO As New SQLDMO.Application
    Dim i As Integer
        
    On Error GoTo Error
    
    Set Server = appDMO.ListAvailableSQLServers
    
    For i = 1 To Server.Count
        cmbServer.AddItem Server(i)
        'Debug.Print Server(i)
    Next

Answer 2

SQLDMO这个类有详细的中文说明？

Answer 3

我没有见过，看sql的联机帮助有，好像英文的。