Asignacion de recordset para un datareport
Hola a todos, me gustaria saber como puedo utilizar un datareport en visual 6.0 sin utilizar un dataEnvironment ya que le pongo lo siguiente y me tira error de que no coinciden los tipos cuando le asigno el recordset al datasource??
Set dbsjet = OpenDatabase("c:Base de Datos", False, False, "dBASE III;")
Set rs = dbsjet.OpenRecordset("SELECT campo1, campo2, campo3, campo4, campo5 FROM tabla WHERE fecha = " & fecha)
Set Reportventas.DataSource = rs ///ERROR
Report.Sections("seccion1").Controls("campo1").DataField = "campo1"
Report.Sections("seccion1").Controls("campo2").DataField = "campo2"
Report.Sections("seccion1").Controls("campo3").DataField = "campo3"
Report.Sections("seccion1").Controls("campo4").DataField = "campo4"
Report.Sections("seccion1").Controls("campo5").DataField = "campo5"
Report.Show
rs.Close
Muchas Gracias
Set dbsjet = OpenDatabase("c:Base de Datos", False, False, "dBASE III;")
Set rs = dbsjet.OpenRecordset("SELECT campo1, campo2, campo3, campo4, campo5 FROM tabla WHERE fecha = " & fecha)
Set Reportventas.DataSource = rs ///ERROR
Report.Sections("seccion1").Controls("campo1").DataField = "campo1"
Report.Sections("seccion1").Controls("campo2").DataField = "campo2"
Report.Sections("seccion1").Controls("campo3").DataField = "campo3"
Report.Sections("seccion1").Controls("campo4").DataField = "campo4"
Report.Sections("seccion1").Controls("campo5").DataField = "campo5"
Report.Show
rs.Close
Muchas Gracias
