[delphi-br] Inclusão com DBExpress
Pessoal, Estou iniciando no Delphi 7 e estou utilizando DBExpress para falar com o Firebird, e estou utilizando os seguintes componentes: TSQLConnection TSQLQuery TDataSetProvider TClientDataSet TDataSource No TSQLQuery fiz um select de uma tabela sem join, uma única tabela Na tela ele me trouxe os dados direitinhos, Mas quando tento incluir recebo a seguinte mensagem: 'Cannot modify a ready-only dataset' E realmente não defini em nenhum lugar um comando de INSERT, UPDATE ou DELETE. Como posso resolver esse problema ? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Componentes de acesso ao Firebird
Vlw pessoal, Obrigado pelas dicas !!! 2008/9/9 Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Zeus??? Componente novo q eu não conheço??? Não seria ZEOS (com O), encontrado em http://zeos.firmos.at/ em sua versão 6.6.3-stable. Se for esse, vale a pena usá-lo e não vi razão para usar um componente pago no lugar dele. --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] willianjhonnes%40yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] fellipeh%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 9 de Setembro de 2008 18:18:04 Assunto: Re: [delphi-br] Re: Componentes de acesso ao Firebird Depende... Gratuito.: Zeus Pago.: IBDAC, FibPlus Nenhum se compara ao IBDAC. agora quanto ao DBGrid e tals, isso depende muito do seu jeito de programar, eu uso os Grids da DevExpress.. .. mas é questão pessoal isso... []s 2008/9/9 lhsevero [EMAIL PROTECTED] s.com.br Dá uma olhada no MDO (http://sourceforge. net/projects/ mdo). É uma suite de componentes muito boa, feita por um brasileiro. Não sei se deram continuidade pois faz tempo que não programo em Delphi para FireBird. Abraços Luiz Henrique Severo --- Em [EMAIL PROTECTED] os.com.br delphi-br%40yahoog rupos.com. br, Satoy Matsuoka [EMAIL PROTECTED] escreveu Pessoal, Estou começando a utlizar o D7 com o FB, qual o melhor tipo de componente ? E qual seria a melhor biblioteca de DB (ex. DBgrid) para utilizar com o D7 e FB ? Grato pela dica []'s Satoy [As partes desta mensagem que não continham texto foram removidas] -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique http://tecfree. wordpress. com/ [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes de acesso ao Firebird
Pessoal, Estou começando a utlizar o D7 com o FB, qual o melhor tipo de componente ? E qual seria a melhor biblioteca de DB (ex. DBgrid) para utilizar com o D7 e FB ? Grato pela dica []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TreeView
Bom dia pessoal, Gostaria de um Help com TreeView. Após criar um novo item queria que o foco ficasse no item que acabei de criar, tipo um SETFOCUS no item. Ví no manual e exemplos pela NET mas não vi nada que faça isso. Alguém saberia me dizer como poderia colocar o foco no item que acabei de criar Obrigado []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBExpress X IBX
Pessoal, Com Firebird, qual o melhor ?? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Commit automático
Obrigado Fábio,
Mas quando utilizo uma tabela ???
Na verdde uso Tquery pq as próprias pessoas da lista me disseram que não
poderia utilizar o Ttable.
Mas uso o DBgrid ou DBEdit e DBnavigator ...
Onde vou dar o commit
E como ???
Grato
Abraços
[]'s
Satoy
Em 30/08/07, fabio giro [EMAIL PROTECTED] escreveu:
Quando trabalhava com IBX fazia assim:
with DM.qryManut do
begin
close;
sql.clear;
if btIncAlt.caption = 'Incluir' then
begin
sql.add('INSERT INTO EMPRESA (CODEMP, DESCRICAO) sql.add(' VALUES
(:pcodemp, :pdescr);
end
else
if btIncAlt.caption = 'Alterar' then
begin
sql.add('UPDATE EMPRESA');
sql.add(' SET DESCRICAO = :pdescr');
sql.add(' WHERE CODEMP = :pcodemp');
end;
if not Transaction.InTransaction then
Transaction.StartTransaction;
prepare;
Params.ByName('pcodemp').asstring := trim(edtCodEmp.text);
Params.ByName('pdescr').asstring := trim(edtDescr.text);
ExecQuery;
try
Transaction.Commit;
except
Transaction.Rollback;
end;
end;
Mais uma coisa, sempre que você acessar o banco (select, insert, update,
delete), tem que dar commit;
Espero ter ajudado.
Satoy Matsuoka [EMAIL PROTECTED] satoym%40gmail.com escreveu:
Olá Rubem,
Mas não é o que ocorre com minha aplicação.
Ex. se estou na tela simples (Cód. descrição).
Depois que faço a atualização, (aperto o botão de insert do DBNavigator),
e
sem sair da tela, faço a query por fora do sistema, ela não me responde
com
as alterações feitas.
Somente depois que saido, ou dou um commit explícito, é que enchergo as
alterações.
Então estou fazendo algo de errado na minha estrutura ??
Grato
[]'s
Satoy
Em 30/08/07, Rubem Nascimento da Rocha [EMAIL
PROTECTED]djpardalrocha%40hotmail.com
escreveu:
Até onde me consta, em qualquer SGBD relacional, se você envia somente
uma
instrução SQL de DML (INSERT, UPDATE ou DELETE) ao banco de dados, e
este
não está envolvido em um contexto transacional, o COMMIT ocorrerá de
forma
automática pelo servidor.
Ou seja, se você tem várias operações SQL de DML que necessitam ser
efetivadas de forma atômica (ou seja, ou tudo ou nada!), faça o contexto
transacional (START TRANSACTION/COMMIT/ROLLBACK) envolvendo todas essas
operações. Se for apenas uma única operação, o banco se encarrega de
fazer
COMMIT ou ROLLBACK automático se ocorrer alguma operação errada.
Sds.
To: [EMAIL PROTECTED]delphi-br%40yahoogrupos.com.brFromdelphi-br%40yahoog
rupos.com.brFrom:
[EMAIL PROTECTED] satoym%40gmail.comDate satoym%40gmail.comDate:
Thu, 30 Aug 2007 11:34:22
-0300Subject: [delphi-br] Commit automático
Bom dia pessoal,Estou usando o D7 com Firebird e IBX.Queria saber se
existe alguma forma de configurar o Delphi para fazer ocommit
automático.Ou seja qq insert já faz o commit.Seja em um execsql, ou
usando
um DBNagivator ...Sem ter que ficar dando o Commit explicito.Grato
[]'s[As
partes desta mensagem que não continham texto foram removidas]
__
Receba as últimas notícias do Brasil e do mundo direto no seu Messenger
com Alertas MSN! É GRÁTIS!
http://alertas.br.msn.com/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Commit automático
Bom dia pessoal, Estou usando o D7 com Firebird e IBX. Queria saber se existe alguma forma de configurar o Delphi para fazer o commit automático. Ou seja qq insert já faz o commit. Seja em um execsql, ou usando um DBNagivator ... Sem ter que ficar dando o Commit explicito. Grato []'s [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Padronização
Bom dia !! Qual o padrão de fontes que vc´s utilizam ??? E como poderia no D7 colocar um padrão para os meus componentes ? Assim que eu pegar um e colocar no formulário, como ele já pode ter a fonte no padrão que eu escolhi ?? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Commit automático
Olá Rubem, Mas não é o que ocorre com minha aplicação. Ex. se estou na tela simples (Cód. descrição). Depois que faço a atualização, (aperto o botão de insert do DBNavigator), e sem sair da tela, faço a query por fora do sistema, ela não me responde com as alterações feitas. Somente depois que saido, ou dou um commit explícito, é que enchergo as alterações. Então estou fazendo algo de errado na minha estrutura ?? Grato []'s Satoy Em 30/08/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Até onde me consta, em qualquer SGBD relacional, se você envia somente uma instrução SQL de DML (INSERT, UPDATE ou DELETE) ao banco de dados, e este não está envolvido em um contexto transacional, o COMMIT ocorrerá de forma automática pelo servidor. Ou seja, se você tem várias operações SQL de DML que necessitam ser efetivadas de forma atômica (ou seja, ou tudo ou nada!), faça o contexto transacional (START TRANSACTION/COMMIT/ROLLBACK) envolvendo todas essas operações. Se for apenas uma única operação, o banco se encarrega de fazer COMMIT ou ROLLBACK automático se ocorrer alguma operação errada. Sds. To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] satoym%40gmail.comDate: Thu, 30 Aug 2007 11:34:22 -0300Subject: [delphi-br] Commit automático Bom dia pessoal,Estou usando o D7 com Firebird e IBX.Queria saber se existe alguma forma de configurar o Delphi para fazer ocommit automático.Ou seja qq insert já faz o commit.Seja em um execsql, ou usando um DBNagivator ...Sem ter que ficar dando o Commit explicito.Grato[]'s[As partes desta mensagem que não continham texto foram removidas] __ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TreeView
Olá Davi, Como eu posso saber o item que estou selecionado ??? Quando estiver posicionado em um item ??? recuperar a chave do campo ?? Grato []'s Satoy On 8/27/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] wrote: Cara jeito bem simples de fazer isso Type TDados = class Public Código: integer; Descrição: string End; Procedure qualquercoisa; Var Node: TNode; Dado: TDados; Begin Node := TreeView.Items.Add(nil, 'descricao do node'); Dado := TDados.Create; Node.data := Pointer(Dado); // seu dado está salvo .. End; De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Satoy Matsuoka Enviada em: segunda-feira, 27 de agosto de 2007 08:45 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] TreeView Caro Davi, Em uma tabela geralmente existe o código e descrição, se vou usar o TreeView para mostrar e recupara dados, eu preciso da chave, que para meu conceito deve ser armazenado no TreeView, para quando eu estive selecionado nele, poder recuperar a minha chave. E como eu poderia fazer isso ??? Só que no TreeView eu não queria mostrar a chave, somente a descrição Grato []'s Satoy On 8/24/07, Davi Eduardo Borges Wall [EMAIL PROTECTED]davi.wall%40mult.com.brmailto: davi.wall%40mult.com.br wrote: Cara, eu nem sabia que existia algum tipo de índice. Eu sempre utilizei TreeView carregada dinamicamente e para salvar dados em um nó eu uso Node.Data Será esse o seu querido índice? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Satoy Matsuoka Enviada em: sexta-feira, 24 de agosto de 2007 17:38 Para: delphi-br Assunto: [delphi-br] TreeView Bom dia pessoal, Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar um Texto e um Indice ( Um texto e um valor). Em tempo de execução eu não consigo ... ??? (ou não sei como) Pois utilizo TreeView.itens.add( objeto, texto) ou addfirst ou addchild Não vejo ou não sei como colocar um índice !!! Como poderia fazer isso ??? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TreeView
Caro Davi, Em uma tabela geralmente existe o código e descrição, se vou usar o TreeView para mostrar e recupara dados, eu preciso da chave, que para meu conceito deve ser armazenado no TreeView, para quando eu estive selecionado nele, poder recuperar a minha chave. E como eu poderia fazer isso ??? Só que no TreeView eu não queria mostrar a chave, somente a descrição Grato []'s Satoy On 8/24/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] wrote: Cara, eu nem sabia que existia algum tipo de índice. Eu sempre utilizei TreeView carregada dinamicamente e para salvar dados em um nó eu uso Node.Data Será esse o seu querido índice? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Satoy Matsuoka Enviada em: sexta-feira, 24 de agosto de 2007 17:38 Para: delphi-br Assunto: [delphi-br] TreeView Bom dia pessoal, Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar um Texto e um Indice ( Um texto e um valor). Em tempo de execução eu não consigo ... ??? (ou não sei como) Pois utilizo TreeView.itens.add( objeto, texto) ou addfirst ou addchild Não vejo ou não sei como colocar um índice !!! Como poderia fazer isso ??? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TreeView
Bom dia pessoal, Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar um Texto e um Indice ( Um texto e um valor). Em tempo de execução eu não consigo ... ??? (ou não sei como) Pois utilizo TreeView.itens.add( objeto, texto) ou addfirst ou addchild Não vejo ou não sei como colocar um índice !!! Como poderia fazer isso ??? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tquery
Ok Luciano.
Obrigado
[]'s
Satoy
On 8/7/07, Luciano Angelini [EMAIL PROTECTED] wrote:
Boa Tarde Satoy .
Talvez isso te ajude
Transacao.TransactionID := 2;
Transacao.IsolationLevel := xilREADCOMMITTED;
try
if not FrmDM.SQLConnection.InTransaction then
FrmDM.SQLConnection.StartTransaction(Transacao);
Inclusao:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Insert into Credores
(codigo_c,nome_c,endereco_c,complemento_c,bairro_c,cidade_c,uf_c,cep_c,doc,tipo_doc)
values (:vcodigo, :vnome, :vendereco, :vcomplemento, :vbairro, :vcidade,
:vuf, :vcep, :vdoc, :vtipo_doc)' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Gravar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
Alteração:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Update Credores set codigo_c =
:vcodigo, nome_c = :vnome, endereco_c = :vendereco, complemento_c =
:vcomplemento, bairro_c = :vbairro, cidade_c = :vcidade, uf_c = :vuf,
cep_c = :vcep, doc = :vdoc, tipo_doc = :vtipo_doc where codigo_c = ''' +
edit1.text + ''' ' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Alterar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
sds
Luciano
Satoy Matsuoka escreveu:
Bom dia pessoal,
Por favor desculpe a ignorância, mas como faço um insert update
utilizando o
Tquery ou TUpdate ???
Como seria o comando ?
Exemplo:
Insert into tabela (campo1,campo2) values (???,)
Como me referencio aos campos que vou fazer um insert, update que são da
tela ???
Obrigado
[]'s
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagens
Bom dia pessoal, Alguém sabe onde posso encontrar BMP´s para colocar nas minhas aplicações !! Na toolbar ... e outros botões ?? Vlw !!! Abraços []'s Satoy [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tquery
Bom dia pessoal, Por favor desculpe a ignorância, mas como faço um insert update utilizando o Tquery ou TUpdate ??? Como seria o comando ? Exemplo: Insert into tabela (campo1,campo2) values (???,) Como me referencio aos campos que vou fazer um insert, update que são da tela ??? Obrigado []'s [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Curso Delphi - RJ
*Bom dia Lista,* ** *Alguém conheçe um bom curso de Delphi no RJ de preferência no Centro da Cidade ?* ** *Grato* *[]'s* *Satoy* [As partes desta mensagem que não continham texto foram removidas]
