denciso

Puedes utilizar el net send en conjunto con un shellexecute o simplemente programar un servicio de servidor y receptor de mensajes como si fuera un chat. Estos tipos de programas los localizas en la siguiente página:

Checa lo siguiente: Dim rs2 As New ADODB.Recordset Set rs2 = ex.Execute("SELECT * FROM pais") Combo2.Clear for icontador = 0 to rs.fields.count - 1 Combo2.AddItem rs2.Fields.name(icontador) next rs2.Close: Set rs2 = Nothing

Normalmente lo realizon un con recordset. with rs .open "Select micampo from mitabla" end with do while not rs.eof Combo1. Additem rs. Fields(0) rs.movenext loop

Tu select esta mal, cambialo por este: Set rs = ex.Execute("select pais from pais where codigopais = '" & a.Text & "'")

Solamente lo puedes hacer teniendo dos conexiones activas y trayendo los datos de búsqueda de una tabla a la otra, ya que si es access, son archivos de datos distintos, si es de otro tipo de base de datos, sql server, puedes referenciar base de datos...

Tienes que verificar las aplicaciones que se localizan en la siguiente liga, ya que no he visto prorgramas de visual basic que hagan lo que comentas, más bien son los proxys y administradores de internet los que hacen esto.

Puedes usar el mscomm para esto entonces, sugiero que verifiques las aplicaciones que se localizan en la siguiente página: Busca aplicaciones de comunicaciones.

La única forma que conozco es realizando otra base de datos y ahí colocar las tres rutas y nombres de tus bases de datos. Posteriormente, lo puedes presentar en el combo que comentas y proceder a pasar este dato para abrir la base de datos seleccioanda.

Los formatos de conexión a bases de datos los localizas en la siguiente página http://www.connectionstrings.com Y aplicaciones de ejemplo en la siguiente:

Puedes usar y adaptar algo como lo siguiente: Screen.MousePointer = HOURGLASS 'Verificamos si la Impresora esta Presente Printer. Print If Err = 482 Then Call Mensaje_VB("La Impresora no se Encuentra Disponible", MB_OK + MB_ICONINFORMATION,...