ado可以像dao一样直接用代码生成数据库吗？
ado可以像dao一样直接用代码生成数据库吗？
就是生成一个不存在的数据库
问题点数：20、回复次数：7Top
1 楼hongsongboy（红松）回复于 2004-05-02 14:40:24 得分 0
留个Email.给你发个例子。Top
2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-05-02 23:50:05 得分 10
引用微软 ADO Ext.2.6 for dll and Security
ms acticex data object 2.6 library
在VB程序中删除、增加、修改Access数据库的查询和表结构；
采用ADO直接连结Access数据库
Sub CreateDatabase()
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;"
End Sub
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=aaa;Data Source=c:\new.mdb;"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
End Sub
Top
3 楼e4snake（小蛇）回复于 2004-05-04 01:38:25 得分 0
如果只用ado不用dao可以吗？Top
4 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-05-04 01:55:30 得分 0
上面的就是ado的Top
5 楼GodSun_（简单为本,快乐至上 修改地址,跳到宇宙）回复于 2004-05-04 10:44:16 得分 10
二楼的用的着那么麻烦吗
Private Sub CreateFile()
On Error GoTo er:
Dim Ado As New ADOX.Catalog
Dim SQL As String
Call Ado.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Trim(FileName))
If AcCN.State <> 0 Then AcCN.Close
AcCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Trim(FileName) & ";Persist Security Info=False;Jet OLEDB:Database Password=''"
SQL = "create table JLK (Intid COUNTER(1,1),Namees char(20),Numbers float,bitName char(20),BeginDate datetime,EndDate datetime,constraint JLKPK primary key (Intid))"
Debug.Print SQL
If AcCN.State <> 0 Then AcCN.Close
AcCN.Open
AcCN.Execute (SQL)
Set Ado = Nothing
Exit Sub
er:
If AcCN.State <> 0 Then AcCN.Close
Set AcCN = Nothing
Set Ado = Nothing
Show_Error
End SubTop
6 楼jinesc（我不喜欢问为什么！！！！！）回复于 2004-05-04 11:10:56 得分 0
create database 可以运行吗？Top
7 楼e4snake（小蛇）回复于 2004-05-10 12:11:20 得分 0
非常感谢啊 ：）
受教了Top
