高校问答中古战锤 帝国介绍:vb 如何建立数据库
来源：百度文库 编辑：高校问答 时间：2024/04/28 03:30:58
谁知道用怎样VB代码建立一新Access数据库并插入一个表
求代码，谢谢
求代码，谢谢
'引用microsoft DAO 3.6
Dim db As Database
Private Sub Command1_Click()'建库，且库带密码为“lin”
r$ = InputBox("输入库名")
Set db = CreateDatabase("c:\" & r, dbLangGeneral & ";pwd=lin", dbEncrypt)
db.Close
End Sub
Private Sub Command2_Click()'选库建表
r$ = InputBox("输入要建表的库名")
Set db = OpenDatabase("c:\" & r, False, False, ";pwd=lin")
b = InputBox("输入表名")
Do While b <> ""
db.Execute "create table " & b
f = InputBox("输入字段名")
l = InputBox("输入字段类型")
Do While f <> ""
db.Execute "alter table " & b & " add column " & f & " " & l
'db.Execute "alter table 1 add column xz short"
f = InputBox("输入字段名")
l = InputBox("输入字段类型")
Loop
b = InputBox("输入表名")
Loop
End Sub
以前用过的程序，没有问题，你先看一下，理清了，再运行。