Boa noite!
Gostaria de começar me desculpando, pois minha mensagem não ajudará no problema
objetivo mas sim serve como uma recomendação / conselho / dica / etc.
Acho que não compensa muito se dar ao trabalho de montar uma apostila para
iniciantes abordando BDE e Paradox, já que existem muitas apostilas abordando
essa mesma dupla. Por que não Firebird e DBExpress?
É só uma sugestão e por favor, não se sinta ofendido até pq a iniciativa de
abordar ADO e ACCESS por outro lado, é muito boa.
Atte,
Ricardo.
--- Em qua, 18/6/08, Rogerio Rios Pessanha <[EMAIL PROTECTED]> escreveu:
De: Rogerio Rios Pessanha <[EMAIL PROTECTED]>
Assunto: [delphi-br] Paradox X Table X DblookupCombobox ,o que posso melhorar ?
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 18 de Junho de 2008, 20:16
Estou montando uma apostila para inciantes ( tambem sou em DELPHI
), e
entao resolvi mostrar como fazer com BDE PARADOX e ADO ACCESS.
Criei a Integridade referencial entre os campos MATRICULA das tabelas
alunos e notas (era necessário ?????? )( utilizei o DATABASE DESKTOP e
mostrei na apostila com imagens).O form possui 1 DBGRID, 3 Dbedits (
para as notas ),3 botoes ( INCLUIR, GRAVAR E EXCLUIR ) e 1
dblookupcombobox.
Coloquei o codigo abaixo. Mas testando antes de começar a dar as
aulas, sempre ocorre KEY VIOLATION ( sei o que quer dizer, mas nao
entendo o porque que está acontecendo ).
Tambem, queria ensinar fazer "na munheca" a inserção dos
dados(utilizando EDIT´S ao invés de DBedit´s) com FIELDBYNAME mas nao
consegui fazer o valor do DBlookupcombobox ( vejam a linha abaixo do
TBNOTS.INSERT ), tentei usar o KeyValue mas na hora deu erro de conversão.
Alguem pode me ajudar ?
procedure TFrnotasalu. Button1Click( Sender: TObject);
begin
TBNOTAS.Insert;
{tbnotas.fieldbynam e('matricula' ).asinteger: = db1.KeyValue; // nao
funcoinou
tbnotas.fieldbyname ('nota1') .asfloat: = strtofloat(edit1. text);
tbnotas.fieldbyname ('nota2') .asfloat: = strtofloat(edit2. text);
tbnotas.fieldbyname ('nota3') .asfloat: = strtofloat(edit3. text);}
end;
procedure TFrnotasalu. FormActivate( Sender: TObject);
begin
tbnotas.open;
end;
procedure TFrnotasalu. Button2Click( Sender: TObject);
begin
tbnotas.post;
end;
procedure TFrnotasalu. Button3Click( Sender: TObject);
begin
tbnotas.Delete;
end;
procedure TFrnotasalu. tbnotasAfterPost (DataSet: TDataSet);
begin
Tbnotas.FlushBuffer s;
end;,_._,___
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
