Data Report

[monelfer]

Tengo un problema con un data report, cuando intento usar una conection a un data environment, y defino un comando con una sentencia SQl,definiendo un parametro,(porque necesito ingresar un dato externo), pero no funciona. En que fallo?no se, espero me puedan ayudar, ya no se que hacer.Gracias.

[IGNIS]

mira a mi ya me paso, mandame tu problema a [email protected] o manda tu mail para ver tu error y por ahi te mando un ejemplo, si necesitas pasar un parametro externo, tambien tengo la rutina.

[Sir Matrix]

Hace poco andaba en lo mismo, como no tengo mucho tiempo, te pego el código que ocupo así a lo bruto. Espero te sirva:

Código PHP:

  Private Sub imprimir_Click() 
 
Dim StringSql As String 
 
Dim rs2 As ADODB.Recordset 
 
Set rs2 = New ADODB.Recordset 
'StringSql = "SELECT * FROM operado WHERE op_id = " & rs("op_id").Value 
StringSql = "SELECT * FROM operado WHERE op_id = " & rs!op_id 
 
rs2.Open StringSql, cn, adOpenKeyset, adLockOptimistic 
 
 
'To set Textbox Datafield 
With DataReport1.Sections("Section1").Controls 'section1 mean that section you create in datareport 
    .item("txtnombre").DataField = rs2("op_nombre").Name 
    .item("txtmedico").DataField = rs2("op_medico").Name 
    .item("txtsegmento").DataField = rs2("op_segmento").Name 
    .item("txtdiagnostico_pre").DataField = rs2("op_diagnostico_pre").Name 
    .item("txtdiagnostico_post").DataField = rs2("op_diagnostico_post").Name 
    .item("txtoperacion").DataField = rs2("op_oprealizada").Name 
    .item("txtficha").DataField = rs2("op_ficha").Name 
    .item("txtedad").DataField = rs2("op_edad").Name 
    .item("txtsexo").DataField = rs2("op_sexo").Name 
    .item("txtprevision").DataField = rs2("op_prevision").Name 
    .item("txtfecha").DataField = rs2("op_fecha").Name 
    .item("txtfonasa").DataField = rs2("op_cod_fonasa").Name 
    If Not cod_fonasa2.Text = "__-__-___-_" Or cod_fonasa2.Text = "" Then 
        .item("txtfonasa2").DataField = rs2("op_cod_fonasa2").Name 
    Else 
        .item("txtfonasa2").DataField = rs2("vacio").Name 
    End If 
    .item("txtcomentarios").DataField = rs2("op_comentarios").Name 
     
     
'    .item("img1").Picture = image1.Picture 
 
End With 
 
'To Set Label caption 
 
 
With DataReport1.Sections("Section4").Controls 
    .item("lblTitle").Caption = "Informe de Protocolo Cirugía Artroscópica" 
End With 
 
Set DataReport1.Sections("Section5").Controls.item("img1").Picture = LoadPicture(rs2("op_foto1").Value) 
Set DataReport1.Sections("Section5").Controls.item("img2").Picture = LoadPicture(rs2("op_foto2").Value) 
Set DataReport1.Sections("Section5").Controls.item("img3").Picture = LoadPicture(rs2("op_foto3").Value) 
 
 
'DataReport1.img1.Picture = LoadPicture(rs("op_foto1").Value) 
 
'to set datasource for datareport 
Set DataReport1.DataSource = rs2 
 
'show datareport 
DataReport1.Show 
 
End Sub