Cita:
Como puedo hacer para que en esa consulta aumentarle el jalar 1 imagen cualkiera en formato jpge ... usando SqlDataReader y poder mostrar esa imagen dentro de 1 tablasub select_parametros()
Dim objConnection As SqlConnection
Dim objCommand As SqlCommand
Dim objAdapter As SqlDataAdapter
Dim strSQLQuery As String
' Set up our connection.
objConnection = New SqlConnection("Data Source=(local); Initial Catalog=sigaf; user id=sgaf; password=s159g123")
' Set up our SQL query text.
strSQLQuery = "sp_sConsulta_Reporte05_gas " &txtnumsolicitud.text
' Create new command object passing it our SQL query
' and telling it which connection to use.
objCommand = New SqlCommand(strSQLQuery, objConnection)
'abrimos la conexion
objConnection.open()
Dim rs As SqlDataReader = objCommand.ExecuteReader
rs.read
txtnumsolicitud.text = rs("nSolicitudes")
lblTipoCredito.text = rs("tipocredito")
lblNombreTit.text = rs("Nombre")
lblNombreTit1.text = rs("Nombre")
lblTipoDocumentoTit.text = rs("TipoDocumento")
lblNumDocumentoTit.text = rs("cNumDocumento")
lblNumDocumTit1.text = rs("cNumDocumento")
lblNombreCony.text = rs("NombreConyuge")
lbNombreCony1.text = rs("NombreConyuge")
lblTipoDocumCony.text = rs("TipoDocumentoConyuge")
lblNumDocumCony.text = rs("DocumConyuge")
lblNumDocum2Cony.text = rs("DocumConyuge")
lblFinanciera1.text = rs("Financiera")
objConnection.Close()
end sub
Dim objConnection As SqlConnection
Dim objCommand As SqlCommand
Dim objAdapter As SqlDataAdapter
Dim strSQLQuery As String
' Set up our connection.
objConnection = New SqlConnection("Data Source=(local); Initial Catalog=sigaf; user id=sgaf; password=s159g123")
' Set up our SQL query text.
strSQLQuery = "sp_sConsulta_Reporte05_gas " &txtnumsolicitud.text
' Create new command object passing it our SQL query
' and telling it which connection to use.
objCommand = New SqlCommand(strSQLQuery, objConnection)
'abrimos la conexion
objConnection.open()
Dim rs As SqlDataReader = objCommand.ExecuteReader
rs.read
txtnumsolicitud.text = rs("nSolicitudes")
lblTipoCredito.text = rs("tipocredito")
lblNombreTit.text = rs("Nombre")
lblNombreTit1.text = rs("Nombre")
lblTipoDocumentoTit.text = rs("TipoDocumento")
lblNumDocumentoTit.text = rs("cNumDocumento")
lblNumDocumTit1.text = rs("cNumDocumento")
lblNombreCony.text = rs("NombreConyuge")
lbNombreCony1.text = rs("NombreConyuge")
lblTipoDocumCony.text = rs("TipoDocumentoConyuge")
lblNumDocumCony.text = rs("DocumConyuge")
lblNumDocum2Cony.text = rs("DocumConyuge")
lblFinanciera1.text = rs("Financiera")
objConnection.Close()
end sub
espero explicarme bien y espero q se pueda solucionar el problema muchas gracias :)