Ir para conteúdo
Fórum Script Brasil

ruyinfoa2008

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que ruyinfoa2008 postou

  1. Olá galera, consegui conectar um banco de dados no access (.mdb) e fazer a consulta, e preciso de ajuda agora para inserir dados em uma tabela desse banco de dados e o que eu tenho feito não deu certo. Gostaria de alguma ajuda. Desde já agradeço a boa vontade em me ajudar. o código até o momento ficou assim: DataModule2.ClientDataSet1.Close; DataModule2.ADODataSet1.CommandText:='select * from "Acessos"'; DataModule2.ClientDataSet1.Open; DataModule2.ClientDataSet1.Edit; DataModule2.ClientDataSet1.Insert; DataModule2.ClientDataSet1.FieldByName('Num_Acesso').AsInteger:=Num_acesso; DataModule2.ClientDataSet1.FieldByName('Nome').AsString:=EditNome.Text; DataModule2.ClientDataSet1.FieldByName('Data').AsString:=MaskEditData.Text; DataModule2.ClientDataSet1.FieldByName('Curso').AsString:=ListItem.Caption; DataModule2.ClientDataSet1.FieldByName('Hora_inicio').AsString:=MaskEditHoraInicio.Text; DataModule2.ClientDataSet1.FieldByName('Laboratorio').AsString:=EditLaboratorio.Text; DataModule2.ClientDataSet1.FieldByName('Computador').AsString:=EditComputador.Text; DataModule2.ClientDataSet1.FieldByName('Hora_fim').AsString:=MaskEditHoraFinal.Text; DataModule2.ClientDataSet1.Post; DataModule2.ClientDataSet1.ApplyUpdates(0); ShowMessage('Acesso Cadastrado com sucesso pelo sistema!'); Quando o programa é executado, mostra a seguinte mensagem de erro: "....raised exception class EOleException with message 'Erro de sintaxe na consulta. Cláusula de consulta incompleta'. " É isso que mostra lá. Obrigado pela atenção!
  2. Deu certo aqui, mas eu tive que fazer uns códigos que fizeram quebrar muito a cabeça... O meu código ficou assim: procedure TFormControle.BitBtnConsultarClick(Sender: TObject); var num_codhab: string; begin DataModule2.ClientDataSet1.Close; DataModule2.ADODataSet1.CommandText:= 'select * from alunos where matricula=:pmatricula'; DataModule2.ADODataSet1.Parameters.ParamByName('pmatricula').Value:= editmatricula.text; DataModule2.ClientDataSet1.Open; if not DataModule2.ClientDataSet1.Eof then begin EditNome.text:= DataModule2.ClientDataSet1.FieldByName('nome').asstring; num_codhab:=DataModule2.ClientDataSet1.FieldByName('CODHAB').AsString; DataModule2.ClientDataSet1.Close; DataModule2.ADODataSet1.CommandText:= 'select * from cursos where codhab=:pcodhab'; DataModule2.ADODataSet1.Parameters.ParamByName('pcodhab').Value:= num_codhab; DataModule2.ClientDataSet1.Open; ListItem:=ListView1.Items.Add; ListItem.Caption:=DataModule2.ClientDataSet1.FieldByName('habilita').AsString; end else begin ShowMessage('Matrícula inexistente!'); end; Muito obrigado aê Jhonas!!!
  3. Caros amigos, Estou começando com programação e estou fazendo meu primeiro programa e não estou conseguindo fazer o meu programa buscar um dado no banco de dados mdb do access. Eu uso o Turbo Delphi e gostaria de uma ajuda, por favor!!! O código que estou usando é o seguinte: procedure TFormControle.BitBtnConsultarClick(Sender: TObject); begin DataModule2.ADODataSet1.Close; DataModule2.ADODataSet1.CommandText:='select * from "alunos" where "MATRICULA" ='+ EditMatricula.Text; DataModule2.ADODataSet1.Open; if not DataModule2.ADODataSet1.Eof then begin EditNomeAluno.Text:=DataModule2.ADODataSet1.FieldByName('NOME').AsString; Desde já agradeço!
×
×
  • Criar Novo...