SELECT VB
Galera to fazendo um Select no VB mas o maldito ta dando erro no Where
Preciso trazer os tipos de cliente=P
Campo: TIP_CLIE_COD é varchar
RUN-TIME ERROR '13' TYPE MISMATCH
obs.: Os campos e nome da tabela foram feitos tudo em Letra Maiuscula
To usando o Postgres
Vou colocar abaixo o select:
m_SQL="SELECT ""IMOVEIS_X_CONTRATOS"".""CLIE_COD"", ""CLIENTE"".""TIP_CLIE_COD"", ""CLIENTE"".""CLIE_NOME"" " & _
m_SQL = m_SQL & " From ""IMOVEIS_X_CONTRATOS"" INNER JOIN ""CLIENTE"" ON (""IMOVEIS_X_CONTRATOS"".""CLIE_COD"" = ""CLIENTE"".""CLIE_COD"")" &_
m_SQL = m_SQL & " Where ""CLIENTE"".""TIP_CLIE_COD"" = 'P'"
Preciso trazer os tipos de cliente=P
Campo: TIP_CLIE_COD é varchar
RUN-TIME ERROR '13' TYPE MISMATCH
obs.: Os campos e nome da tabela foram feitos tudo em Letra Maiuscula
To usando o Postgres
Vou colocar abaixo o select:
m_SQL="SELECT ""IMOVEIS_X_CONTRATOS"".""CLIE_COD"", ""CLIENTE"".""TIP_CLIE_COD"", ""CLIENTE"".""CLIE_NOME"" " & _
m_SQL = m_SQL & " From ""IMOVEIS_X_CONTRATOS"" INNER JOIN ""CLIENTE"" ON (""IMOVEIS_X_CONTRATOS"".""CLIE_COD"" = ""CLIENTE"".""CLIE_COD"")" &_
m_SQL = m_SQL & " Where ""CLIENTE"".""TIP_CLIE_COD"" = 'P'"
Tenta ae :
m_SQL = "SELECT IMOVEIS_X_CONTRATOS.CLIE_COD, CLIENTE.TIP_CLIE_COD, CLIENTE.CLIE_NOME " & _
"From IMOVEIS_X_CONTRATOS " & _
"INNER JOIN CLIENTE " & _
"ON IMOVEIS_X_CONTRATOS.CLIE_COD = CLIENTE.CLIE_COD " & _
"Where CLIENTE.TIP_CLIE_COD = 'P'"
Tentei assim, mas não rolou!
Traz o mesmo erro ???
Tenta assim:
m_SQL = "SELECT IMOVEIS_X_CONTRATOS.CLIE_COD, CLIENTE.TIP_CLIE_COD, CLIENTE.CLIE_NOME " & _
"From IMOVEIS_X_CONTRATOS " & _
"INNER JOIN CLIENTE " & _
"ON IMOVEIS_X_CONTRATOS.CLIE_COD = CLIENTE.CLIE_COD " & _
"Where rtrim(CLIENTE.TIP_CLIE_COD) = 'P'"
m_SQL = "SELECT IMOVEIS_X_CONTRATOS.CLIE_COD, CLIENTE.TIP_CLIE_COD, CLIENTE.CLIE_NOME " & _
"From IMOVEIS_X_CONTRATOS " & _
"INNER JOIN CLIENTE " & _
"ON IMOVEIS_X_CONTRATOS.CLIE_COD = CLIENTE.CLIE_COD " & _
"Where rtrim(CLIENTE.TIP_CLIE_COD) = 'P'"
Cara num da certo!!!
m_SQL = "SELECT IMOVEIS_X_CONTRATOS.CLIE_COD, CLIENTE.TIP_CLIE_COD, CLIENTE.CLIE_NOME " & _
"From IMOVEIS_X_CONTRATOS " & _
"INNER JOIN CLIENTE " & _
"ON IMOVEIS_X_CONTRATOS.CLIE_COD = CLIENTE.CLIE_COD " & _
"Where CLIENTE.TIP_CLIE_COD = "P""
Tenta usar " "
tenta gerar a consulta dentro do banco(Access, SQL ...), depois pegue o código sql gerado!
Caso o banco não seja grande, coloque ele aqui que eu dou uma olhada.
Att,
Roberto
Caso o banco não seja grande, coloque ele aqui que eu dou uma olhada.
Att,
Roberto
TATISOUTO, fiz umas modificações na sua query (removi o INNER JOIN)
e limpei os paranteses (desnecessários) faça o teste com a query
abaixo:
m_SQL = ""
m_SQL = m_SQL = " SELECT"
m_SQL = m_SQL = " I.CLIE_COD,"
m_SQL = m_SQL = " C.TIP_CLIE_COD,"
m_SQL = m_SQL = " C.CLIE_NOME"
m_SQL = m_SQL = " FROM"
m_SQL = m_SQL = " IMOVEIS_X_CONTRATOS I,"
m_SQL = m_SQL = " CLIENTE C"
m_SQL = m_SQL = " WHERE"
m_SQL = m_SQL = " I.CLIE_COD = C.TIP_CLIE_COD"
m_SQL = m_SQL = " AND"
m_SQL = m_SQL = " C.TIP_CLIE_COD LIKE 'P%'"
OBS.: Estranho o campo do cliente (TIP_CLIE_COD) ser string (VARCHAR),
mas...tudo bem.
e limpei os paranteses (desnecessários) faça o teste com a query
abaixo:
m_SQL = ""
m_SQL = m_SQL = " SELECT"
m_SQL = m_SQL = " I.CLIE_COD,"
m_SQL = m_SQL = " C.TIP_CLIE_COD,"
m_SQL = m_SQL = " C.CLIE_NOME"
m_SQL = m_SQL = " FROM"
m_SQL = m_SQL = " IMOVEIS_X_CONTRATOS I,"
m_SQL = m_SQL = " CLIENTE C"
m_SQL = m_SQL = " WHERE"
m_SQL = m_SQL = " I.CLIE_COD = C.TIP_CLIE_COD"
m_SQL = m_SQL = " AND"
m_SQL = m_SQL = " C.TIP_CLIE_COD LIKE 'P%'"
OBS.: Estranho o campo do cliente (TIP_CLIE_COD) ser string (VARCHAR),
mas...tudo bem.
Tópico encerrado , respostas não são mais permitidas