大家帮我看看语句有什么地方不对

swxandwf 2003-03-28 08:59:28
dim conn as new adodb.connection
dim rs as new adodb.recordset
set conn = new adodb.connection
conn.CursorLocation = adUseClient
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cj.mdb;Persist Security Info=False"
conn.Open connstr
set rs = new adodb.recordset
rs.AddNew
rs("xm") = "张三"
rs("km") = "语文"
rs("cj") = "66"
rs.Update
它说对象或提供者不对执行所需的操作
...全文
14 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
swxandwf 2003-03-28
我的QQ是:33312806
电话是:057185518541(小灵通)
我是杭州的
回复
foreverforyou 2003-03-28
当然可以呀
回复
swxandwf 2003-03-28
foreverforyou(为情所困) ,我想认识你,不知道可不可以?
回复
foreverforyou 2003-03-28
如果datagrid1没有绑定到数据库上去,就不能自动刷新,你可以把新的记录集重新添加到控件中去,后面两个参数是关于游标类型及数据锁定类型的,你可以查看相关帮助
回复
swxandwf 2003-03-28
可以了,谢谢
问题所在是:rs.open "select * from table",conn,3,3,而我用的是1,1。为什么呢

2、如果我想如果每增加一条记录,datagrid就自动多一条记录,也就是说要有刷新功能。
我用了timer控件,
Private Sub Timer1_Timer()
Timer1.Interval = 100
DataGrid1.Refresh
End Sub
可是不行,应该怎么办呢?
回复
foreverforyou 2003-03-28
dim conn as new adodb.connection
dim rs as new adodb.recordset
set conn = new adodb.connection
conn.CursorLocation = adUseClient
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cj.mdb;Persist Security Info=False"
conn.Open connstr
set rs = new adodb.recordset
rs.open "select * from table",conn,3,3 '打开记录集
rs.AddNew
rs("xm") = "张三"
rs("km") = "语文"
rs("cj") = "66"
rs.Update
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-28 08:59
社区公告
暂无公告