| Pregunta: | 43834 - ACCESO BD EN INTERNET CON VB6 |
| Autor: | Israel Prados |
| Tengo una aplicacion en VB6 sobre Access. La base de datos esta en un servidor y los equipos atacan la BD a través de ADODB y reportan informes. Ahora viene el problema. Me urge trasladar esta BD a un servidor externo, fuera de la red local; continuar con la aplicación y que sigan los usuarios accediendo como hasta ahora; con los minimos cambios posibles (por falta de tiempo). ¿Esto es posible?. ¿Que resultado obtendría?
Un saludo, gracias. | |
| Respuesta: | SuNcO |
| Uhm.. yo tengo un ejemplo de conectar VB a un servidor externo con MySql, no se si te sirva
En un boton pon : Dim conn As ADODB.Connection Set conn = New ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim campo As ADODB.Field conn.CursorLocation = adUseClient conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=" & ip & ";" _ & "DATABASE=base_de_datos;" _ & "UID=tu_usuario;" _ & "PWD=tu_clave;" _ & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 conn.Open rs.Open "SELECT * FROM usuarios", conn, adOpenStatic, adLockReadOnly Do Until rs.EOF For Each campo In rs.Fields If campo.Name = "usuario" Then List1.AddItem campo.Value End If Next rs.MoveNext Loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing En las referencias debes tener activado el "Microsoft ActiveX Data Objects 2.0 Library".. creo tienes que bajarlo de la pagina oficial de mysql (mysql.com).. creo se llama MyOdbc | |