Atualizar banco de dados
Galera é o seguinte, estou com uma ideia de fazer uma rotina para atualizar o banco de dados firebird dentro da aplicação delphi 7, quando crio registros novos.
Gostaria de saber se alguem tem uma ideia, exemplos?
Gostaria de saber se alguem tem uma ideia, exemplos?
Guigosnet
Curtidas 0
Respostas
Edjlle
27/02/2008
Eu fiz assim:
Tem funcionado bem, usei com componentes ADO do delphi 2007 e Firebird 2.0
function AtualizaTabela: boolean; begin try with Query1 do begin Close; // As próximas 4 linhas fazem um refresh na tabela SQL.Clear; SQL.Add(´Select * from ´ + NomeTabela); // Selecione aqui os campos desejados Open; Close; // Não usar esta linha se estiver conectado a componentes DataControls result := true; end; except result := false; end; end;
Tem funcionado bem, usei com componentes ADO do delphi 2007 e Firebird 2.0
GOSTEI 0
Guigosnet
27/02/2008
é atualizar o registro da tabela msm, criar um campo novo, e ou tabela caso nao exita
GOSTEI 0
Edjlle
27/02/2008
Pra atualizar a tabela, fazendo como disse aí em cima funciona.
Pra inserir novos registros:
Pra criar nova tabela em tempo de execução não posso dizer nada pq nunca fiz.
Pra inserir novos registros:
function InsereRegistro: boolean; var StrSql: string; begin try with Query1 do begin Close; StrSql := ´Insert Into ´+ NomeTabela + ´ ´ + NomeCampo1 + ´ ´ + NomeCampo2 + ´ ´ + NomeCampoN + ´ Values (´ + QuotedStr(ValorCampo1) + ´, ´ + QuotedStr(ValorCampo2) + ´, ´ + QuotedStr(ValorCampoN) + ´)´; SQL.Clear; SQL.Add(StrSql); ExecSQL; result := AtualizaTabela; end; except result := false; // erro de gravação end; end;
Pra criar nova tabela em tempo de execução não posso dizer nada pq nunca fiz.
GOSTEI 0
Paullsoftware
27/02/2008
quais componentes você ta usando?? se for o trio SQLDataSet + DataSetProvider + ClientDataSet basta usar o [b:236fb820fe]ClientDataSet.ApplyUpdates(0)[/b:236fb820fe] depois do [b:236fb820fe]ClientDataSet.Post[/b:236fb820fe] para gravar no banco... agora se tiver fazendo de alguma outra maneira, passa pra gente quais componentes você está usando para que possamos melhor de ajudar blz? :wink:
GOSTEI 0