bera
07 de Marzo del 2003

Espero que alguien me pueda ayudar:

tengo una conexion ODBC y hago la siguiente consulta desde VB:

"SELECT P.AGENTEADMIN, P.DTOCOB, P.RAMO, P.NUMPOLIZA, P.CODTOMADOR, CL.NOMBRE, CL.APELLIDO1, CL.APELLIDO2, DE.PRODUCCION, DE.INSP, P.FORMAPAGO, P.CODFORMAPAGO, DE.NETASUP, DE.NETAPRIMERRBO, DE.TOTALSUP, DE.TOTALPRIMERRBO FROM POLIZAS AS P, CLIENTES AS CL, DATOS_ECONOMICOAS AS DE WHERE P.RAMO = " & Ramo & " AND P.NUMPOLIZA= '" & poli & "' AND CL.CODIGO = P.CODTOMADOR AND DE.RAMO = " & Ramo & " AND DE.POLIZA = '" & poli & "'"

y me da el error "Fallo la llamada". Le hago una traza con el administrador ODBC de windows y me da error de sintaxis en la clausula FROM y la sql que le llega al ODBC es esta:

"SELECT * FROM SELECT P.AGENTEADMIN, P.DTOCOB, P.RAMO, P.NUMPOLIZA, P.CODTOMADOR, CL.NOMBRE, CL.APELLIDO1, CL.APELLIDO2, DE.PRODUCCION, DE.INSP, P.FORMAPAGO, P.CODFORMAPAGO, DE.NETASUP, DE.NETAPRIMERRBO, DE.TOTALSUP, DE.TOTALPRIMERRBO FROM POLIZAS AS P, CLIENTES AS CL, DATOS_ECONOMICOAS AS DE WHERE P.RAMO = 20000 AND P.NUMPOLIZA= '1' AND CL.CODIGO = P.CODTOMADOR AND DE.RAMO = 20000 AND DE.POLIZA = '1'"

Muchas gracias

angeles
07 de Marzo del 2003

Si es esto es lo que tienes, no tiene porqué aparecer el primer "Select * from"

Dim qd As QueryDef
Dim cad As String
Set qd = conexion.CreateQueryDef("")
cad ="SELECT P.AGENTEADMIN, P.DTOCOB, P.RAMO, P.NUMPOLIZA, P.CODTOMADOR, CL.NOMBRE, CL.APELLIDO1, CL.APELLIDO2, DE.PRODUCCION, DE.INSP, P.FORMAPAGO, P.CODFORMAPAGO, DE.NETASUP, DE.NETAPRIMERRBO, DE.TOTALSUP, DE.TOTALPRIMERRBO FROM POLIZAS AS P, CLIENTES AS CL, DATOS_ECONOMICOAS AS DE WHERE P.RAMO = " & Ramo & " AND P.NUMPOLIZA= '" & poli & "' AND CL.CODIGO = P.CODTOMADOR AND DE.RAMO = " & Ramo & " AND DE.POLIZA = '" & poli & "'"
qd.SQL = cad
qd.Execute