private td as new adodb.connection Private rs As New ADODB.Recordset ' 记录集的变量 td.open ""'#你所要连接的数据库类型及相关数据 Private Sub CreateRecordset() With rs .Fields.Append "ID", adInteger .Fields.Append "Item", adBSTR, 255 .CursorType = adOpenStatic .LockType = adLockOptimistic .Open ' 不需要连接对象。 End With Dim i As Integer For i = 1 To 100 rs.AddNew rs!ID= i rs!Item = "thing " & i rs.Update Next i rs.MoveFirst End Sub
ado是建不了库的,recordset只不过是一个数据几,建立数据库要用到ADOX。 DIM ADOX AS VARIANT ADOX=CREATEOBJECT(‘ADOX.catalog') adoz.create('provider=mircosoft.jet.oled4.0;data source=c:\test.mdb')
先引用“Microsoft DAO 3.6 Object Library”Dim db As Database '数据库对象定义 Dim dbName As String '数据库文件名 dbName = "NewDB.mdb" Set db = CreateDatabase(dbName, dbLangChineseSimplified, dbEncrypt) '建立数据库 db.Execute "create table 表名 (field1 long,field2 text(8))" '添加表 db.Close Set db = Nothing
'with ADOX 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=c:\Program Files\Microsoft Office\" & _ "Office\Samples\Northwind.mdb;"tbl.Name = "MyTable" tbl.Columns.Append "Column1", adInteger tbl.Columns.Append "Column2", adInteger tbl.Columns.Append "Column3", adVarWChar, 50 cat.Tables.Append tblEnd Sub用ADO来扩展建数据库 首先要引用:Microsoft ADO Ext.27 for DLL and securiy Dim strDB As New ADOX.Catalog Dim strTab01 As New ADOX.Table dim DBPATH_Name as string DBPath_Name = App.Path & "\" & Num_Dig_J & ".mdb" strDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath_Name strTab01.Name = "yh" '表名 strTab01.Columns.Append "YHXM", adVarWChar, 14 '字段名 strTab01.Columns.Append "YHDH", adVarWChar, 14 '同上 strDB.Tables.Append strTab01 Mircosoft.jet.oledb.4.0代表office 2000 Mircosoft.jet.oledb.3.51代表office 97 还是用DAO比较好。 这里有个例子:Dim db As Database Dim tb As TableDefSet db = CreateDatabase("G:\test.mdb", dbLangGeneral) '建立数据库 Set tb = db.CreateTableDef("table1") '建立表tb.Fields.Append tb.CreateField("Field1", dbText) '添加字段 db.TableDefs.Append tb '添加表“引用”“Microsoft DAO 3.6 Object Library”。
Private rs As New ADODB.Recordset ' 记录集的变量
td.open ""'#你所要连接的数据库类型及相关数据
Private Sub CreateRecordset()
With rs
.Fields.Append "ID", adInteger
.Fields.Append "Item", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open ' 不需要连接对象。
End With
Dim i As Integer For i = 1 To 100
rs.AddNew
rs!ID= i
rs!Item = "thing " & i
rs.Update
Next i
rs.MoveFirst
End Sub
adInteger整数,adBSTR是文本吗?那时间呢?小数及其他格式呢?
DIM ADOX AS VARIANT
ADOX=CREATEOBJECT(‘ADOX.catalog')
adoz.create('provider=mircosoft.jet.oled4.0;data source=c:\test.mdb')
Dim dbName As String '数据库文件名
dbName = "NewDB.mdb"
Set db = CreateDatabase(dbName, dbLangChineseSimplified, dbEncrypt) '建立数据库
db.Execute "create table 表名 (field1 long,field2 text(8))" '添加表
db.Close
Set db = Nothing
'with ADOX
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=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tblEnd Sub用ADO来扩展建数据库
首先要引用:Microsoft ADO Ext.27 for DLL and securiy
Dim strDB As New ADOX.Catalog
Dim strTab01 As New ADOX.Table
dim DBPATH_Name as string
DBPath_Name = App.Path & "\" & Num_Dig_J & ".mdb"
strDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath_Name
strTab01.Name = "yh" '表名
strTab01.Columns.Append "YHXM", adVarWChar, 14 '字段名
strTab01.Columns.Append "YHDH", adVarWChar, 14 '同上
strDB.Tables.Append strTab01
Mircosoft.jet.oledb.4.0代表office 2000
Mircosoft.jet.oledb.3.51代表office 97 还是用DAO比较好。
这里有个例子:Dim db As Database
Dim tb As TableDefSet db = CreateDatabase("G:\test.mdb", dbLangGeneral) '建立数据库
Set tb = db.CreateTableDef("table1") '建立表tb.Fields.Append tb.CreateField("Field1", dbText) '添加字段
db.TableDefs.Append tb '添加表“引用”“Microsoft DAO 3.6 Object Library”。