Insert com SQL em Tabela do Acess
18/12/2003
0
Uso este seguinte comando para dar insert em minha tabela, ele funciona mais ta faltando mais campos e não sei como fazer.
ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.add(´insert into TabValeCompras(nome)values(´+Chr(39) + DBE2Cupom.Text + Chr(39) +´)´);
ADOQueryCupom.ExecSQL;
Aqui estou fazendo insert no campo NOME, mais tenho que fazer o seguinte dar um insert com MATRICULA que e um campo integer, NOME string, CODIGOVALE que e integer, DESCRICAOVALE string, preciso fazer insert em todos de uma vez, alguem pode me ensinar.
Obrigado.
ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.add(´insert into TabValeCompras(nome)values(´+Chr(39) + DBE2Cupom.Text + Chr(39) +´)´);
ADOQueryCupom.ExecSQL;
Aqui estou fazendo insert no campo NOME, mais tenho que fazer o seguinte dar um insert com MATRICULA que e um campo integer, NOME string, CODIGOVALE que e integer, DESCRICAOVALE string, preciso fazer insert em todos de uma vez, alguem pode me ensinar.
Obrigado.
Uoquisala
Curtir tópico
+ 0
Responder
Posts
18/12/2003
Rock.it
INSERT INTO Customer
(CustNo, Company)
VALUES (:CustNo, :CompanyName)
(.....)
with ADOQuery2 do begin
DataSource := DataSource1;
ParamByName(´CompanyName´).AsString := Edit1.Text;
Prepared := True;
ExecSQL;
end;
Ola,
to postando essa parte do help so para confirmar msm, nunca usei ADO,
mas o padrão para vc passar valores para uma Query é usar parametros,
ou seja a sua query ficaria assim:
SQL.Add(´Insert into TabValeCompras(nome,matricula,codigovale,descricaovale)´); SQL.Add(´values(:nome,:matricula,:codigovale,:descricaovale)´); ParamByName(´nome´).asString := valortal; ParamByName(´matricula´).AsInteger := valorb; ParamByName(´codigovale´).AsString := valor; ParamByName(´descricaovale´).AsString := valordescricaovale; ExecSQL;
O o nome do parametro é o q vem depois dos dois pontos.
Espero ter ajudado!
:arrow: rock.it
Responder
Clique aqui para fazer login e interagir na Comunidade :)