Fórum Gravar dados via SQL..... #213527
12/02/2004
0
Query1.append;
e para gravar novos em um table1 eu uso o table1.append; e não da erro porque???
Danielvbhp
Curtir tópico
+ 0Posts
12/02/2004
Paulo_amorim
Que erro ele dá?
para uma Query de inserçao, use ExecSQL...
de qualquer maneira, tente tambem o Post, que faz quase a mesma coisa que o Append...
Gostei + 0
12/02/2004
Danielvbhp
Query1: Cannot modify a read-only dataset.
Mais o que estou fazendo mesmo é o seguinte criei um botão que faz o seguinte..
begin
{ Para Inserir novo Cadastro }
Query1.append;
pagecontrol1.activepage:=tbscadastro;{Ativa o PageControl}
dbedit1.setfocus; {Seleciona o DBedit1 para Digitar}
end;
Mais ele esta me retornando o erro que passei acima....
o que posso fazer???
Gostei + 0
12/02/2004
Danielvbhp
Gostei + 0
12/02/2004
Danielvbhp
Gostei + 0
12/02/2004
Danielvbhp
Gostei + 0
12/02/2004
Paulo_amorim
Esta dando esse erro pois a tabela nao esta em modo de edição.
Tente um Query1.Edit antes do Append, ou qualquer outro comando...
Até +
Gostei + 0
12/02/2004
Danielvbhp
Query1.Edit;
Query1.append;
???
O que deveria ser feito para isso????? funcionar?
Gostei + 0
12/02/2004
Danielvbhp
Gostei + 0
13/02/2004
Danielvbhp
Obrigado....
Gostei + 0
13/02/2004
Aroldo Zanela
Nem sempre uma query resulta num conjunto de dados editável, mas você pode tentar mudar a propriedade RequestLive para true e tentar utilizar o método append, e não é necessário utilizar o método edit.
Exemplo:
object DBGrid1: TDBGrid
Left = 0
Top = 245
Width = 688
Height = 208
Align = alBottom
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = ´MS Sans Serif´
TitleFont.Style = []
end
object Query1: TQuery
Active = True
DatabaseName = ´DBDEMOS´
RequestLive = True
SQL.Strings = (
´SELECT * FROM employee´)
Left = 150
Top = 120
end
object DataSource1: TDataSource
DataSet = Query1
Left = 230
Top = 122
end
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)