Fatal编程技术网
  • vb6/
  • vb6中CRViewer上的SetDataSource

vb6中CRViewer上的SetDataSource

vb6

vb6中CRViewer上的SetDataSource,vb6,crystal-reports-8.5,Vb6,Crystal Reports 8.5,我想在vb6和数据库访问中制作一个关于crviewer的报告。 然后根据查询条件显示数据。 我编写的代码没有遇到错误。但是显示的数据不会影响我创建的查询。或数据显示一切 下面是我创建的代码 Private Sub Command1_Click() koneksi Dim oapp As CRAXDDRT.Application Dim oreport As CRAXDDRT.Report strSQL = "select * from kelas where kode_kelas = " &am

我想在vb6和数据库访问中制作一个关于crviewer的报告。 然后根据查询条件显示数据。 我编写的代码没有遇到错误。但是显示的数据不会影响我创建的查询。或数据显示一切

下面是我创建的代码

Private Sub Command1_Click()
koneksi
Dim oapp As CRAXDDRT.Application
Dim oreport As CRAXDDRT.Report
strSQL = "select * from kelas where kode_kelas = " & "'" + Combo1.Text &    "'" + ""
Set rs = New Recordset
rs.Open strSQL, db, adOpenDynamic, adLockOptimistic
Set oapp = New CRAXDDRT.Application
Set oreport = oapp.OpenReport(App.Path & "\report1.rpt", 1)
oreport.Database.SetDataSource rs, 3, 1
CRViewer1.ReportSource = oreport
CRViewer1.ViewReport
End Sub
crystal report 8.6、vb6和数据库访问。 请帮助我，或者更正我的代码。 谢谢