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%40yahoogrupos.com.br> > [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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> > <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 <http://fiosecabos.ind.br/> - > cic...@... <mailto:cicero%40fiosecabos.ind.br> > <mailto:cicero%40fiosecabos.ind.br> > <mailto:cicero%40fiosecabos.ind.br> > > P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO > AMBIENTE! > > [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]