标题:如何理解ADO中的command对象,comma1.Execute后如何获取它的结果集?能否给 ...
只看楼主
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
结帖率:51.67%
 问题点数:0 回复次数:2 
如何理解ADO中的command对象,comma1.Execute后如何获取它的结果集?能否给一个打印含有图片的数据库记录的代码例子
能否直接 使用 Set rs = comma1.Execute 将其结果直接赋值吗?

下面是我的代码
Private Sub Command1_Click()
  Dim bm As String
  Dim sql As String
  If Text1.Text <> "" Then
  bm = Trim(Text1.Text)
  sql = "select * from member where sex='女'"
  Set comma1.ActiveConnection = conn
    = sql
   Set rs = New ADODB.Recordset
   Set rs = comma1.Execute      '这里能证明comma1.Execute 执行完后可以将结果作为记录集赋给其他对象?
   Text1.Text = rs("id")     ‘文本框内能找一个ID字段的值,没有报错。
   Set DataGrid1.DataSource = rs  '运行到此处时报“行为集体不能作为标签”
 Else

    MsgBox "你必须输入一个名字"
  End If '来源
End Sub

Private Sub Form_Load()
  Dim str As String
  str = App.Path
  If Right(str, 1) <> "\" Then
       str = str + "\"
  End If
       strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\basicinfo.mdb" & ";"
     conn.Open strCn
    rs.CursorLocation = adUseClient
     rs.Open "member", conn, adOpenKeyset, adLockPessimistic
     Set DataGrid1.DataSource = rs
  End Sub

  能否给一个打印含有图片的数据库记录的代码例子,我一直在找这方面的例子。
搜索更多相关主题的帖子: sql 记录 member 文本框 where 
2011-10-08 11:32
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
得分:0 
没有高手愿意回答
2011-10-11 11:04
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
得分:0 
如何理解ADO中的command对象,comma1.Execute后如何获取它的结果集?能否给一个打印含有图片的数据库记录的代码例子

这里人气少呀
2011-10-13 14:27



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




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

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