problemas con combobox y BD acces
Publicado por Ricardo Vazquez (1 intervención) el 07/12/2009 21:18:28
Hola a todos , estoy empesando a programar en visual basic , tengo que hacer un programita con una base datos en Acces y conexion ADO , El problema es que necesito que al traer un dato (en este caso el nombre) en un combobox y me tiene que mostrar el numero de ip en un textbox , para asi poder conectarme con vnc
adjunto el codigo para ver si me pueden ayudar
lo otro que necesito es de alguna forma , buscar , agregar , modificar y eliminar los locales con su numero de IP correspondiente , agradezco cualquier ayuda , saludos
Private Sub Form_Load()
Call conectar
rst.Open "Select * from locales", cn, adOpenStatic, adLockOptimistic
Do Until rst.EOF
Combo1.AddItem rst!nombre
Text1.AddItem rst!ip
rst.MoveNext
Loop
End Sub
Private Sub Label1_Click()
End Sub
Private Sub listadolocales_Click()
Form2.Show
End Sub
Private Sub listadousuarios_Click()
Form3.Show
End Sub
Private Sub menu_Click()
Form4.Show
End Sub
Private Sub Picture1_Click()
Shell (App.Path & "\vncviewer.exe " & Text1.Text)
Text1 = ""
End Sub
Private Sub Picture2_Click()
Shell (App.Path & "\shutdown.exe ")
End Sub
Private Sub Picture3_Click()
Shell (App.Path & "\encenderpc.exe ")
End Sub
Private Sub salir_Click()
Unload Me
End Sub
adjunto el codigo para ver si me pueden ayudar
lo otro que necesito es de alguna forma , buscar , agregar , modificar y eliminar los locales con su numero de IP correspondiente , agradezco cualquier ayuda , saludos
Private Sub Form_Load()
Call conectar
rst.Open "Select * from locales", cn, adOpenStatic, adLockOptimistic
Do Until rst.EOF
Combo1.AddItem rst!nombre
Text1.AddItem rst!ip
rst.MoveNext
Loop
End Sub
Private Sub Label1_Click()
End Sub
Private Sub listadolocales_Click()
Form2.Show
End Sub
Private Sub listadousuarios_Click()
Form3.Show
End Sub
Private Sub menu_Click()
Form4.Show
End Sub
Private Sub Picture1_Click()
Shell (App.Path & "\vncviewer.exe " & Text1.Text)
Text1 = ""
End Sub
Private Sub Picture2_Click()
Shell (App.Path & "\shutdown.exe ")
End Sub
Private Sub Picture3_Click()
Shell (App.Path & "\encenderpc.exe ")
End Sub
Private Sub salir_Click()
Unload Me
End Sub
Valora esta pregunta


0