ADO可以干些什么？

Question

 Dim tdExample As TableDef
    Dim fldForeName As Field
    Dim fldSurname As Field
    Dim fldDOB As Field
    Dim fldFurtherDetails As Field
    Dim dbDatabase As Database
    Dim sNewDBPathAndName As String
    sNewDBPathAndName = App.Path & "\NewDB" & Right$(Time, 2) & ".mdb"
    Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
    Set tdExample = dbDatabase.CreateTableDef("Example")    Set fldForeName = tdExample.CreateField("Fore_Name", dbText, 20)
    Set fldSurname = tdExample.CreateField("Surname", dbText, 20)
    Set fldDOB = tdExample.CreateField("DOB", dbDate)
    Set fldFurtherDetails = tdExample.CreateField("Further_Details", dbMemo)
    
    tdExample.Fields.Append fldForeName
    tdExample.Fields.Append fldSurname
    tdExample.Fields.Append fldDOB
    tdExample.Fields.Append fldFurtherDetails
    dbDatabase.TableDefs.Append tdExample
    MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'", vbInformation

Answer 1

如果是控件ado,我有源代码,我正好用得比较精
[email protected]

Answer 2

还没回答我的问题，与DAO比谁创建好些，不是控件ado

Answer 3

以下我在SQL Server调试成功
Public Function Creat_Database(Paths As String, Files As String) As Boolean
'在SQLserver 中建立一个库
Dim SQL$
SQL = ""
SQL = SQL & "CREATE DATABASE " & Files
SQL = SQL & " ON "
SQL = SQL & "( NAME = '" & Files & "_dat',"
SQL = SQL & "  FILENAME = '" & Paths & Files & "_dat.jdt',"
SQL = SQL & "  SIZE = 10MB,"
SQL = SQL & "  MAXSIZE = 50MB,"
SQL = SQL & "  FILEGROWTH = 5MB )"
SQL = SQL & "LOG ON"
SQL = SQL & "( NAME = 'Sales_log',"
SQL = SQL & "  FILENAME = '" & Paths & Files & "_log.jdt',"
SQL = SQL & "  SIZE = 5MB,"
SQL = SQL & "  MAXSIZE = 25MB,"
SQL = SQL & "  FILEGROWTH = 5MB )"
'On Error GoTo Err1
    Cm.Execute SQL
    Creat_Database = True
Exit Function
Err1:
    Creat_Database = False
End Function
Public Function Creat_Table(data As String, Files As String) As Boolean
'本模块用于从*.sql中导入数据库结构到SQL Server
Dim SQL, Txtline As String    On Error Resume Next
    Cn.Close
    On Error GoTo Err1
    ConSQL Load_ini("服务器名"), Load_ini("用户名"), Load_ini("口令"), data, "Cn"
    SQL = " "
    Open App.Path & "\log.txt" For Output As #2    ' 打开输出文件。
         ' 将错误数据写入文件。    Open App.Path & Files For Input As #1   ' 打开SQL文件。
        Do While Not EOF(1)
            Line Input #1, Textline
            If Not (Trim(Textline) = "GO") Then
                SQL = SQL & Textline & Chr(13)
            Else
                Cn.Execute SQL 'Mid(SQL, InStr(SQL, "C"))
                SQL = " "
            End If
        Loop
    Close #1
    Close #2
    'If Creat_Table = False Then
    '    Shell App.Path & "\log.txt"
   'End If
    
Exit Function
Err1:
    Print #2, "This is a Error !"
    Print #2, Err.Description
    Print #2, Err.Number
    Print #2, "**********"
    Creat_Table = False
    Resume Next
End Function

Answer 4

我一直用ADO的 也和我主要用SQL Server有关系

Answer 5

对不起，我想知道的是创建.MDB