ODBC mediante codigo
 

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.

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