DE ACCESS PRA VB6
Presciso de ajuda pra migrar este sistema que tenho em access para o vb
Representação do banco
no access tenho um formulario mestre(primeira tabela) com um sub-formulario(segunda tabela) e este tb tem um sub (terceira tabela), é nao consigo imaginar uma forma de fazer isso no VB 6.
aqui ele em access
se alguem puder ajudar...
Representação do banco
no access tenho um formulario mestre(primeira tabela) com um sub-formulario(segunda tabela) e este tb tem um sub (terceira tabela), é nao consigo imaginar uma forma de fazer isso no VB 6.
aqui ele em access
se alguem puder ajudar...
DAVERSON, boa noite.
O que você precisa??
Criar um relatório que vincule todas as tabelas, ou um formulario que vincule todas as tabelas???
O que você precisa??
Criar um relatório que vincule todas as tabelas, ou um formulario que vincule todas as tabelas???
Cara a primeira coisa a se fazer é fazer as referências necessárias para a conexão com access.
Usa-se muito o ADO.
Para que o VB6 faça a referência com access, no menu ferramentas, clique em Project e em References;
Procure por Microsoft Acces 11.0 Object Library (ou a versão que você tiver) e clique na sua checkbox;
depois procure por Microsoft ActiveX Data Objects 2.8 Library (ou a versão que você tiver) e marque na checkbox;
Clique em Ok.
Este é o procedimento inicial para se trabalhar com BD.
Eu sempre faço minha conexão deste jeito:
[txt-color=#0000f0]Public[/txt-color] CCADODB [txt-color=#0000f0]As New [/txt-color]ADODB.Connection
[txt-color=#0000f0]Public Sub [/txt-color]Conectar()
[txt-color=#0000f0]With[/txt-color] CCADODB
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
[ô]Aqui embaixo seria o caminho e o nome de seu banco de dados
.ConnectionString = [Ô]C:\Documents and Settings\Pegudo\Meus documentos\cadastro_de_clientes.mdb[Ô]
.Open
[txt-color=#0000f0]End With
End Sub[/txt-color]
A partir daÃ, você cria suas variáveis, as intâncias necessárias, as strings de conexão, por exemplo:
[txt-color=#0000f0]Private sub[/txt-color] Command1_Click()
[txt-color=#007100][ô]Usando a conexão acima, vou selecionar tudo que estiver na coluna nome, dentro da tabela clientes, onde o nome existente seja iqual ao texto da caixa de textos[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]as New [/txt-color]Recordset
Conectar
[txt-color=#0000f0]Set [/txt-color]ObjetoTB = CCADODB.Execute([Ô]select * from clientes where nome = [ô] [Ô] & Text1.Text & [Ô] [ô] [Ô])
[txt-color=#007100][ô]AÃ, se você quiser jogar dentro de un ListBox, por exemplo:[/txt-color]
[txt-color=#0000f0]While Not [/txt-color]ObjetoTB.EOF
List1.AddItem ObjetoTB([Ô]nome[Ô])
ObjetoTB.MoveNext
[txt-color=#0000f0] Wend
End Sub[/txt-color]
Usa-se muito o ADO.
Para que o VB6 faça a referência com access, no menu ferramentas, clique em Project e em References;
Procure por Microsoft Acces 11.0 Object Library (ou a versão que você tiver) e clique na sua checkbox;
depois procure por Microsoft ActiveX Data Objects 2.8 Library (ou a versão que você tiver) e marque na checkbox;
Clique em Ok.
Este é o procedimento inicial para se trabalhar com BD.
Eu sempre faço minha conexão deste jeito:
[txt-color=#0000f0]Public[/txt-color] CCADODB [txt-color=#0000f0]As New [/txt-color]ADODB.Connection
[txt-color=#0000f0]Public Sub [/txt-color]Conectar()
[txt-color=#0000f0]With[/txt-color] CCADODB
.Provider = [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
[ô]Aqui embaixo seria o caminho e o nome de seu banco de dados
.ConnectionString = [Ô]C:\Documents and Settings\Pegudo\Meus documentos\cadastro_de_clientes.mdb[Ô]
.Open
[txt-color=#0000f0]End With
End Sub[/txt-color]
A partir daÃ, você cria suas variáveis, as intâncias necessárias, as strings de conexão, por exemplo:
[txt-color=#0000f0]Private sub[/txt-color] Command1_Click()
[txt-color=#007100][ô]Usando a conexão acima, vou selecionar tudo que estiver na coluna nome, dentro da tabela clientes, onde o nome existente seja iqual ao texto da caixa de textos[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]as New [/txt-color]Recordset
Conectar
[txt-color=#0000f0]Set [/txt-color]ObjetoTB = CCADODB.Execute([Ô]select * from clientes where nome = [ô] [Ô] & Text1.Text & [Ô] [ô] [Ô])
[txt-color=#007100][ô]AÃ, se você quiser jogar dentro de un ListBox, por exemplo:[/txt-color]
[txt-color=#0000f0]While Not [/txt-color]ObjetoTB.EOF
List1.AddItem ObjetoTB([Ô]nome[Ô])
ObjetoTB.MoveNext
[txt-color=#0000f0] Wend
End Sub[/txt-color]
Grande amigo, ja tenho criado a parte do conexão, main form, form de entrada de dados(que onde estou parado)
DAVERSON, boa tarde.
Me desculpe a demora em responder, mais segue a consulta SQL que você está precisando:
Veja se te atende e qualquer coisa poste novamente, ok??
Me desculpe a demora em responder, mais segue a consulta SQL que você está precisando:
SELECT TtblPalet.*, TblBlocos.*, TblEspecie.Descricao, TblItensPalet.*
FROM TtblPalet INNER JOIN ((TblEspecie INNER JOIN TblBlocos ON TblEspecie.id_Especie=TblBlocos.IdEspecie) INNER JOIN TblItensPalet ON TblBlocos.NroBloco=TblItensPalet.NroBloco) ON TtblPalet.NroPalet=TblBlocos.NroPalet
WHERE (((TtblPalet.IdPallet)= Sua_VarÃavel_do_Numero_do_Palet));
Veja se te atende e qualquer coisa poste novamente, ok??
Tópico encerrado , respostas não são mais permitidas