1,216
社区成员
发帖
与我相关
我的任务
分享请高手支招！
Private Sub Command1_Click()
Dim xm As String
xm = txtxm.Text
Set db = DBEngine.CreateDatabase(App.Path + "xm", 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
应该怎么样用变量来代替xm,NAME,ID,DEPARTMENTP……
Dim xm As String
xm = txtxm.Text
Set db = DBEngine.CreateDatabase(App.Path + "xm", 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
应该怎么样用变量来代替xm,NAME,ID,DEPARTMENTP……
...全文
请发表友善的回复…
发表回复
aquariuszhang2003 2003-07-15
- 打赏
- 举报
谢谢了！
lihonggen0 2003-07-15
- 打赏
- 举报
dim NAME as string
dim ID as string
dim DEPARTMENTP as string
Dim xm As String
xm = txtxm.Text
Set db = DBEngine.CreateDatabase(App.Path & xm , dbLangGeneral)
Set td = New TableDef
NAME="bbb"
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
