如何理解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
能否给一个打印含有图片的数据库记录的代码例子,我一直在找这方面的例子。