Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/07/2008, 17:57
AnythinG_
 
Fecha de Ingreso: julio-2008
Mensajes: 2
Antigüedad: 15 años, 10 meses
Puntos: 0
Ayuda con una instruccion SQL en VB

buenas..

he estado escribiendo un programa para una pequeña empresa, y pues todo ha ido bastante bien hasta hoy que me encontre un problemilla, que parece bastante simple pero no he podido ver que tiene... asi que les agradeceria su ayuda..

el problema consiste en una instruccion sql, update, genero la instruccion en tiempo d ejecucion y pues queda algo asi al final (ejemplo):

Update Inventario Set (N20 = 400, N25 = 497, N30 = 293, N35 = 418, N40 = 344, N45 = 134, N50 = 155, N55 = 141, N60 = 380, N65 = 41, N70 = 12, N75 = 456, N80 = 402, N85 = 249, N90 = 379, N95 = 229, N100 = 82) Where Modelo_Tipo = "Modelo 0 [FEOD"

cuando llega a esto, me sale el siguiente error:

-2147217900
Error de sintaxis en la instrucción UPDATE.

y pues de verdad que no puedo ver que le falta o que le sobra a eso... asi que les agradeceria una ayudadita..

el codigo con el que genero la consulta es el siguiente:

Código:
Set rs = New ADODB.Recordset

With rs
    fild = "Update Inventario Set ("
    For i = txtCant.LBound To txtCant.UBound - 1
        fild = fild & "N" & CStr(20 + (i * 5)) & " = " & txtCant(i) & ", "
    Next
    fild = fild & "N100 = " & txtCant(txtCant.UBound) & ") Where Modelo_Tipo = """ & txtModelo & """"
    
    .Open fild, ConexStr, adOpenStatic, adLockReadOnly
End With
Set rs = Nothing
y pues... gracias d antemano... ^^!