Visual Basic.NET - ¡¡ URGENTE !!, ¿SE PODRA?

   
Vista:

¡¡ URGENTE !!, ¿SE PODRA?

Publicado por erikur raudi (3 intervenciones) el 25/11/2008 19:23:10
Buen dia todos.

Tengo el siguiente código que trae 3 columnas de una tabla y almacena 2 de ellos en un combobox:

objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("App_DataDataBase.mdb") & ";")

strSQLQuery = "Select campo1, campo2, campo3 from tabla"
Using objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
Using objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
Do While objDataReader.Read()
cboCombo.Items.Add(objDataReader.GetString(0) & " " & vbTab & objDataReader.GetString(1))
Loop
objDataReader.Close()
End Using
End Using

Con este código no tengo problema.

Lo que necesito es:
1.
LLenar y mostrar un label con el campo3 cada vez que cambie el item seleccionado en el combo.

2.
Guardar el campo1, que esta en ese combo, y el campo3 en una tabla2.

No sé como hacerlo.

¿Alguién tiene alguna idea?

De antemano gracias por su ayuda.

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¡¡ URGENTE !!, ¿SE PODRA?

Publicado por fred (8 intervenciones) el 25/11/2008 21:29:19
Dim conexion2 As String = "cadena de conexion"
Dim miconexion As New Odbc.OdbcConnection(conexion2)
Dim rd As Odbc.OdbcDataReader
Dim comando As New Odbc.OdbcCommand("SELECT T_SERVICIO.SERVICIO, t_servicio.descripcion FROM T_SERVICIO WHERE T_SERVICIO.SERVICIO = '" + cmbcentro.Text + "' ORDER BY T_SERVICIO.SERVICIO ", miconexion)
miconexion.Open()
rd = comando.ExecuteReader
If rd.Read() Then
lbldescripcion.Text = rd("DESCRIPCION")
End If

el codigo anterior va en el combo en el SelectedIndexChanged

me avisas...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¡¡ URGENTE !!, ¿SE PODRA?

Publicado por RICARDO MANCILLA (23 intervenciones) el 25/11/2008 21:41:20
Bueno erikur raudi

Puedes hacer algo, cuando cargues el campo1 y el campo2 en el combo, puedes separarlos por un guion(-), o un / o un o algun simbolo, de tal forma q se puedan identificar claramente los 2 campos. El ejemplo te lo explico con el guion (-).

luego, en el evento SelectedIndexChanged del combo colocas el siguiente codigo:

dim camp1 as string
dim camp2 as string
dim ban As Integer = Len(combobox1.text)
For x As Integer = Len(combobox1.text) To 1 Step -1
If Mid(combobox1.text, x, 1) = "-" Then
camp2= Mid(combobox1.text, x + 1, ban-x)
camp1= Mid(combobox1.text, 1, x-1)
Exit For
End If
Next

De esa forma, obtendras en "camp1" el valor del campo1 y en "camp2" el valor del campo2 que estan separados con el guion, y asi, puedes utilizar esa informacion para ejecutar una sentencia sql y obtener el valor del campo3

sql="select campo3 from tabla where campo1='" & camp1.tostring & "' and campo2='" & camp2.tostring & "'" ........

el resto creo q ya es pintura.....

Espero te sirva, Salu2 desde Bucaramanga, Colombia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¡¡ URGENTE !!, ¿SE PODRA?

Publicado por erikur raudi (3 intervenciones) el 26/11/2008 00:26:48
GRACIAS,

AMBAS OPCIONES SIRVEN MUY BIEN
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar