Programación General > Visual Basic 6.0 e inferiores

 Sql Da Error En Vb Pero No E Consulta Access

(1/2) > >>

UserCode:
Hola mis amigos sabios y más experimentados laboralmente que yo.

Me ha sucedido algo muy raro con una corta sentencia SQL que en VB da error pero al ponerla en una Consulta Access se genera perfectamente.

Esta es la SQL:

--- Código: Text ---         Dim SQL1 As String        SQL1 = "SELECT ID, Fecha "        SQL1 = SQL1 & "FROM TR_SINIESTROS_ENVASES "        SQL1 = SQL1 & "WHERE IDSucursal=" & SUCURSAL & " ORDER BY Fecha"  
En VB saca el error de Pocos parámetros. Se esperaba 1
Pero la pongo en una consulta en Access y la genera perfectamente sin problemas

¿hay alguna explicación para esto? porque es claro que está fuera de cualquier cosa que yo conozca  :blink:

PD: Si pongo un Alias a la tabla todo sigue igual.

F_Tanori:
Describe un poco mas los tipos de datos de la tabla

TR_SINIESTROS_ENVASES, si son Inguales en SQL Server que en Access

y que valor puede contener la variable SUCURSAL como ejemplo


Saludos

UserCode:
Si, voy...

TR_SINIESTROS_ENVASES
Deteriorado (Numerico)
Extraviado   (Numerico)
Sustraido     (Numerico)
Violado        (Numerico)
ID               (Numerico)
Fecha          (Fecha/Hora)
IDSucursal   (Texto)
CodRegion   (Numerico)

Y en una ventania aparte con un MSFlexGrid la idea es mostrar dos columnas, una el ID y otra la Fecha, que al selccionar la celda del ID la ventanita se cierra y carga los demas datos de ese registro en la ventana de ingreso y manipulacion de datos.

Yo probe cambiando el campo ID de Autonumerico a Numerico, y el de Fecha de tipo fecha/hora a Texto pero todo siempre da el mismo problema en VB y todo muy bien en Access es lo que me tienen sorprendido.  :huh:

PD: la variable SUCURSAL es de tipo String

F_Tanori:
Autonumerico es numerico :P solo que tiene la propiedad de ser auto incrementable


el error de que falta un parametro es porque


IDSucursal (Texto)

entonces la sentencia debe ser


--- Código: Text --- Dim SQL1 As String       SQL1 = "SELECT ID, Fecha "       SQL1 = SQL1 & "FROM TR_SINIESTROS_ENVASES "       SQL1 = SQL1 & "WHERE IDSucursal='" & SUCURSAL & "' ORDER BY Fecha" 

WHERE IDSucursal='sur'  <----Con comillas



Saludos

UserCode:
que verguenza  :(  claro ' '

justo ahora necesito un borrador de memoria como los que usan los hombres de negro  :P

gracias compadre  :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente