Private Sub Command1_Click()
Dim xm As String
xm = txtxm.Text
Set db = DBEngine.CreateDatabase(App.Path + "xm", dbLangGeneral)
Set td = New TableDefSet f = td.CreateField("NAME", dbText, 20)
td.Fields.Append fSet f = td.CreateField("ID", dbText, 5)
td.Fields.Append fSet f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f
td.name = "class"
db.TableDefs.Append tdSet db = NothingEnd Sub
应该怎么样用变量来代替xm,NAME,ID,DEPARTMENTP……
Dim xm As String
xm = txtxm.Text
Set db = DBEngine.CreateDatabase(App.Path + "xm", dbLangGeneral)
Set td = New TableDefSet f = td.CreateField("NAME", dbText, 20)
td.Fields.Append fSet f = td.CreateField("ID", dbText, 5)
td.Fields.Append fSet f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f
td.name = "class"
db.TableDefs.Append tdSet db = NothingEnd Sub
应该怎么样用变量来代替xm,NAME,ID,DEPARTMENTP……
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 TableDefNAME="bbb"Set f = td.CreateField(NAME, dbText, 20)
td.Fields.Append fSet f = td.CreateField(ID, dbText, 5)
td.Fields.Append fSet f = td.CreateField(DEPARTMENTP, dbText, 60)
td.Fields.Append f
td.name = "class"
db.TableDefs.Append tdSet db = Nothing