VB6¨MySQL5 - Não aparece todos os campos do BD

[flaviojr 0]

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

[Rapha.Branco 0]

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

[luiz humberto 0]

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.

[flaviojr 0]

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

[jolienai 0]

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

[flaviojr 0]

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 blza

Dim 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