ODBC mediante codigo

[sakuragi]

hola que tal

como puedo usar ODBC mediante codigo para conectarme a la base de datos ya sea mysql, intebase o sql server

cual quien aportacion es bien venida

de hante mano gracias
(:


algo parecido como con zeos pero sin el, que no sean nesesarios sus componentes

[mierteran]

Aqui te mando un codigo de ejemplo:

(tienes q usar los controles ADO)

try
ConnectionSTR := '';
ConnectionSTR := ConnectionSTR + 'Provider=MSDASQL.1;';
ConnectionSTR := ConnectionSTR + 'Persist Security Info=False;';
ConnectionSTR := ConnectionSTR + 'Connect Timeout=15;';
ConnectionSTR := ConnectionSTR +
'Extended Properties="DSN=' + <NombreODBC> + ';"';
ConnectionSTR := ConnectionSTR + ';';
with modulodatos do
begin
adoconnection1.ConnectionString := ConnectionSTR;
adoconnection1.close;
adoconnection1.open;
end;
except
on E: Exception do showmessage(E.Message);
end;

Con este codigo conecto yo a mysql, access y oracle.
Existen variaciones en la cadena de conexion para incluir la identificacion de usuario. Puedes ver ejemplos en www.connectionstrings.com.

Espero te sirva de ayuda.

[sakuragi]

hola que tal

gracias por contestar

entonses quedaria asi?

try
ConnectionSTR := '';
ConnectionSTR := ConnectionSTR + 'driver={mysql odbc 3.51 driver}';
ConnectionSTR := ConnectionSTR + 'server=localhost';
ConnectionSTR := ConnectionSTR + 'database=prueva';
ConnectionSTR := ConnectionSTR +'user=root';
ConnectionSTR := ConnectionSTR + 'password=''';
with modulodatos do
begin
adoconnection1.ConnectionString := ConnectionSTR;
adoconnection1.close;
adoconnection1.open;
end;
except
on E: Exception do showmessage(E.Message);
end;


adoconnection.close se va usar para cerrar la conexion
adoconntection.open es para abrirla???


toda la conexion se pued eponer en el formularion

y el .opes y .close cuando se quiere conectar ya sea por un boton y un evento?


de hante mano gracias