Parâmetros??? O que é isso????

Delphi

28/03/2003

Caros senhores como faço para inserir em uma tabela o conteúdo de vários Edits e um Memo usando SQL com parâmetros???
Valeu....


Marciojse

Marciojse

Curtidas 0

Respostas

Anonymous

Anonymous

28/03/2003

Exemplo:

qry.SQL.Text := ´INSERT INTO TB_FUNCI (CD_FUNCI,NOME_FUNCI,DT_NASCIMENTO,SALARIO,OBSERVACAO) VALUES (:CD_FUNCI,:NOME_FUNCI,:DT_NASCIMENTO,:SALARIO,:OBSERVACAO)´
qry.ParamByName(´CD_FUNCI´).AsInteger := StrToInt(Edit1.Text);
qry.ParamByName(´NOME_FUNCI´).AsString := Edit2.Text;
qry.ParamByName(´DT_NASCIMENTO´).AsDateTime := StrToDate(Edit3.Text);
qry.ParamByName(´SALARIO´).AsFloat := StrToFloat(Edit4.Text);
qry.ParamByName(´OBSERVACAO´).AsString := Memo1.Text;
try
qry.ExecSQL;
except
ShowMessage(´Não foi possível incluir funcionário!´);
end;


GOSTEI 0
POSTAR