DataReport - DataEnviroment y Listview

[jeaguiar25]

Esta es mi última duda para terminar mi proyecto, luego de esto creo que por un rato no molesto más.

Necesito imprimir un solo registro almacenado en una Tabla. Genere el DataEnviroment con su correspondiente conección y distintos comandos para relacionarlos con Distintos DataReport. Tres de ellos me dejan imprimir el total de datos de 3 distintas tablas, pero con uno de ellos necesito poder imprimir el registro seleccionado según un listview en un form. Luego coloque una sentencia SQL para que me traiga este registro pero me trae nuevamente todos, en este momento la sentencia la tengo redactada así:

Private Sub Imprimir_Asignacion_Click()
Call Imprimir
End Sub
----------------------------------------------------------
Private Sub Imprimir()
Dim RsImprimir As ADODB.Recordset
Set RsImprimir = New ADODB.Recordset

With ListView2.SelectedItem
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Textcnn, adOpenDynamic, adLockBatchOptimistic

DataReport3.Show 1

End With
End Sub
----------------------------------------------------------
A quien me pueda ayudar muchas gracias.....

PD: Alguien lo desea puedo pasarles el proyecto por correo para que vean más certeramente el error.
Saludos
José

[lokoman]

Hola!!
Tienes todo pegado en:

Código vb:

ListView2.SelectedItem.Textcnn, adOpenDynamic, adLockBatchOptimistic
 

Debe ser:

Código vb:

ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
 

Para este caso el campo ID es numerico, si es caracter debe ser:

Código vb:

...ID='" & ListView2.SelectedItem.Text & "'", cnn, adOpenDynamic, adLockBatchOptimistic
 

[jeaguiar25]

Perdon, se ve que al copiar el codigo lo puse mal, lo tengo así como indicas, (como ID es númerico lo tengo así WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
). Pero no me resulta. Tendra que ver el DataEnvironment?

[lokoman]

!!!
Le asignaste el recordset al datareport??
Algo asi:

Código vb:

With DataReport3
   Set .DataSource = Nothing
   .DataMember = ""
   Set .DataSource = RsImprimir.DataSource
End With
 

[jeaguiar25]

Si lo tengo agregado en el Sub Imprimir()
Pero ni corte,

[lokoman]

Veo que tienes esto en el Sub Imprimir:

Código vb:

Private Sub Imprimir()
Dim RsImprimir As ADODB.Recordset
Set RsImprimir = New ADODB.Recordset
 
With ListView2.SelectedItem
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Textcnn, adOpenDynamic, adLockBatchOptimistic
 
DataReport3.Show 1
 
End With
End Sub
 

Debe ser algo asi:

Código vb:

Dim RsImprimir As ADODB.Recordset
Set RsImprimir = New ADODB.Recordset
 
'CARGAS EL RECORDSET
With ListView2.SelectedItem
RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
 
'ASIGNAS EL RECORDSET AL DATA REPORT
With DataReport3
   Set .DataSource = Nothing
   .DataMember = ""
   Set .DataSource = RsImprimir.DataSource
End With
 
'MUESTRAS EL DATA REPORT
DataReport3.Show 1
 
End With 'Fin del [With ListView2.SelectedItem]
 

Intenta a ver...

[jeaguiar25]

Ahora me dice que:
"No se encontro rl DataField 'Command_Asignado.ID'
ID es el primer campo de la tabla Asignado (Command_Asignado es el nombre que le puse al Command del Dataenvironment), Si elimino del Datareport las popiedades del DataMember y DataSource me dice que el "No se encuentra el DataField 'Vacío'. Que debería hacer.-

Como siempre, gracias por tu ayuda!

[jeaguiar25]

Lokoman, me di cuenta de donde esaba el error.

En las propiedades del Texto del Datareport, tenia puesto:
en el DataField = Refererncia a la columna de la Tabla
en el DataMember = Referencia a la Connección del DataEnvironment

Y en las propiedades del Datareport, tenia puesto:
en el DataSuorce = Refererncia al DataEnvironment
en el DataMember = Referencia a la Conneccion del DataEnvironment

Borre todas las referencias y solo puse manualmente la referencia DataField del Texto, y ahora si me llama al DataReport el registro que solicito por medio de la sentencia. Aclaro lo que hice porque tal vez le sirva a alguien, y esto no lo vi explicado en ningún lado, este es mi granito de arena.

Por otra parte: Si quisiera imprimir el resultado total de la consulta del listview, o sea los registros que me muestra el listview. Que parte de la sentencia tendría que cambiar?
Lo que imagino es que el (With ListView2.SelectedItem)
y el (RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic
) deberían cambiar, modificando el ListView2.SelectedItem por algo pero no se que, si lo sabes te agradezco.
Como siempre, Enormemente agradecido por tus aportes

[lokoman]

Intenta esto:
Coloca 1 CheckBox: si tiene el cotejo exportas todo, sino, exportas el seleccionado

Código vb:

...
...
...
With ListView2.SelectedItem 'SELECCIONA EL ITEM DEL LISTVIEW
   IF chkTODO.VALUE=1 THEN 'EL CHECK ESTA COTEJADO
' HACEMOS UNA SELECCION DE TODO, SI TIENES UN SELECT ESPECIFICO QUE CARGA EL LISTVIEW, LO PONES AQUI
      RsImprimir.Open "SELECT * FROM Asignado", cnn, adOpenDynamic, adLockBatchOptimistic 
   ELSE
' EL CHECK NO ESTA COTEJADO, HACE EL SELECT DEL ITEM SELECCIONADO
      RsImprimir.Open "SELECT * FROM Asignado WHERE ID = " & ListView2.SelectedItem.Text, cnn, adOpenDynamic, adLockBatchOptimistic 
   END IF
 

[jeaguiar25]

Yo lo había intentado sin el Check, el tema es que me trae todos los registros y no los cargados en el Listview. Mi intención es imprimir unicamente los cargados en el Listview. Por eso buscaba Cambiar el WHERE ID = " & ListView2.SelectedItem.Text
Un Abrazo.

[jeaguiar25]

Como Hombre apurado que soy te envie el mensaje, pero luego vi que tu acertadamente pusiste en la sentencia: SI TIENES UN SELECT ESPECIFICO QUE CARGA EL LISTVIEW, LO PONES AQUI. Pues fue lo que hice y me funciono.
Declare un String en base a un combobox y condicione el primer Select con Where, como me enseñaste un día, y pumm, quedo listo.
Como siempre, muchas gracias, tenía la solucion adelante de mis ojos y no lo veía.
Un abrazo!!

[lokoman]

QUE BIEN!!