ADO可以干些什么？

[kkttcsd]

ADO可以创建数据库吗？如果可以，那怎么做，与DAO比谁创建好些？
没有msdn,我在线上，答对就给分。

[kkttcsd]

up

[mellow]

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

[专注VB编程开发20年]

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

[kkttcsd]

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

[guest]

以下我在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

[guest]

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

[kkttcsd]

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

[guest]

哦~~~ 帮不上忙

[kkttcsd]

up