Parâmetros??? O que é isso????
28/03/2003
0
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....
Valeu....
Marciojse
Curtir tópico
+ 0
Responder
Posts
28/03/2003
Anonymous
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;
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)