Cómo conectar Delphi y Access

1.Modo de conexión a la base de datos SQL:

Condiciones: Nombre del control: AdoConnecion1, Nombre de la base de datos: Muestra, ID de usuario: sa Contraseña: 123, Dirección de la base de datos: Local

AdoConnection1.ConnectionString: = 'Proveedor='SQLOLEDB.1; Contraseña=123; Información de seguridad persistente=Verdadero; ID de usuario=Sa; ;Directorio inicial=Muestra;Fuente de datos='''. SQLOLEDB.1; Contraseña=123; Persistir información de seguridad=Verdadero; ID de usuario=sa; Catálogo inicial=Muestra de datos=.

Adoconnection1.LoginPrompt:=False;

Adoconnection1 .Connected:=True;

El código anterior es el código para conectarse a la base de datos SQL: la última oración Fuente de datos=. donde "."" significa que la base de datos está en la máquina local. Si los datos están en otra parte, el puntero cambiará a la dirección IP o al nombre del servidor.

2.ACCESO a la conexión de la base de datos:

Condición: Adoconnection1, nombre de la base de datos: Contraseña de ejemplo: 123, la ruta del archivo de la base de datos es el directorio raíz al que accede el programa.

procedimiento TDataModule1.DataModuleCreate(Remitente: TObject);

var

DbPath: String

comenzar

DbPath:= ExtractFilePath(Application.ExeName) 'Sample.mdb';

Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB: Contraseña de la base de datos=123;Fuente de datos= 'DbPath';Información de seguridad persistente=false';

Adoconnection1.LoginPrompt:=False;

Adoconnection1.Connected:=True;

Fin;

p>