伺服电机的性能指标:vb 如何建立数据库
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/13 16:26:46
谁知道用怎样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
以前用过的程序,没有问题,你先看一下,理清了,再运行。