Gravar dados via SQL.....

Delphi

12/02/2004

Ola estou tentando gravar novos registros na minha tabela.db e não estou conseguindo.... estou usando o seguinte comando...
Query1.append;


e para gravar novos em um table1 eu uso o table1.append; e não da erro porque???


Danielvbhp

Danielvbhp

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

12/02/2004

Olá

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
Danielvbhp

Danielvbhp

12/02/2004

O erro que esta dando é o seguinte :

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
Danielvbhp

Danielvbhp

12/02/2004

????


GOSTEI 0
Danielvbhp

Danielvbhp

12/02/2004

????


GOSTEI 0
Danielvbhp

Danielvbhp

12/02/2004

Ola será que alguém poderia me responder????


GOSTEI 0
Paulo_amorim

Paulo_amorim

12/02/2004

Olá

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
Danielvbhp

Danielvbhp

12/02/2004

cara tbm tentei fazer isso mais não deu certo... com o comando
Query1.Edit;
Query1.append;

???

O que deveria ser feito para isso????? funcionar?


GOSTEI 0
Danielvbhp

Danielvbhp

12/02/2004

o que eu presiço fazer para que isto funcione???


GOSTEI 0
Danielvbhp

Danielvbhp

12/02/2004

Ola alguém poderia postar alguma resposta para este topico

Obrigado....


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

12/02/2004

Colega,

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
POSTAR