Consulta com dois bancos de dados Access - VB6

[Pulllga]

Olá, sou o Pulllga,

Eu estou criando um simples software que faz cadstros e consultas a um banco de dados access.

Estou trabalhando somente com um form, com Tabs e Frames.

Tem um frame, que possui um ComboBox (cmbCadTecRep), que ao ser carregado, preenche o combo com os nomes dos representantes (da tabela Representantes, no componente datCadRep), que estão ligados a tabela de pessoas (datCadPes).

Mas sempre que eu executo a rotina, a propriedade NoMatch sempre retorna True, ou seja, ele nunca encontra os representantes na tabela de pessoas!!!

Eis o código:

If datCadRep.Recordset.RecordCount > 0 Then

datCadRep.Recordset.MoveFirst

cmbCadTecRep.Clear

While datCadRep.Recordset.EOF = False

datCadPes.Recordset.FindFirst "nom = " & datCadRep.Recordset.Fields("pes").Value

If datCadPes.Recordset.NoMatch Then

Else

cmbCadTecRep.AddItem datCadPes.Recordset.Fields("nom").Value

End If

datCadRep.Recordset.MoveNext

Wend

End If

É uma consulta bem simples, masestou rateando em algo.

Alguém consegue ver o que é?

OBS.: quem MODIFICOU MEU POST SEM PERMISSÂO???

ADMINS, VERIFIQUEM ISSO!!!!!!!!!!!!!!!!!!!!!!!!!!

falou T+

[EduardoS]

OBS.: quem MODIFICOU MEU POST SEM PERMISSÂO???

ADMINS, VERIFIQUEM ISSO!!!!!!!!!!!!!!!!!!!!!!!!!!

Ola,

Pode me dizer qual post e qual modificação foi feita?

[Pulllga]

EduardoS,

Olá, ontem eu fiz este post sobre banco de dados Access com VB, e na linha:

datCadPes.Recordset.FindFirst "nom = " & datCadRep.Recordset.Fields("pes").Value

Alguém modificou para:

datCadPes.Recordset.FindFirst "Call of Duty = " & datCadRep.Recordset.Fields("pes").Value

Eu corrigi ontem a noite quando visualizei o tópico.

Espero que isto possa ser rastreado!

Obrigado pela atenção.

T+

[Clemente Silva]

Neste trecho:

datCadPes.Recordset.FindFirst "nom = " & datCadRep.Recordset.Fields("pes").Value

Qual é o tipo de dados do campo "pes"?

Se for texto, corrija o trecho para:

datCadPes.Recordset.FindFirst "nom = '" & datCadRep.Recordset.Fields("pes").Value & "'"

Isso deve resolver.

Quanto a alteração no seu post, acho que deve ter algo a ver com o corretor automático de texto do fórum. Outro dia fui postar um código, e declarei uma variável "M.S.G." (sem os pontos) e o corretor insiste em substituir por "mensagem".

Acredito que no seu caso, você tenha colocado "c.o.d." (sem os pontos) o "super-inteligente" corretor do forum entendeu que era a abreviatura do game "Call Of Duty"...

[Pulllga]

Olá Clemente Silva,

Tudo bem sobre o corretor do fórum.

E quanto ao meu problema, o campo pes, é o identificador da tabela pessoas, é integer.

Mas já resolvi, eu tinha esquecido indexar as tabelas no Access!!!

valeu T+

[EduardoS]

Pode ser isso, vou avisar a administração.

teste: Call of Duty mensagem nom

[Pulllga]

Obrigado EduardoS, é bom saber que os admins estão de olho no fórum, porque tem uns fóruns, que a gente reclama e reclama e nada.

valeu, continuem com esse bom trabalho, este fórum tem me ajudado muito, pena que ninguém ainda conseguiu resolver o meu problemas com strings no Visual C++!!!

T+