求助:为什么对象不支持该属性或方法

zzzhang 2007-11-15 03:13:52
Dim Conn As New ADODB.Connection
Set Conn=CurrentProject.Connection
Dim Rst As New ADODB.recordset
Dim strSQL As String

strSQL= "SELECT 日期, " & _
"单据号, " & _
"供应商, " & _
"物料编码, " & _
"名称, " & _
"规格型号, " & _
"入库数量, " & _
"单价 " & _
"FROM 进出帐 WHERE " & ME.Combo1 & " LIKE ' " ME.Text3 & " ' "

Rst.Open strSQL,Conn,adOpenKeyset,adLockOptimistic
IF Rst.eof then
MsgBox "没有此信息查询 ",vbExclamation, "提示 "
Exit Sub
END IF

Datagrid1.DataSource=Rst

为什么运行到最后赋值给Datagrid1数据来源 "Datagrid1.DataSource=Rst "时出错,
提示 "运行时错误 '438 ' 对象不支持该属性或方法 "
求助各位,在此先谢谢各位了
...全文
238 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zzzhang 2007-11-17
在ACCESS中已经注册了,在窗体上有一个Datagrid控件
  • 打赏
  • 举报
回复
OracleRoob 2007-11-17
在设计模式,查看DataGrid属性,看看属性中手工设置是用的SQL语句,还是记录集。
  • 打赏
  • 举报
回复
WWWWA 2007-11-16
Datagrid控件是否注册?
  • 打赏
  • 举报
回复
zzzhang 2007-11-15
是在ACCESS里
  • 打赏
  • 举报
回复
zzzhang 2007-11-15
TO:wwwwb
STRSQL查询语句是正确的,RST中有查询的结果有记录
  • 打赏
  • 举报
回复
wwwwb 2007-11-15
VB示例:
Private Sub List1_Click() '选择DataGrid中显示的字段
Dim sql, sql1 As String

sql = "select "
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
If Trim(sql1) = "" Then
sql1 = List1.List(i)
Else
sql1 = sql1 & ", " & List1.List(i)
End If
End If
Next

If Trim(sql1) = "" Then
sql1 = "*"
End If

sql = sql & sql1 & " from tableabc"

Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
  • 打赏
  • 举报
回复
wwwwb 2007-11-15
运行环境、将STRSQL中的内容显示出来看看,RST中是否有记录
  • 打赏
  • 举报
回复
发帖
Access

7597

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
帖子事件
创建了帖子
2007-11-15 03:13
社区公告
暂无公告