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

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

回复赞