数据库问题

xiongliang 2002-05-08 09:56:02
我是用代码动态创建一个不定结构表,
并添加一个窗体、一个ADO控件。目的是通过代码提示,让用户动态的建
立表,并使ADO动态的连接它们。代码如下,大家一起研究吧!

Dim MyDatabase As Database
Dim MyTabledef As TableDef
Dim MyField As Field
Dim Fieldnum As Double
Dim Datapath As String
Dim Tablename As String


Private Sub ComAddTab_Click()
If ComAddTab.Caption = "添加表" Then
Tablename = InputBox("输入表名称", "表名称")
If Tablename = "" Then
string1$ = MsgBox("末创建表!", vbOKOnly, "警告")
Else
Set MyTabledef = MyDatabase.CreateTableDef(Tablename)
ComAddTab.Caption = "添加字段"
End If
If ComAddTab.Caption = "添加字段" Then
fieldnumber = InputBox("输入字段数", "字段数")
If fieldnumber = "" Then
string1$ = MsgBox("末输入字段", vbOKOnly, "警告")
Else
Fieldnum = Val(fieldnumber)
Dim temp As Double
temp = Fieldnum
Label1.Caption = "输入字段名"
For i = 1 To temp - 1
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 600
Text1(i).Visible = True
Text1(i).Text = ""
Next i
ComOk.Enabled = True
End If
End If
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub ComNew_Click()
Datapath = InputBox("输入新建的数据库名称", "数据库名称")
If Datapath = "" Then
string1$ = MsgBox("末建数据库!", vbOKOnly, "警告")
Else
Set MyDatabase = Workspaces(0).CreateDatabase(Datapath, dbLangGeneral)
ComAddTab.Enabled = True
End If
End Sub

Private Sub ComOk_Click()
For i = 0 To Fieldnum - 1
Set MyField = MyTabledef.CreateField(Text1(i), dbInteger)
MyTabledef.Fields.Append MyField
Next
MyDatabase.TableDefs.Append MyTabledef

' 我想在此处显示form2,并动态的为数据控件加载本数据库表——此处
' 已创建的表。请问如何写代码。我只会静态的。本处代码已调试成功!
End Sub

Private Sub Form_Load()
ComNew.Caption = "新建"
ComAddTab.Caption = "添加表"
ComOk.Caption = "确定"
ComAddTab.Enabled = False
ComOk.Enabled = False
End Sub

我很高兴认识您们,若愿意与我联系,请粘贴
xiongliang888@hotmail.com 或QQ:86544641
...全文
4 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xiongliang 2002-05-09
动态加载用户根据我的提示而建立的表,用FORM2动态绑定,因绑定工作由我们做,而不是用户。故只能用代码连接。谢谢!
回复
cjlong 2002-05-08

' 我想在此处显示form2,并动态的为数据控件加载本数据库表——此处
' 已创建的表。请问如何写代码。我只会静态的。本处代码已调试成功!

什么意思????????????
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告