ODBC mediante codigo

[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.