todook
16-11-2006, 20:26:38
procedure TForm1.Button4Click(Sender: TObject);
begin
query1.Open;
query1.SQL.Clear;
query1.SQL.Add('UPDATE NOMBRE SET NOME= :VALOR1,APELLIDO=:VALOR2,TELEFONO=:VALOR3,DNI=:VALOR4 WHERE NOME= :VALOR5');
query1.SQL.Add('WHERE NOME = :VALOR5');
Query1.ParamByName('VALOR1').AsString := Edit1.Text;
Query1.ParamByName('VALOR2').AsString := Edit2.Text;
Query1.ParamByName('VALOR3').VALUE := Edit3.Text;
Query1.ParamByName('VALOR4').Value := Edit12.Text;
Query1.ParamByName('VALOR5').asstring := Edit13.Text;
query1.ExecSQL;
end;
si me pueden ayudar joya la idea de esto es simplemente el boton modificar de una tabla, ya me salio el alta y la baja pero este me esta trayendo problemas..se que es lo mismo en teoria pero bueno me trae problemas que se yo....AYUDAAAA..CHAU GRACIAS
begin
query1.Open;
query1.SQL.Clear;
query1.SQL.Add('UPDATE NOMBRE SET NOME= :VALOR1,APELLIDO=:VALOR2,TELEFONO=:VALOR3,DNI=:VALOR4 WHERE NOME= :VALOR5');
query1.SQL.Add('WHERE NOME = :VALOR5');
Query1.ParamByName('VALOR1').AsString := Edit1.Text;
Query1.ParamByName('VALOR2').AsString := Edit2.Text;
Query1.ParamByName('VALOR3').VALUE := Edit3.Text;
Query1.ParamByName('VALOR4').Value := Edit12.Text;
Query1.ParamByName('VALOR5').asstring := Edit13.Text;
query1.ExecSQL;
end;
si me pueden ayudar joya la idea de esto es simplemente el boton modificar de una tabla, ya me salio el alta y la baja pero este me esta trayendo problemas..se que es lo mismo en teoria pero bueno me trae problemas que se yo....AYUDAAAA..CHAU GRACIAS