7,789
社区成员
发帖
与我相关
我的任务
分享ADO里connection的用法问题
我在程序里需要创建一个新表，可是程序报错：连接无法用于此操作。程序如下
Dim objConn As New ADODB.Connection
Dim objComm As New ADODB.Command
Dim objRs As New ADODB.Recordset
objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=g:\airflight\c++\testdatabase.mdb"
objConn.Open
objComm.CommandText = "create table 测试 (编号 int not null,姓名 int not null)"
objComm.CommandType = adCmdText
Set objRs = objComm.Execute
Dim objConn As New ADODB.Connection
Dim objComm As New ADODB.Command
Dim objRs As New ADODB.Recordset
objConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=g:\airflight\c++\testdatabase.mdb"
objConn.Open
objComm.CommandText = "create table 测试 (编号 int not null,姓名 int not null)"
objComm.CommandType = adCmdText
Set objRs = objComm.Execute
...全文
请发表友善的回复…
发表回复
yuhaii 2002-05-30
- 打赏
- 举报
建议使用以下打开方式.
"Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path
& "\data.mdb;"
"Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path
& "\data.mdb;"
SuperZhou 2002-05-30
- 打赏
- 举报
同意footballboy(郑创斌)
yuhaii 2002-05-30
- 打赏
- 举报
objconn.execute "create table 测试 (编号 int not null,姓名 int not null)"
IsMe 2002-05-30
- 打赏
- 举报
程序本身没有问题，看看是否连接字符串不对或者没有对数据库写权限
footballboy 2002-05-30
- 打赏
- 举报
在objConn.Open后加上一句
objComm.ActiveConnection = objConn
objComm.ActiveConnection = objConn
SuperZhou 2002-05-30
- 打赏
- 举报
直接用objcomm.execute
marswang 2002-05-30
- 打赏
- 举报
up
setfocus 2002-05-30
- 打赏
- 举报
看看路径是不是有问题！
little_ice 2002-05-30
- 打赏
- 举报
把 Set objRs = objComm.Execute这句去掉
用objconn.execute objcomm.commandtext就行了
用objconn.execute objcomm.commandtext就行了
