VISUAL BASIC CON ADO Y MYSQL
elrixar
07 de Julio del 2006
Se trata de una aplicaci贸n en Visual Basic cliente servidor donde el servidor empleara ADO para que pueda acceder al driver ODBC que nos permitir谩 conectarnos con MySQL.
Se trata de un servicio de control de mantenimiento de un centro, cualquier cliente puede acceder al servidor y mediante validaci贸n, poder dar de altas, bajas, es decir, cualquier modificaci贸n en las tablas.
Funciona con access y utilizando DAO ( solo me falla la consulta de eliminaci贸n pero espero solucionarlo en breve), el problema es q no se donde modificar el codigo para hacer referencia a que se esta utilizando ADO Yy no se bien donde meterle las cadenas de conexi贸n que hacen referencia al driver odbc y a la versi贸n de turno de mysql.
Por supuesto q se instalar y configurar el odbc y el mysql para vincular las tablas desde access y todo lo demas, mis dudas estan en el codigo.
Ejemplo del codigo que creo q me falta:
Dim CnnService As ADODB.Connection
Dim Cnn4 As New ADODB.Recordset
strConn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=ip_servidor; DATABASE=test;UID=root;PWD=; OPTION=3"
Set CnnService = New ADODB.Connection
CnnService.CursorLocation = adUseClient
dadme un mail y os envio el codigo del servidor por si podeis ayudarme a pasarlo a ADO y meterle la cadena de conexion al odbc y mysql
...ya q en esta web no te deja publicar el code...vaya kk
Se trata de un servicio de control de mantenimiento de un centro, cualquier cliente puede acceder al servidor y mediante validaci贸n, poder dar de altas, bajas, es decir, cualquier modificaci贸n en las tablas.
Funciona con access y utilizando DAO ( solo me falla la consulta de eliminaci贸n pero espero solucionarlo en breve), el problema es q no se donde modificar el codigo para hacer referencia a que se esta utilizando ADO Yy no se bien donde meterle las cadenas de conexi贸n que hacen referencia al driver odbc y a la versi贸n de turno de mysql.
Por supuesto q se instalar y configurar el odbc y el mysql para vincular las tablas desde access y todo lo demas, mis dudas estan en el codigo.
Ejemplo del codigo que creo q me falta:
Dim CnnService As ADODB.Connection
Dim Cnn4 As New ADODB.Recordset
strConn = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=ip_servidor; DATABASE=test;UID=root;PWD=; OPTION=3"
Set CnnService = New ADODB.Connection
CnnService.CursorLocation = adUseClient
dadme un mail y os envio el codigo del servidor por si podeis ayudarme a pasarlo a ADO y meterle la cadena de conexion al odbc y mysql
...ya q en esta web no te deja publicar el code...vaya kk
hebreo1981
07 de Julio del 2006
EE
hebreo1981
07 de Julio del 2006
DB.CursorLocation = adUseClient
DB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=" & Servidor & "; DATABASE=" & Bdatos & ";UID=" & usuario & "; PWD=" & PassW & ";"
DB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=" & Servidor & "; DATABASE=" & Bdatos & ";UID=" & usuario & "; PWD=" & PassW & ";"
hebreo1981
07 de Julio del 2006
MI correo es [email protected]
german ordo?
07 de Julio del 2006
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=mch.orenses.com;" & _
"DATABASE=I300;" & _
"UID=userdatalink1;PWD=datalink; OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
el secreto esta en los valores del OPTION. Prueba y me avisas
german ordo?
07 de Julio del 2006
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=mch.orenses.com;" & _
"DATABASE=I300;" & _
"UID=userdatalink1;PWD=datalink; OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
el secreto esta en los valores del OPTION. Prueba y me avisas