Data report - varios registros

[mosquitoislero]

Hola gente del foro, les comento que estoy teniendo problemas al generar un reporte con el "datareport", quiero generar varios registros, pero solo me toma el primero, en realidad estoy leyendo solo el primero, alguine podria ayudarme con el bucle que genera mas de un registro o con la funcion que lo hace.

Muchas gracias, saludos.

[lokoman]

Hola!!
La forma en que utilizo el datareport, es creando un recordset y pasando sus campos a los campos en la seccion de detalles del reporte (RptTextBox), de esa forma me salen todos los registros.

strSelect = "SELECT [CAMPO1],[CAMPO2] FROM [TABLA]"

rsData.Source = strSelect
rsData.Open , Conexion, adOpenForwardOnly, adLockReadOnly

If Not rsData.EOF Then

With drREporte
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = rsData.DataSource

With .Sections("Section1").Controls
For I = 1 To .Count
If TypeOf .Item(I) Is RptTextBox Then
.Item(I).DataMember = ""
.Item(I).DataField = rsData.Fields(I - 1).Name
End If
Next I
End With

.Caption = "Titulo del Reporte"
.Show (vbModal)
End With

End If 'rsData.EOF

[mosquitoislero]

Gracias lokoman, pero no logro que funcione. Estoy trabajando con una base en access.

Saludos.

[lokoman]

En el DataReport solo tienes que agregar rptTextBox en la sección de detalle. Con el código que te digo funciona bien en cualquier BD, puedes decir que error que te dá o poner el código para ver?

[mosquitoislero]

Te paso los codigos que tengo.

Código:

'Set rs = con.OpenRecordset("select *from cliente")
rsdata = rs  'ACA MARCA ERROR (uso no valido de la propiedad)
rsdata.OpenRecordset , conextion, adOpenForwardOnly, adlockreadonlny
If Not rsdata.EOF Then
 With DataReport1
 Set .DataSource = nothind  'ACA NO ENCUANTRO LA PROPIEDAD (.DataSource)
 .DataMember = ""
 Set .DataSource = rsdata.DataSource  

  With .Sections("section1").Controls  'section1 ES UN CAMPO DEL DATA REPORT?? (objeto no encontrado)
  For X = 1 To Count
  If TypeOf .Item(X) Is RptTextBox Then  'RptTextBox  (la variable no esta establecida)
   .Item(X).DataMember = ""
  .Item(X).DataField = rsdata.Fields(X - 1).Name
  End If
  Next X
  DataReport1.Show vbModal 'muestras tu datareport..
 End With
 End With
End If 'rsdata.eof

Los errores que aparecen estan comentados. Espero que te sirva para que me ayudes.
Gracias, saludos.

[KenMasters]

Set rs = New ADODB.Recordset

te falta declarar que va a ser rs

[lokoman]

Hola!!
Tienes unos cuantos puntos por arreglar....
•tu conexion se llama "CON"
•el reporte se llama DataReport1, si tienes otro nombre no te va a salir la propiedad..
•debes agragar textboxes (RptTextBox ) en la seccion1 del data report, si no lo haces te dará error..
•la seccion1 es la seccion de detalle en el reporte, ahí debes poner tantos RptTextBox como campos en tu query, ejemplo si tu query invoca 2 campos, entonces debes poner 2 RptTextBox, si pones de mas o de menos, te dará error...
•debes corregir la linea"
Set .DataSource = nothind ' la "D" no va...
por
Set .DataSource = nothinG
•declarar el recordset:
dim rsData as ADODB.recordset
set rsData =new ADODB.recordset
-------------
'Set rs = con.OpenRecordset("select *from cliente")
rsdata = rs 'ACA MARCA ERROR (uso no valido de la propiedad)
rsdata.OpenRecordset , conextion, adOpenForwardOnly, adlockreadonlny
If Not rsdata.EOF Then
With DataReport1
Set .DataSource = nothind 'ACA NO ENCUANTRO LA PROPIEDAD (.DataSource)
.DataMember = ""
Set .DataSource = rsdata.DataSource

With .Sections("section1").Controls 'section1 ES UN CAMPO DEL DATA REPORT?? (objeto no encontrado)
For X = 1 To Count
If TypeOf .Item(X) Is RptTextBox Then 'RptTextBox (la variable no esta establecida)
.Item(X).DataMember = ""
.Item(X).DataField = rsdata.Fields(X - 1).Name
End If
Next X
DataReport1.Show vbModal 'muestras tu datareport..
End With
End With
End If 'rsdata.eof