快讯

非access数据库在vb中的编程及应用(3)

2004-02-14 09:34  出处:eNet学院  作者:佚名  责任编辑:pjl 

  下面是新建一个foxpro2.5格式数据库的程序实例。 sub createnew ( ) dim db1 as database , td as tabledefs dim t1 as new tabledef , f1 as new field , f2 as new field , f3 as new field dim ix1 as new index dim path as string const db_text = 10 , db_integer = 3 chdir "\" path$ = inputbox( " 请 输 入 新 路 径 名 : ", " 输 入 对 话 框 " ) mkdir path$ ’ 新 建 一 个 子 目 录 set db1 = opendatabase(path$, true, false, "foxpro 2.5;") set td = db1.tabledefs t1.name = "mydb" ’ 新 建 一 个 数 据 表 , 数 据 表 名 为 mydb f1.name = "name" , f1.type = db_text , f1.size = 20 f2.name = "class" , f2.type = db_text , f2.size = 20 f3.name = "grade" , f3.type = db_integer t1.fields.append f1 ’ 向 数 据 表 中 添 加 这 些 字 段 t1.fields.append f2
键盘也能翻页,试试“← →”键
IT热词搜索 来源:360新闻
相关文章

相关软件:

腾讯QQ2012
大小:52.93 MB 授权:免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小:49.32 MB 授权:免费
腾讯QQ2013
立即下载