Ir para conteúdo
Fórum Script Brasil

KALUNGA

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre KALUNGA

KALUNGA's Achievements

0

Reputação

  1. 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;
×
×
  • Criar Novo...