您的位置：程序门 -> vb -> 控件

对象关闭时不允许操作

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

对象关闭时不允许操作

发表于：2007-08-01 15:47:39 楼主

下面2段代码
dim sqls as string
sqls = "select name from cckc "
text1.text = sqls
trim （sqls)
adodc1.recordsource = sqls
adodc1.refresh
set datagrid1.datasource = adodc1
可以正常工作
adodc1.recordset.movelast
adodc1.recordsource = "insert into cckc （name,age) values （ 'wxl ',297) "
adodc1.refresh
出现错误“对象关闭时不允许操作”
但新添加的数据能添加到数据库表里面，请问为什么
如果没有“adodc1.refresh”就没有错误发生
但数据库表也不能得到添加
请指教
谢谢

发表于：2007-08-02 09:03:001楼得分:0

insert 语句不会返回记录集合，应该用 adodb.connect.ＥＸＥＣute 执行，然后 recordset.refresh

发表于：2007-08-02 10:46:462楼得分:0

能给个完整的代码马
我试了
adodb.connect.ＥＸＥＣute 提示错误不可用
看来不行
insert 语句不会返回记录集合那为什么还能做插入操作呢
还有
要是我在后面加一个select语句
这个插入操作就没有了
tell me why
thank you

发表于：2007-08-02 11:07:153楼得分:0

建意这样用.
dim objcn as new adodb.connection
dim rs as new adodb.recordset

objcn.connectionstring = "driver={mysql odbc 3.51 driver};persist security info=false;server=localhost;port=3306;database=data;uid=root;pwd=67832357;option=3; "
objcn.open
objcn.ＥＸＥＣute "set names 'big5 ' "
objcn.cursorlocation = aduseclient
rs.open "select * from prosubject ", objcn, adopenkeyset, adlockoptimistic

objcn.ＥＸＥＣute "insert into cckc （name,age) values （ 'wxl ',297) "
我用的是mysql数据库,上面的代码要改成你所要的

发表于：2007-08-02 13:41:034楼得分:0

dim cn as new adodb.connection
dim rst as new adodb.recordset
dim cmm as new adodb.command
dim comm as string
comm = "select * from cckc "
rst.open comm, cn, adopenstatic, adlockoptimistic
set cmm.activeconnection = cn
set datagrid1.datasource = rst
cn.ＥＸＥＣute = "insert into cckc （name,age) values （ 'lyy ',77) "
这是我做的在vb中
到了最后一步提示我“参数不可选”
后面我还要连接datagrid控件
也不太会
麻烦大哥大姐们指点一下
我也刚刚学习不久
呵呵

发表于：2007-08-02 16:14:505楼得分:0

cn.open 连接字符串

cn.excute..

其他资讯