dim strSoftPath as string strSoftPath = App.Path If Mid$(strSoftPath, Len(strSoftPath), 1) <> "\ " Then strSoftPath = strSoftPath & "\ " --生成strSoftPath形如c:\或c:\abc\,后面一定带有\,如你不想带,可修改上面及下面语句
--引用微软 ADO Ext.2.7 for dll and Security --创建数据库和数据表及字段 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
|