Question

Private Sub showreport_Click()
    sql = "select * from student_record_database where"
    sql=sql+ Grade='" & Combo1.Text & "' AND Meal='" & Combo11.Text & "'"
    Set RES = CON.Execute(sql)
    Set DataReport1.DataSource = RES
    DataReport1.WindowState = vbMaximized
    DataReport1.Show vbModal
End Sub

我使用此代码作为记录集来创建数据报告。

我的任务是从各种组合框中选择选项，然后显示它的报告，这样就需要记录集。
我的问题是这段代码是否足以创建数据报告???
我没有设置数据环境或数据报告的任何属性，如（connection - command - sql），因为我将此记录集直接传递给数据报告，然后无需在属性中触发任何sql数据环境。

但不幸的是，它没有显示出理想的输出请帮帮我。

Answer 1

试试这个。要在字符串中添加一个完整的字符串，请使用double。你错过拼写第二个Combo1参考作为Combo11

Private Sub showreport_Click()
  sql = "select * from student_record_database where "
  sql = sql & "Grade=""" & Combo1.Text & """ AND Meal=""" & Combo1.Text & """"
  Set RES = CON.Execute(sql)
  Set DataReport1.DataSource = RES
  DataReport1.WindowState = vbMaximized
  DataReport1.Show vbModal
End Sub

Answer 2

试试这个：

Private sub cmdprint_click()

Dim rs as new adodb.recordset

rs.open "SQL Query Statement Here",CON, adOpenDynamic, adLockOptimistic

set datareport1.datasource=rs
datareport1.show

end sub

备注：应在设计模式期间清除数据报告数据。（请参阅datareport上的属性并将其datasource属性设置为空。）哦......还有一点，请记住，您还应该为数据库中对应于数据库中数据字段的每个文本框对象设置datafield属性。设计时间......

我使用这种方法已经很长时间了，它运行正常。

如何在vb6中使用记录集创建datareport？

2 个答案: