|
Mostrar Mensajes
|
Páginas: [1]
|
3
|
Programación / Programación Visual Basic / Re: Consulta sql para conectar dos bases de datos de distinto servidor, desde VB6
|
en: 3 Septiembre 2018, 15:16 pm
|
Por ejemplo, la tabla clientes se creará vacía, pero la tabla tipos de cliente tiene que estar llena, y la tabla plan de cuentas también, y la tabla forma de pago, plazos de pago, etc. tienen que estar llenas y no vacías como la de clientes. Como en otro servidor, tengo esas tablas llenas, pues la idea era copiar la tablas, en vez de pegar los registros uno a uno.
|
|
|
4
|
Programación / Programación Visual Basic / Re: Consulta sql para conectar dos bases de datos de distinto servidor, desde VB6
|
en: 3 Septiembre 2018, 15:13 pm
|
Es un procedimiento que se va a usar sólo en el caso de que se acaben de crear las bases de datos vacías y, de esa forma, se llenen las tablas que tienen que tener una serie de datos por defecto. Si no me explico bien te ruego me disculpes, pero lo que necesito es que, al abrir el sistema, si se han tenido que crear las tablas porque no existen, además de crear las tablas que tienen que estar vacías, copie las que tienen que estar llenas desde otro servidor. Y eso es lo que no consigo, porque registro a registro ya lo tengo, pero es muy muy muy lento. Gracias.
|
|
|
6
|
Programación / Programación Visual Basic / Consulta sql para conectar dos bases de datos de distinto servidor, desde VB6
|
en: 3 Septiembre 2018, 10:04 am
|
Buenos días. Soy nueva en elhacker, así que disculpadme si algo no hago bien.
Se me presenta un problema a la hora de obtener datos de una base situada en un servidor para pasarlos a otra base de otro servidor.
El código es el siguiente:
On Error Resume Next strConexion1 = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=zz.zzz.zzz.zz;DATABASE=NombreBase;USER=Usuario;PASSWORD=Psw" strConexion2 = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=xx.xxx.xxx.xx;DATABASE=NombreBase;USER=Usuario;PASSWORD=Psw" Dim cAbantisDB As New ADODB.Connection Dim cABDat As New ADODB.Connection cABDat.open strConexion1 cAbantisDB.open strConexion2 If Err.Number <> 0 Then 'error Exit Sub End If cABDat.Execute "INSERT INTO Tabla SELECT * FROM cAbantisDB.dbo.Tabla" Debug.Print Err.Description
Devuelve error: [MySQL][ODBC 3.51 Driver][mysqld-5.1.73]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '.tbAccesos2' at line 1
Sé que el problema lo tengo al llamar a cAbantisDB, pero no sé cómo incluirlo dentro de la consulta sql. He mirado el manual, he buscado por la web, pero no consigo dar con la solución.
Alguien podría echarme una mano?
|
|
|
|
|
|
|