我的程序如下:ado为2.0,请帮帮忙!
ChDir App.Path & "\datas"
Set wk = DBEngine.Workspaces(0)
CreateDatabase App.Path & "\datas\" & Format(Now, "yy-MM-dd") & ".mdb", dbLangGeneral
Set DefDatabase = wk.OpenDatabase(App.Path & "\datas\" & Format(Now, "yy-MM-dd") & ".mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("data")
With DefTable
.Fields.Append .CreateField("1", dbText, 50)
.Fields.Append .CreateField("2", dbText, 50)
.Fields.Append .CreateField("3", dbText, 50)
.Fields.Append .CreateField("4", dbText, 50)
.Fields.Append .CreateField("5", dbText, 50)
End WithDefDatabase.TableDefs.Append DefTable
ChDir App.Path & "\datas"
Set wk = DBEngine.Workspaces(0)
CreateDatabase App.Path & "\datas\" & Format(Now, "yy-MM-dd") & ".mdb", dbLangGeneral
Set DefDatabase = wk.OpenDatabase(App.Path & "\datas\" & Format(Now, "yy-MM-dd") & ".mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("data")
With DefTable
.Fields.Append .CreateField("1", dbText, 50)
.Fields.Append .CreateField("2", dbText, 50)
.Fields.Append .CreateField("3", dbText, 50)
.Fields.Append .CreateField("4", dbText, 50)
.Fields.Append .CreateField("5", dbText, 50)
End WithDefDatabase.TableDefs.Append DefTable
解决方案 »
- call 子程序
- 如何使listview滚动?
- 关于补位问题
- CommonDialog打开操作并没有进入设置的默认打开位置的问题
- 高分求:CodeReview的中文使用说明DevPartner Studio的那个
- 為什麼我在設定引用項目時出現"存取系統注冊區時發生錯誤"
- 在vb中使用Rasdial遇到问题,请高手提点。。
- *************谁知道google等搜索引擎是根据什么来排序的?********************
- FRX 是做什么的?
- 关于VB中读取VFP5.0的dbf自由表(真的好烦!!!)
- Spread控件,如何隐藏某几列?
- 错误48,加载DLL错误,无法生成表,急!!求救!!
'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"
'Microsoft ADO Ext.2.7 for DDL ado Security
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\newdata.mdb" + ";")
MsgBox "数据库已经创建成功!"
Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
tbl.ParentCatalog = cat
tbl.Name = "MyTable"'增加一个自动增长的字段
Dim col As ADOX.Column
Set col = New ADOX.Column
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型
col.Name = "id"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0'增加一个文本字段
Dim col2 As ADOX.Column
Set col2 = New ADOX.Column
col2.ParentCatalog = cat
col2.Name = "Description"
col2.Properties("Jet OLEDB:Allow Zero Length").Value = False
tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个货币型字段
Dim col4 As ADOX.Column
Set col4 = New ADOX.Column
col4.ParentCatalog = cat
col4.Type = ADOX.DataTypeEnum.adCurrency
col4.Name = "xx"
tbl.Columns.Append col4, ADOX.DataTypeEnum.adCurrency'增加一个数值型字段
Dim col3 As ADOX.Column
Set col3 = New ADOX.Column
col3.ParentCatalog = cat
col3.Type = ADOX.DataTypeEnum.adDouble
col3.Name = "ll"
tbl.Columns.Append col3, ADOX.DataTypeEnum.adDouble
Dim p As ADOX.Property
For Each p In col3.Properties
Debug.Print p.Name & ":" & p.Value & ":" & p.Type & ":" & p.Attributes
Next'设置主键
tbl.Keys.Append "PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id", "", ""
cat.Tables.Append tbl
MsgBox "数据库表:" + tbl.Name + "已经创建成功!"
Set tbl = Nothing
Set cat = Nothing
End Sub