graphics 630:急！如何用VB代码创建一个名为*.mdb的Access库！

来源：百度文库编辑：高校问答时间：2024/04/28 07:43:19

小弟在线等的急用！路过的高手帮一下！积分全部送上
知道的麻烦告诉一下~！QQ28497613 在线等~~~~！

用代码创建数据库，表，字段

Option Explicit
Private db As Database
Private td As TableDef
Private f As Field

Private Sub Command1_Click()
Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)
Set td = New TableDef

Set f = td.CreateField("NAME", dbText, 20)
td.Fields.Append f

Set f = td.CreateField("ID", dbText, 5)
td.Fields.Append f

Set f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f

td.Name = "class"
db.TableDefs.Append td

Set db = Nothing

End Sub

在列表框中显示该字段名
你可以设一个变量，取得"该字段名",再添加到列表框中（加上循环），列表框的操作你可以看VB的帮助

你要去下载一个控件呀。没有控件是做不出来的，很多软件下载站有去找找看看

急！如何用VB代码创建一个名为*.mdb的Access库！ VB如何用代码创建SQ的数据库如何用vb创建一个没有焦点的窗体？请教:VB 如何用WindowsMediaPlayer创建播放列表如何用vb创建这个文件 vb中如何用代码建菜单如何用VB列出MDB档当中所有table的名称请问 vb 如何用代码发送一个键盘动作，比如按一下F4键？如何用vb创建二叉树及进行操作如何用VB实现创建系统服务程序?