您的位置：程序门 -> vb -> 非技术类



五分钟能给调好一个小vb数据库的问题,付50元!


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


五分钟能给调好一个小vb数据库的问题,付50元!
发表于：2007-07-16 23:35:27 楼主
有一个小程序,
private   sub   command2_click（)
        cd.filter   =   "*.mdb ¦*.mdb "
        cd.showsave
        if   cd.filename   =   " "   then   exit   sub
        dim   d（)   as   byte
        d   =   loadresdata（101,   "custom ")
        open   cd.filename   for   binary   access   write   as   #1
        put   #1,   ,   d
        close   #1
        text1   =   cd.filename
end   sub


问题如下:一,通过以上命令能自由的建立多个数据库名,但每个数据库内的每一个字段都是一样的,并且有些字段设制了必填（不能为空)而我想让数据库内的任何一个字段都能为空,应该怎么办啊.
二,我新建的数据库用vb内的工具采单下的可视化管理,设置了其中一个数据库文件的必填选项,结果只有这一个新建立的可以随意输入,但如果单击按钮,重新再建立一个新的数据库,就又要求每一项都要填写了,

帮助调好,本人愿付50元钱做为感谢.

qq:7387081
发表于：2007-07-18 00:49:121楼 得分:0
.......................................................
发表于：2007-07-18 15:16:022楼 得分:0
呵呵　50元，还不如50分
发表于：2007-07-28 17:42:523楼 得分:0



把资源文件导出为mdb文件。然后修改这个数据库里面的字段属性

修改完后再重新导入进去就可以了

＋——————————————————————————————————

偶的破站：http://www.pojon.com/

发表于：2007-08-18 17:29:354楼 得分:0
50元不如50分
发表于：2007-08-18 19:53:555楼 得分:0
'创建数据库和表字段的代码,参考一下,应该能解决你的问题
private   sub   command1_click（)
  on   error   goto   err100
 
  '定义表与字段
  dim   defdatabase   as   database
  dim   deftable   as   tabledef,   deffield   as   field
 
  set   defdatabase   =   workspaces（0).opendatabase（app.path   &   "\vb-code.mdb ",   0,   false)
  set   deftable   =   defdatabase.createtabledef（ "中国 ")
 
  'dbbinary   =   9
  'dbboolean   =   1
  'dbbyte   =   2
  'dbchar=18
  'dbdate=8
  'dbinteger=3
  'dblong=4
  'dbmemo=12
  'dbtext=10
 
  '建立name字段为8个字符型
    set   deffield   =   deftable.createfield（ "name ",   dbtext,   8)
            deftable.fields.append   deffield
   
    set   deffield   =   deftable.createfield（ "sex ",   dbtext,   2)
            deftable.fields.append   deffield
           
  '该字段允许为空
            deffield.allowzerolength   =   true
  '建立age字段为3个的常整型
    set   deffield   =   deftable.createfield（ "age ",   dbinteger,   3)
  '字段追加
    deftable.fields.append   deffield
   
  '表追加
    defdatabase.tabledefs.append   deftable
   
    msgbox   "   一切   ok   ，   《中国》表已经建立完成！         ",   vbinformation
   
    exit   sub
   
err100:
    msgbox   "对不起，不能建立表。请先再建表前建立vb-code数据库？         ",   vbcritical
   
end   sub

private   sub   cmdcreate_click（)

      on   error   goto   err100
     
      '建立名为   vb-code   的数据库
      createdatabase   "vb-code ",   dblanggeneral
     
      msgbox   "   一切   ok   ，   数据库建立完成！         ",   vbinformation
     
      exit   sub
     
err100:
      msgbox   "不能建立数据库!         "   &   vbcrlf   &   vbcrlf   &   err.description,   vbinformation
     
end   sub

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击