PDF de programación - Pasos para crear una consulta a una base de datos con Delphi 6.0

PASOS PARA CREAR UNA CONSULTA A UNA BASE DE DATOS CON DELPHI 6.0 (Por FCC)


0.- Crear un dsn llamado dsnxxx que apunte a la tabla tblentalu de la BD llamada Escolar

1.- Formulario Form1



Propiedades de los controles usados:

Adoconnection1:
Name= ADOConnection1
ConnectionString= apunta al dsn creado con odbc32
Connected=True

ADOStoredProc1:
Name=ADOStoredProc1
Connection=cnescolar
ProcedureName=consultaalumnos;1 Nombre del procedimiento almacenado en la BD.

Datasource1:
Name=DataSource1
Dataset=ADOStoredProc1

DBGrid1:
Datasource= DataSource1

Controles Adicionales: Edit1, Label1, Button1 y Button2.

2.- Código de los Botones:

procedure TForm1.Button1Click(Sender: TObject);

begin

with adostoredproc1 do
begin
parameters.ParamByName('@mat').Value:=edit1.text;
open;
end;
button1.Enabled :=false;
button2.Enabled :=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adostoredproc1.Close ;
button1.Enabled :=true;
button2.Enabled :=false;
edit1.SetFocus;
end;