Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou com um problema tenho um estranho aqui na hora de carregar os campos de mais de uma tabela do BD MySQL5 no VB6
Quando eu faço da seguinte forma alguns campos não aparecem.
rsMySQL.Source = "Select A. , B., C., E. FROM tb_alunos AS A INNER JOIN tb_bairros AS B ON A.Id_Bairro = B.Id_Bairro INNER JOIN tb_cidades AS C ON A.Id_Cidade = C.Id_Cidade INNER JOIN tb_empresas AS E ON A.Id_Empresa = E.Id_Empresas"
Agora quando eu utilizo deste modo funciona mas é apenas uma tabela
rsMySQL.Source = "Select * From tb_alunos
Desde Já agradeço a atenção de todos muito obrigado
Faça um teste simples, verifique os registros que não estão sendo retornados, se os mesmos possuem códigos respectivos na tabela a qual é relacionada. Como está utilizando o Inner Join, se não existirem registros relacionados os mesmos não serão retornados.
Faça um teste simples, verifique os registros que não estão sendo retornados, se os mesmos possuem códigos respectivos na tabela a qual é relacionada. Como está utilizando o Inner Join, se não existirem registros relacionados os mesmos não serão retornados.
Obrigado a vocês pela ajuda prestada mais ainda estou tendo problema realizei os testes com LEFT JOIN e RIGHT JOIN e nada aconteceu.Quando eu utilizo todas as tabelas: os campos na tabela aluno (telefone) (rua) (cep)(anotacoes) não aparecem. Funcionam somente quando eu faço o select apenas da tabela alunos.Ainda estou com esse problema por aqui mais obrigado a todos pela ajuda uma hora se descobre o que é.Até maisFlavio jr
olá!! como você fez a conexão com o banco...????estou usando driver 3.51 porém consigo conectar, orém o dados não são retornados...select * from produtostenho 1 registro nesta tabela porém no VB qdo abro a conexão e executo a query acima me retorna um rs vazio..grato se puder ajudar
> olá!! como você fez a conexão com o banco...????estou usando driver 3.51 porém consigo conectar, orém o dados não são retornados...select * from produtostenho 1 registro nesta tabela porém no VB qdo abro a conexão e executo a query acima me retorna um rs vazio..grato se puder ajudar
Olá tem que configurar o driver 3.51 no ODBC com o lances do servidor localhost , usuario , senha e o banco de dados que você vai acessar dai depois noVB você cria as variaveis de conexão:Qualquer coisa avisa ai blzaDim conectadb As ADODB.ConnectionDim rs As Adodb.recordsetDim linkconexao As String linkconexao = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=seubanco;User=root;Password=sua senha;Option=3;" Set conectadb = New ADODB.Connection conectadb.CursorLocation = adUseClient conectadb.Open linkconexao Set rs = New ADODB.Recordset rs.CursorType = adOpenStatic rs.CursorLocation = adUseClient rs.LockType = adLockPessimistic rs.Source = "Select * From tb_alunos " rs.ActiveConnection = adoDataConn rs.Open
>
rsMySQL.Source = "Select A. , B., C., E. FROM tb_alunos AS A INNER JOIN tb_bairros AS B ON A.Id_Bairro = B.Id_Bairro INNER JOIN tb_cidades AS C ON A.Id_Cidade = C.Id_Cidade INNER JOIN tb_empresas AS E ON A.Id_Empresa = E.Id_Empresas"
Da uma olhada se todos os links estao corretos, so para teste ao inves de Inner Join utliza o Left Join, derepente se vier alguns campos nulos você vai ter certeza que o link esta incompleto