Hola
Tengo el siguiente problela
estoy haciendo un procedimiento que me permite copiar una base de datos (estructuras y datos), el proceso lo hace en forma correcta en la mayoria de las tablas, pero solo en algunas tablas (5 de 63) al copiar la estructura me envia un error, y es por que en el texto que obtiene para crear la tabla viene dañado, con unos caracteres no validos, lo que hace que la instruccion SQL para crear la tabla venga malo.,
Este es el codigo que utilizo para hacer la copia de las estructuras
Código:
'Abriendo la base de origen
tConexionBDD = "DSN=nombreodbc;UID=usuario;PWD=clave;database=" & nbd_origen & ";"
Dim OBDOrigen As ADODB.Connection
Set OBDOrigen = New ADODB.Connection
OBDOrigen.ConnectionString = tConexionBDD
OBDOrigen.Open
'Abriendo la base de copia
tConexionBDD = "DSN=nombreodbc;UID=usuario;PWD=clave;database=" & nbd_copia & ";"
Dim OBDCopia As ADODB.Connection
Set OBDCopia = New ADODB.Connection
OBDCopia.ConnectionString = tConexionBDD
OBDCopia.Open
Dim SQLCreaTabla As String
Dim RSTabla As ADODB.Recordset
Set RSTabla = New ADODB.Recordset
'Obtiene la estructura de la tabla desde el origen
SQL = "SHOW CREATE TABLE " & nbd_origen & "." & nombretabla & ";"
Set RSTabla = OBDOrigen.Execute(SQL)
SQLCreaTabla = RSTabla.Fields(1).Value
'Crea la estructura en el destino
OBDCopia.Execute SQLCreaTabla
Lo que me parece extraño es que cuando hago esta copia directo por el Navicat (Aplicacion que aministra la base de datos mysql) es que lo hace bien, lo cual me hace pensar que es un problema de Visual Basic 6
que estare haciendo mal ?