Ver Mensaje Individual
  #7  
Antiguo 18-07-2007
JuanPa1 JuanPa1 is offline
Miembro
 
Registrado: may 2006
Posts: 66
Reputación: 19
JuanPa1 Va por buen camino
Coneccion a BDD

Para conectarte a SQL Server utilizando TADOconnection para la conección y TADOQuery para las consultas o sentencias sql el código es el siguiente:
Código Delphi [-]
ADOConnection.Connected := False;
ADOConnection.ConnectionString:= 'Provider=MSDASQL.1;Persist Security Info=False;User ID='+ Usuario +';Password='+ clave +';Data Source='+ DSN_ODBC + ';';
         Try
         ADOConnection.Connected := True;
         except on e:exception do
         Begin
             showmessage('Error de conexión con Base de Datos :' +      E.Message);
             ADOConnection.Connected := False;
             Exit;
         End;
         end;  
//El codigo anterior te permite crear la conección a la base de datos utilizando un origen de datos(ODBC).
//El siguiente código te permite utilizando TADOQuery crear las consultas o hacer inserciones.
//Ojo..debes enlazar el TADOQuery en su propiedad Connection al TADOConnection.
 
if ADOQuery.Active then ADOQuery.Close;
         ADOQuery.SQL.Clear;
ADOQuery.SQL.add('INSERT INTO tabla (campo1,campo2) VALUES('valor1','valor2') ');
try
ADOQuery.ExecSQL;//esto ejecuta la sentencia sql,se utiliza para sentencias sql q no retornan ningun resultado
except
showmessage('Error al momento de insertar');
end;

//Para las demás bases de datos debes cambiar el proveedor en la cadena de conección, tambien debes tener en cuenta que la sentencia sql cambia de una base de datos a otra.


Saludos.

//Edite: Para colocar etiquetas Delphi...

Última edición por jhonny fecha: 18-07-2007 a las 17:26:52.
Responder Con Cita