Como grabar información de un TDBLookupComboBox en un base de datos

(Para roberboy 68) gracias rober si me funciono muy bien gracias pero quisiera pedirte otro favor anteriormente me mandaste un ejemplo donde podía guardar la información en una base de datos con esta sintaxis :

var
insertar:string;
begin
insertar:= 'INSERT INTO DATOS (NOMBRE,APELLIDO_PATERNO,APELLIDO_MATERNO,'+
'FECHA_NACIMIENTO) VALUES('+
CHR(39)+Trim(Nombre.Text)+CHR(39)+','+
CHR(39)+Trim(Apellido_Paterno.Text)+CHR(39)+','+
CHR(39)+Trim(Apellido_Materno.Text)+CHR(39)+','+
CHR(39)+Trim(Fecha_Nacimiento.Text)+CHR(39)+')';
showMessage(insertar);
ADOQuery1.SQL.Add(insertar);
ADOQuery1.ExecSQL;
showMessage('Se registro el estudiante');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOConnection1.Connected:=false;
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected:=true;
end;

end.

Ahora mi pregunta es como hacer la sintaxis para que esos TDBLookupComboBox puedan guardar información en esa base de datos gracias rober espero que puedas ayudarme

1

1 respuesta

Respuesta
1

Ya te envié el proyecto, a continuación te pongo el código:

insertar:= 'INSERT INTO DATOS (NOMBRE,APELLIDO_PATERNO,APELLIDO_MATERNO,'+
'FECHA_NACIMIENTO) VALUES('+
CHR(39)+DBLCB_Regiones.Text+CHR(39)+','+
CHR(39)+Trim(Apellido_Paterno.Text)+CHR(39)+','+
CHR(39)+Trim(Apellido_Materno.Text)+CHR(39)+','+
CHR(39)+Trim(Fecha_Nacimiento.Text)+CHR(39)+')';
showMessage(insertar);

ADOQuery1.SQL.Add(insertar);
ADOQuery1.ExecSQL;
ShowMessage('Se registro el estudiante');

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas