标题:提示类型未定义
只看楼主
yuxin1382
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-12-8
结帖率:50%
 问题点数:0 回复次数:2 
提示类型未定义

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset


Private Sub Form_Load()

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\销售表.mdb;Persist Security Info=False"
If rs.State = adStateOpen Then rs.Close
conn.CursorLocation = adUseClient
conn.Open
rs.Open "select * from 用户表", conn, 3, 3
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub


End Sub


运行后一直提示
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset 类型未定义

搜索更多相关主题的帖子: 定义 类型 提示 
2007-09-14 16:27
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
引用ado

我的msn: myfend@
2007-09-14 16:33
yuxin1382
Rank: 1
等 级:新手上路
帖 子:172
专家分:0
注 册:2006-12-8
得分:0 

可以了,谢谢。

2007-09-14 16:37



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-169974-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.548901 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved