恐龙园年卡2016双人卡:用vb6创建数据库MDB，为什么表，字段没有创建，谢谢

来源：百度文库编辑：查人人中国名人网时间：2024/05/10 15:28:47

Private Sub Command1_Click()
Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim tdfNew As TableDef
Dim NewDB As Database
Dim f As Field
If Dir("D:\NewDB.mdb") <> "" Then Kill "D:\NewDB.mdb"
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase("d:\NewDB.mdb", dbLangGeneral, dbEncrypt)
Set tdfNew = dbsNew.CreateTableDef("new")
Set f = tdfNew.CreateField("myt")
f.Type = dbText
f.Attributes = dbAutoIncrField
tdfNew.Fields.Append f
End Sub

用vb6创建数据库MDB，为什么表，字段没有创建，谢谢用vb创建数据库mdb，创建字段的时候总是提示不匹配在MDB数据库中varchar表示什么字段用ACCESS建立了一数据库，可通过使用向导创建报表时，但是，可用字段中不显示字段列表，为什么？刚才已发；用vb创建数据库mdb，可问题依旧刚刚学VB6，如何读取ACCESS数据库中的某一字段 MDB数据库 mdb数据库过于庞大为什么,怎么处理? 在数据库中动态创建表时,想要设两个字段都为关键字,怎么办? 数据库testimg.mdb表imgurl里定义了一个ID一个imgurl两个字段图片是转化为二进制储存的