varios dbedits de uma vez só

Delphi

19/09/2003

eu to com um problema no meu programa.
eu to usando o componete query para as minha tabelas, 22 dbedit.text.

eu quero saber como eu faço para enviar tudo o que eu digitei nesses edits de uma só vez.

query1.close;
query1.sql.clear;
query1.sql.add (insert into nascimentos (aqui seria todas os registros) values (aqui seria tudo o que tem nos edits);
query1.execsql;


Anjomd

Anjomd

Curtidas 0

Respostas

Koplin

Koplin

19/09/2003

query1.close;
query1.sql.clear;
query1.sql.add (insert into nascimentos (campofloat,campostring,cam´postring) values (edit1.text+´,´´´+edit2.text+´´´,´´´+edit3.text+´´´´);
query1.execsql;

Campos tipo data (em alguns bancos de dados) e string devem ser precedidos e procedidos por ´´

se não quiser confusão com as aspas pode usar a função edit1.text+´,´ + QuotedStr(edit2.text)+´,´+QuotedStr(edit3.text)


GOSTEI 0
Anjomd

Anjomd

19/09/2003

eu posso fazer isso?

dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
dbedit5.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit8.Enabled:=true;
dbedit9.Enabled:=true;
dbedit10.Enabled:=true;
dbedit11.Enabled:=true;
dbedit12.Enabled:=true;
dbedit13.Enabled:=true;
dbedit14.Enabled:=true;
dbedit15.Enabled:=true;
dbedit16.Enabled:=true;
dbedit17.Enabled:=true;
dbedit18.Enabled:=true;
dbedit19.Enabled:=true;
dbedit20.Enabled:=true;
dbedit21.Enabled:=true;
dbedit22.Enabled:=true;
dbmemo1.Enabled:=true;
BitBtn1.Enabled:=false;
BitBtn2.Enabled:=false;
BitBtn3.Enabled:=false;
BitBtn4.Enabled:=true;
BitBtn5.Enabled:=true;
BitBtn6.Enabled:=false;
BitBtn7.Enabled:=false;
BitBtn8.Enabled:=false;
dbedit1.SetFocus;
Query1.Append;


sem dar o seguinte erro.

query1: connot modify a read-only dataset

quando eu clicar no botão novo.


GOSTEI 0
Marcelo.c

Marcelo.c

19/09/2003

Tente simplificar o código:

 for i:= 1 to ComponentCount -1 do 
   if (Components[i] is TDBEdit) then 
     (Components[i] as TDBEdit).Enabled:=True;



GOSTEI 0
Anjomd

Anjomd

19/09/2003

sim eu simplifiquei obrigado pela imformação.

e quanto a menssagem de erro quando eu clico no botão NOVO

query1: connot modify a read-only dataset

o que eu fiz de errado?


GOSTEI 0
Marcelo.c

Marcelo.c

19/09/2003

Quais objetos você utiliza, BDE, ADO, IBX ou DBExpress ?

Caso seja um dos dois últimos, dê uma olhada neste Post:

http://delphiforum.icft.com.br/forum/viewtopic.php?t=22072&highlight=cannot+modify+a+readonly+dataset


GOSTEI 0
Anjomd

Anjomd

19/09/2003

eu estou usando querye do DBE


GOSTEI 0
POSTAR