八字天罗地网:VB 数据库问题

来源：百度文库编辑：高考问答时间：2024/05/05 22:04:51

Dim ws As Workspace
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Set ws = DBEngine.Workspaces(0)

Set db = ws.CreateDatabase("d:\test.mdb", dbLangGeneral)
Set tbl = db.CreateTableDef("haha")
Set fld = tbl.CreateField("ii", dbText, 10)
tbl.Fields.Append fld
db.TableDefs.Append tbl
db.Close

运行提示"类型不匹配"
但是用这个就可以....
Dim con As New ADODB.Connection
Dim s As String
s = "Provider = Microsoft.jet.oledb.4.0; data source=D:\test.mdb;Persist Security Info=False"
con.Open s

con.Execute ("create table 班级 (学号 long, 姓名 text (12))")
con.Execute ("alter table 班级 add 性别 single")
con.Close
但是Set db = ws.CreateDatabase("d:\test.mdb", dbLangGeneral) 这个语句是可以执行的啊?
照一楼说不是应该都不可以执行吗?

一般地在asp中用连接字符串ADODB来连接ACCESS数据库~,ADO和DAO是针对ACCESS而言的~,你用的是ACCESS的话那只能用ADODB.Connection 来连接

vb数据库的问题 VB数据库问题 VB与数据库问题 VB数据库问题 VB 操作数据库问题 vb数据库的问题 VB 数据库问题 vb数据库备份问题 VB编程数据库问题 VB数据库问题