Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/11/2008, 15:35
martinfabregues
 
Fecha de Ingreso: octubre-2008
Mensajes: 4
Antigüedad: 15 años, 6 meses
Puntos: 0
Respuesta: Modificar cambios en Base Access desde DGrid

Bueno Probe de otra forma y tampoco hay caso no me doy cuenta que estoy haciendo mal. Pego el codigo a ver si me ayudan

Dim Conn As OleDb.OleDbConnection
Dim Da As OleDb.OleDbDataAdapter
Dim Ds As New DataSet
Dim Cad As String
Dim Fila As Integer
Dim Id As Integer
Dim NumFacCan As Integer
Dim Fec As Date
Dim NumFac As Integer
Dim NumTic As Integer
Dim NumRem As Integer
Dim Imp As Decimal
Dim SQL As String

Cad = "Base.mdb"
Conn = New OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.Oledb.4.0;" & _
"Data Source=" & Cad)
Try

SQL = "Select * From Pagos"
Ds = New DataSet
Da = New OleDb.OleDbDataAdapter(SQL, Conn)
Da.Fill(Ds)
For Fila = 0 To grd.RowCount - 1
Id = grd.Item(0, Fila).Value
NumFacCan = grd.Item(1, Fila).Value
Fec = grd.Item(2, Fila).Value
NumFac = grd.Item(3, Fila).Value
NumTic = grd.Item(4, Fila).Value
NumRem = grd.Item(5, Fila).Value
Imp = grd.Item(6, Fila).Value

For Each Registro As DataRow In Ds.Tables(0).Rows
If Registro("IDOP") = Id Then
Registro("FACCAN") = CInt(NumFacCan)
Registro("FEC") = Fec
Registro("NUMFAC") = CInt(NumFac)
Registro("NUMTIC") = CInt(NumTic)
Registro("NUMREM") = CInt(NumRem)
Registro("IMP") = CDec(Imp)
End If
Next
Dim DBCommandBuilder = New OleDb.OleDbCommandBuilder(Da)
Da.Update(Dt)
Next
Catch ex As Exception

End Try

End Sub


Me tira el mismo error que antes

{"Error de sintaxis (falta operador) en la expresión de consulta '((IDOP = ?) AND ((? = 1 AND FACCAN IS NULL) OR (FACCAN = ?)) AND ((? = 1 AND FEC IS NULL) OR (FEC = ?)) AND ((? = 1 AND NUMFAC IS NULL) OR (NUMFAC = ?)) AND ((? = 1 AND NUMTIC IS NULL) OR (NUMTIC = ?)) AND ((? = 1 AND NUMREM IS NULL) OR (NUMREM = ?)) AND '."}