![]() |
#2
风吹过b2014-05-07 08:10
|

Private Sub Command1_Click()
Dim path As String
Dim db As Database
Dim sql As String
With CommonDialog1
.Filter = "Access文件(*.mdb)|*.mdb|所有文件(*.*)|*.*|"
.DialogTitle = "另存为"
.CancelError = True
.DefaultExt = "mdb"
.ShowSave
path = .FileName
End With
If Dir(path) = "" Then
Set db = Workspaces(0).CreateDatabase(path, dbLangGeneral)
sql = "create table" & " test " & "(" & " 单号 text,备注 text);"
db.Execute sql
End If
End Sub
Dim path As String
Dim db As Database
Dim sql As String
With CommonDialog1
.Filter = "Access文件(*.mdb)|*.mdb|所有文件(*.*)|*.*|"
.DialogTitle = "另存为"
.CancelError = True
.DefaultExt = "mdb"
.ShowSave
path = .FileName
End With
If Dir(path) = "" Then
Set db = Workspaces(0).CreateDatabase(path, dbLangGeneral)
sql = "create table" & " test " & "(" & " 单号 text,备注 text);"
db.Execute sql
End If
End Sub