ABRIR TABELA
Pessoal:
Para abrir uma tabela eu utilizo os seguintes comandos:
Data1.DatabaseName = fprincipal.StatusBar1.Panels(1).Text & dirtrab
Data1.RecordSource = [Ô]select * from produtos order by cd_produto[Ô]
Data1.Refresh
Onde:
fprincipal.StatusBar1.Panels(1).Text = [Ô]C:\BANCO_DE_DADOS\[Ô]
dirtrab=[Ô]BANCO.MDB[Ô]
Gostaria de Criar uma função onde eu apresentasse os dados da tabela, por exemplo:
ABRE_TABELA([Ô]1[Ô],[Ô][Ô]select * from produtos order by cd_produto[Ô])
E o sistema abrisse a tabela sem eu precisar sempre escrever as 3 linhas...
Alguém tem uma solução para isso?
Obrigado
Julio
Para abrir uma tabela eu utilizo os seguintes comandos:
Data1.DatabaseName = fprincipal.StatusBar1.Panels(1).Text & dirtrab
Data1.RecordSource = [Ô]select * from produtos order by cd_produto[Ô]
Data1.Refresh
Onde:
fprincipal.StatusBar1.Panels(1).Text = [Ô]C:\BANCO_DE_DADOS\[Ô]
dirtrab=[Ô]BANCO.MDB[Ô]
Gostaria de Criar uma função onde eu apresentasse os dados da tabela, por exemplo:
ABRE_TABELA([Ô]1[Ô],[Ô][Ô]select * from produtos order by cd_produto[Ô])
E o sistema abrisse a tabela sem eu precisar sempre escrever as 3 linhas...
Alguém tem uma solução para isso?
Obrigado
Julio
A criação de uma função que retorne um RECORDSET deve resolver seu problema.
Já que está aprendendo o VB6, procure evitar a utilização de CONTROLES VINCULADOS e inicie seus estudos sobre o método ADO de conexão e manipulação de dados.
Já que está aprendendo o VB6, procure evitar a utilização de CONTROLES VINCULADOS e inicie seus estudos sobre o método ADO de conexão e manipulação de dados.
Tópico encerrado , respostas não são mais permitidas