Já tive a ajuda do pessoal para saber como fazer o Select, mas no VB num tá rodando. Rodo o Select no Access e ele tras os resultados sem problema, no VB ele dá o erro 13.

 

As tabelas são estas:

Pedido: Cod_cliente - texto - 1

           Num_Pedido - texto - 50

           Data - testo - 10

 

Cliente: Cod_Cliente - texto - 1

            Nome - texto - 50

 

e este é o Select:

SELECT Cliente.Nome, Pedido.Num_Pedido FROM Pedido INNER JOIN Cliente ON Pedido.Cod_Cliente = Cliente.Cod_Cliente

 

Pq no VB o Select não roda ?

post todo o codigo que possui o select para podermos analisar !!!!

mude o cod_cliente para interger em ambas tabelas e funcionara perfeitamente

ou use...

 

SELECT Cliente.Nome, Pedido.Num_Pedido FROM Pedido INNER JOIN Cliente ON Pedido.Cod_Cliente like " & plic( Cliente.Cod_Cliente)

 

' tratamento de aspas para strings

Public Function Plic(ByVal sTexto As String) As _
       String
  If InStr(sTexto, Chr(39)) Then
    Plic = Chr(39) & Replace(sTexto, _
           Chr(39), Chr(39) & Chr(39)) & _
           Chr(39)
  Else
    Plic = Chr(39) & sTexto & Chr(39)
  End If

End Function

Tente assim:

 

"SELECT Cliente.Codigo, Cliente.Nome, Pedido.Numero FROM Cliente INNER JOIN Pedido ON Cliente.Codigo = Pedido.Codigo"

Aqui funcionou

Tente ver se passando o Alias não resolve (mesmo que acho que não seria isto)...

 

Por exemplo:    FROM pedido AS ped INNER JOIN cliente as cl ON ped.cod_cliente = cl.cod_cliente

 

Para facilitar para você escreva o select assim: SELECT cl.nome, pd.num_pedido

+ o FROM.

 

Alberto.

Agradeço por todas as ajudas, porém por algum motivo nenhuma delas funciona aqui !

 

O que fazer agora? Me matar???

 

:'(