Combobox
Hola
Tengo un Combo que lleno con registros este al momento de seleccionar llena también otros dos textBox esto lo hago con una consulta en un evento lostfocus pero necesito que
Cuando se seleccione el item que quiero automáticamente aparezca el resultado de la consulta en los textos
Espero puedas ayudarme
De antemano gracias!
Tengo un Combo que lleno con registros este al momento de seleccionar llena también otros dos textBox esto lo hago con una consulta en un evento lostfocus pero necesito que
Cuando se seleccione el item que quiero automáticamente aparezca el resultado de la consulta en los textos
Espero puedas ayudarme
De antemano gracias!
1 Respuesta
Respuesta
1
Private Sub cmdAceptar_Click()
Dim cadena As String
Dim cnHospital As Object
'Dim cnHospital As ADODB.Connection
' solo se puede hacer si la
' referencia esta creada
' *** CREACCON ***
Set cnHospital = CreateObject("ADODB.Connection")
'Set cnHospital = New ADODB.Connection
' solo se puede hacer si
' la referencia esta creada
' *** CONESION ***
cnHospital.ConnectionString = _
"Provider=SQLOLEDB.1; User Id=SA;" & _
"Password=; Data Source=EQUIPO5;" & _
"Initial Catalog= HOSPITAL;"
' *** APERTURA ***
cnHospital.Open
cnHospital.BeginTrans ' inicia la transacion
' *** EJECUCION DE SENTENCIAS ***
'cnHospital.Execute "Update AlmacenesArticulos" & _
" SET Cantidad = 2" & _
" Where IdAlmacen = 1" & _
" AND IdArticulo = 1 "
cnHospital.Execute "UPDATE AlmacenesArticulos" & _
" SET Cantidad = Cantidad + " & txtCantidad.Text & _
" WHERE IdAlmacen = " & txtAlmacen.Text & _
" AND IdArticulo = " & txtArticulo.Text
'INSERT INTO tmpAlmacenes (IdAlmacen,
' Descripcion)
' VALUES (@iAlmacen + 10 , @sDescripcion)
cadena = "INSERT INTO MovimientosMateriales" & _
" (IdArticulo, IdAlmacen, NifPersonal, FechaHora," & _
" Tipo, Descripcion, Cantidad)" & _
" VALUES (" & txtArticulo.Text & ", " & _
txtAlmacen.Text & ", '13155333', '01/01/2002', 'e'," & _
"'entrada', " & txtCantidad.Text & ")"
Text1.Text = cadena
cnHospital.Execute cadena
cnHospital.CommitTrans ' confirma la transacion
' *** CIERRE ***
cnHospital.Close
' *** DESTRUCCION ***
Set cnHospital = Nothing
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Dim cadena As String
Dim cnHospital As Object
'Dim cnHospital As ADODB.Connection
' solo se puede hacer si la
' referencia esta creada
' *** CREACCON ***
Set cnHospital = CreateObject("ADODB.Connection")
'Set cnHospital = New ADODB.Connection
' solo se puede hacer si
' la referencia esta creada
' *** CONESION ***
cnHospital.ConnectionString = _
"Provider=SQLOLEDB.1; User Id=SA;" & _
"Password=; Data Source=EQUIPO5;" & _
"Initial Catalog= HOSPITAL;"
' *** APERTURA ***
cnHospital.Open
cnHospital.BeginTrans ' inicia la transacion
' *** EJECUCION DE SENTENCIAS ***
'cnHospital.Execute "Update AlmacenesArticulos" & _
" SET Cantidad = 2" & _
" Where IdAlmacen = 1" & _
" AND IdArticulo = 1 "
cnHospital.Execute "UPDATE AlmacenesArticulos" & _
" SET Cantidad = Cantidad + " & txtCantidad.Text & _
" WHERE IdAlmacen = " & txtAlmacen.Text & _
" AND IdArticulo = " & txtArticulo.Text
'INSERT INTO tmpAlmacenes (IdAlmacen,
' Descripcion)
' VALUES (@iAlmacen + 10 , @sDescripcion)
cadena = "INSERT INTO MovimientosMateriales" & _
" (IdArticulo, IdAlmacen, NifPersonal, FechaHora," & _
" Tipo, Descripcion, Cantidad)" & _
" VALUES (" & txtArticulo.Text & ", " & _
txtAlmacen.Text & ", '13155333', '01/01/2002', 'e'," & _
"'entrada', " & txtCantidad.Text & ")"
Text1.Text = cadena
cnHospital.Execute cadena
cnHospital.CommitTrans ' confirma la transacion
' *** CIERRE ***
cnHospital.Close
' *** DESTRUCCION ***
Set cnHospital = Nothing
End Sub
Private Sub cmdSalir_Click()
End
End Sub