分给大家呀。请大家帮忙呀。
zxcnb 2002-10-14 10:59:48 我想在窗体启动后。系统自动生成两个或更多的。MDB数据库。名字都不一样。我写的代码如下。可是就是不行呀。请哥哥帮我改改。
Private Sub Form_Load()
Dim sTra, oData As Database, dPath$, dPas$, oTab As TableDef, oFie As Field
dPath = IIf(Right(App.Path, 1) = "\", App.Path & App.EXEName & ".mdb", App.Path & "\" & App.EXEName & ".mdb")
If Dir(dPath, vbHidden + vbReadOnly + vbSystem) = "" Then
CrData dPath
End If
Data1.DatabaseName = dPath
Data1.RecordSource = "user"
Data1.Refresh
End Sub
Sub CrData(oPath$)
Dim oData As Database, oTab As TableDef, oFie As Field
Dim oPas$
Set oData = CreateDatabase(oPath, dbLangChineseSimplified & IIf(oPas = "", "", ";pwd=" & oPas))
Set oTab = oData.CreateTableDef("user")
Set oFie = oTab.CreateField("班级", dbText, 50)
oTab.Fields.Append oFie
Set oFie = oTab.CreateField("姓名", dbText, 128)
oTab.Fields.Append oFie
oData.TableDefs.Append oTab
oData.Close
End Sub