KALUNGA Postado Junho 30, 2011 Denunciar Share Postado Junho 30, 2011 procedure TForm4.BtnInserirVacinaClick(Sender: TObject);begin if ADOConnection1.Connected = True then begin ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Add('Insert Into Vacinas (cod_vacina, descr_vacina, '+ ' cod_fornecedor)values ('+EdCodVacinas.Text+', '+ ' '+QuotedStr(EdDescrVacina.Text)+', '+ ' '+CodiFornecedor.Text+')'); ADOQuery1.ExecSQL; ShowMessage('Dados inseridos com sucesso!'); end else ShowMessage('Favor conectar no banco de dados');end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 30, 2011 Denunciar Share Postado Junho 30, 2011 Faça uma pesquisa no forum pela palvra updateou então vejahttp://www.w3schools.com/SQl/sql_update.aspabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Julho 1, 2011 Denunciar Share Postado Julho 1, 2011 Olá,você quer fazer um Update mesmo, ou quer fazer funcionar esse Insert que você postou?Abs. Progr'amador Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
KALUNGA
procedure TForm4.BtnInserirVacinaClick(Sender: TObject);
begin
if ADOConnection1.Connected = True then
begin
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add('Insert Into Vacinas (cod_vacina, descr_vacina, '+
' cod_fornecedor)values ('+EdCodVacinas.Text+', '+
' '+QuotedStr(EdDescrVacina.Text)+', '+
' '+CodiFornecedor.Text+')');
ADOQuery1.ExecSQL;
ShowMessage('Dados inseridos com sucesso!');
end else
ShowMessage('Favor conectar no banco de dados');
end;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.