Oracle 如何在vb6中使用记录集创建数据报告？

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

我的任务是从各种组合框中选择选项，然后显示它的报告，以便在那里需要记录集

我的问题是，该代码是否足以创建数据报告

我没有设置数据环境或数据报表的任何属性，例如（connection-command-sql），因为我将此记录集直接传递给数据报表，所以不需要在数据环境的属性中触发任何sql

但不幸的是，它没有显示出预期的产出 请帮帮我。

试试这个。 要在字符串中添加“相当”，请使用双“相当”。 您还没有将第二个Combo1引用拼写为Combo11

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

试试这个：

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

注意事项： 在设计模式期间，应清除数据报告datasouce。（请参阅datareport上的属性，并将其datasource属性设置为空。）Ohhh…还有一件事，请记住，在设计期间，还应为datareport内与数据库上的datafield对应的每个textbox对象设置datafield属性

---

我使用这种方法很长时间了，效果很好

不，先生，这是另一个组合，即组合11显示学生的用餐设施，组合1显示学生的标准，我想过滤这两个字段，然后显示报告。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。问题是，当我使用数据环境-connection-command-sql等提供数据源时，它可以工作。。。。。。。。。。。。。。。。。。。。。。。。。但当我将记录集传递给数据报告时，它会显示空的数据报告…………我想我现在明白了原因。您是否正在为数据库连接使用数据控件。您将数据集传递给表单而不是数据控件。先生，我不明白您想说什么。。。。。。请澄清我的疑问，我使用的是ADODB，RES是它的记录集………set DataReport1.DataSource=RES将结果传递给表单，而不是ADODB控件。设置DataReport1.ADODBControl.DataSource=RES

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