[delphi-br] Re: integrando bases de dados
Desculpe se estou escrevendo besteiras
chave := f_clientes.RzDBEdit3.text -- este RzDBEdit3 não esta passando
caracteres em branco,(espaços), tente aplicar um Trim().
Tive problemas em outras funções, e era isso.
Boia sorte
Zucchi
--- Em delphi-br@yahoogrupos.com.br, Fios e Cabos cic...@... escreveu
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@...
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@... mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes, conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo como:
cdsTabela.CommandText := `Select * from tabela where chave = ` +
paramStr(1);
ou
qryTabela.Sql := `Select * from tabela where chave = ` + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br
RES: [delphi-br] Re: integrando bases de dados
Obrigado ...
Já postei a solução ... mas agradeço muito sua colaboração
Creio q com o winexec não seja possivel ...
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de lidio.zucchi
Enviada em: segunda-feira, 5 de outubro de 2009 17:59
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: integrando bases de dados
Desculpe se estou escrevendo besteiras
chave := f_clientes.RzDBEdit3.text -- este RzDBEdit3 não esta passando
caracteres em branco,(espaços), tente aplicar um Trim().
Tive problemas em outras funções, e era isso.
Boia sorte
Zucchi
--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Fios e Cabos cic...@... escreveu
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@...
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@... mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes,
conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta
entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou
no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo
como:
cdsTabela.CommandText := `Select * from tabela where chave = ` +
paramStr(1);
ou
qryTabela.Sql := `Select * from tabela where chave = ` + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser
que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br
