dim strSoftPath as string
strSoftPath = App.Path
If Mid$(strSoftPath, Len(strSoftPath), 1) <> "\ " Then strSoftPath = strSoftPath & "\ "
--生成strSoftPath形如c:\或c:\abc\,后面一定帶有\(zhòng),如你不想帶,可修改上面及下面語(yǔ)句
--引用微軟 ADO Ext.2.7 for dll and Security
--創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表及字段
Private Sub Command1_Click()
CreateDatabase
CreateTable
MsgBox "成功 "
End Sub
Sub CreateDatabase()
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb "
End Sub
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
--Open the catalog.
-- Open the Catalog.
Cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source= " & strSoftPath & "new.mdb; " --此處用strSoftPath換了C:\
tbl.name = "MyTable "
tbl.Columns.Append "Column1 ", adInteger
tbl.Columns.Append "Column2 ", adInteger
tbl.Columns.Append "Column3 ", adVarWChar, 50
cat.Tables.Append tbl
End Sub
--檢查表是否存在
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb; " & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close
聯(lián)系客服