谁有用ADO建数据库的例子 100分

[一呆呆]

谁有用ADO建数据库的例子 提供一个 谢谢

[一呆呆]

急用呀

[qjqmoney]

你查下SQLSERVER的连机帮助就行了，要用到以下几个语句：
createdabase,createtable,参数很长的，你看下就会明白了

[txlicenhe]

http://expert.csdn.net/Expert/topic/2384/2384240.xml?temp=.1696588

[hhjjhjhj]

Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"

看是否生成了c:\new.mdb

[yoki]

如果是sqlserver数据库可以这样：
dim cn as new adodb.connection

cn.open "Provider=SQLOLEDB;Data Source=yoki;User Id=sa;PassWord=****;Initial Catalog=master"

'创建数据库db1
cn.execute "create database db1"

'在数据库中建立新表table1
cn.execute "use db1"
cn.execute "create table table1 (a int,b varchar(20))"

'往表table1中插入纪录
cn.execute "insert into table1(a,b) select 1,'aaaa'"


cn.close
set cn=nothing

[yoki]

如果是access数据库的话ADO不能建库，只能用ADOX

Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection

On Error GoTo 0

' Create the new database.
Set cat = New ADOX.Catalog
cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DatabaseName & ";"

' Create a new table.
Set tbl = New ADOX.Table
tbl.Name = "TestTable"
tbl.Columns.Append "FirstName", adVarWChar, 40
tbl.Columns.Append "LastName", adVarWChar, 40
tbl.Columns.Append "Birthdate", adDate
tbl.Columns.Append "Weight", adInteger
cat.Tables.Append tbl

' Connect to the database.
Set con = cat.ActiveConnection

' Insert records.
con.Execute "INSERT INTO TestTable VALUES ('Andy', 'Able', '1 Jan 1980', '150')"
con.Execute "INSERT INTO TestTable VALUES ('Betty', 'Baker', #2/22/1990#, 70)"

' Close the database connection.
con.Close
Set con = Nothing
Set tbl = Nothing
Set cat = Nothing

[iwzw]

Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.FileName = Format(Date, "yyyy-mm-dd") & ".mdb"
CommonDialog1.Filter = "Access Files (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
If Dir(CommonDialog1.FileName) = "" Then
Dim cat As New ADOX.Catalog
Dim strTab01 As New ADOX.Table
cat.Create "provider=microsoft.jet.oledb.4.0;User ID='admin';data source=" & CommonDialog1.FileName
strTab01.Name = "日记" '表名
strTab01.Columns.Append "内容", adLongVarWChar '字段名
strTab01.Columns.Append "录入时间", adDate, 14 '同上
strTab01.Columns.Append "名称", adVarWChar, 255
strTab01.Columns.Append "备注", adVarWChar, 14 '同上
cat.Tables.Append strTab01
End If
End Sub

[Skt32]

如果是access数据库的话ADO也可以建库

[Skt32]

方法是先打开系统库，然后create database

[一呆呆]

谢谢大家了
尤其是 yoki(小马哥)
和 iwzw()
感谢大家的帮助

[一呆呆]

不过要引用什么呀