为什么我的数据库在vb6中出现错误。

为什么我的数据库在vb6中的“可视化数据库管理器”出现错误。  
  我是用代码建的数据库：窗体上有2个list控件、1个CommonDialog控件、list1代表字段名、list2代表字段长度。都有数据且同长度即：list1.listCount=list2.listCount   代码如下：   Dim   dbname   As   Database   Dim   tdname   As   TableDef   Dim   fdname   dim   dpath   as   string   CommonDialog1.DialogTitle   =   "新建数据库："   CommonDialog1.Filter   =   "数据库文件(*.mdb)|*.mdb"   CommonDialog1.ShowSave   dpath   =   CommonDialog1.FileName   Set   dbname   =   Workspaces(0).CreateDatabase(dpath,   dbLangGeneral,   dbVersion70)   Set   tdname   =   dbname.CreateTableDef("ioriwang")   For   a   =   0   To   List1.ListCount   -   1   If   List3.List(a)   =   Combo1.List(0)   Then   Set   fdname   =   tdname.CreateField(List1.List(a),   dbBoolean)   ElseIf   List3.List(a)   =   Combo1.List(4)   Then   Set   fdname   =   tdname.CreateField(List1.List(a),   dbCurrency)   ElseIf   List3.List(a)   =   Combo1.List(7)   Then   Set   fdname   =   tdname.CreateField(List1.List(a),   dbDate)   Else   Set   fdname   =   tdname.CreateField(List1.List(a),   dbText,   List2.List(a))   End   If   tdname.Fields.Append   fdname   Next   a   dbname.TableDefs.Append   tdname   dbname.Close   出现的问题是：用vb6自带的可视化数据管理器打开没问题，但在右下脚的记录号的右边出现[不可更新]这是为什么，点击添加后出现错误：3251   DAO.Recordset   这种对象类型不支持该操作。主要是为什么会出现[不可更新]，请各位高手指教，谢谢。   可用E-mail:iori_wang_vb@163.com与我联系 问题点数：50、回复次数：3Top

1 楼spirit00（精灵）回复于 2002-02-12 13:20:02 得分 0

Set   dbname   =   Workspaces(0).CreateDatabase(dpath,   dbLangGeneral,   dbVersion70)    
  应改为Set   dbname   =   Workspaces(0).CreateDatabase(dpath,   dbLangGeneral,   dbVersion30)    
  VB6只支持低版本的ACCESS文件。Top

2 楼feihong0233（泓）回复于 2002-02-12 13:38:07 得分 50

你使用表的打开类型是快照型的，  
  使用动态集或者表类型都能更新。  
  就是工具栏上前三个按钮。Top

3 楼IORIYAGAMI（八神庵）回复于 2002-02-15 00:10:29 得分 0

feihong0233(泓)你说得很队，但为什么有的数据库用快照就能输入数据更新呢！能不能告诉我为什么，谢谢。  
  Top

相关问题

• vb6
• 数据库
• vb
• tdname
• dpath
• fdname
• commondialog
• dblanggeneral
• createfield
• dbname

• 帖主：IORIYAGAMI
• feihong0233

• Visual Basic类图书
• Visual Basic类源码下载