7,714
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
大山里的松 2003-05-25
- 打赏
- 举报
刚才是ADOX的方法
下面是DAO方法
Dim db As Database
Set db = DBEngine.CreateDatabase(C:\NEW.MDB, dbLangChineseSimplified)
引用 DAO 3.51
下面是DAO方法
Dim db As Database
Set db = DBEngine.CreateDatabase(C:\NEW.MDB, dbLangChineseSimplified)
引用 DAO 3.51
大山里的松 2003-05-25
- 打赏
- 举报
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'打开目录。
' 打开目录。
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.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
要引用Microsoft ADO Ext. for DDL and Security
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'打开目录。
' 打开目录。
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.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
要引用Microsoft ADO Ext. for DDL and Security
zhengjialon 2003-05-24
- 打赏
- 举报
可以参考：
http://expert.csdn.net/Expert/topic/1566/1566571.xml?temp=.9808161
http://expert.csdn.net/Expert/topic/1690/1690015.xml?temp=.4850275
http://expert.csdn.net/Expert/topic/1566/1566571.xml?temp=.9808161
http://expert.csdn.net/Expert/topic/1690/1690015.xml?temp=.4850275
changechange 2003-05-24
- 打赏
- 举报
create table datatype(aa binary,bb bit,cc smallint,dd AUTOINCREMENT(2,4),ee money,ff datetime,gg guid,hh single,ii double,jj smallint,kk long,ll image,mm memo,nn text(100))
