Visual Studio
Jose100500, te hago una consulta sobre este programa que me esta dando un error al momento de agregar una fila a la base de datos...
Public Sub NuevaGestion(ByVal gestion As Integer, ByVal fecha As Date, ByVal nomCli As String, ByVal numCli As String, ByVal observ As String)
Dim DS As New DataSet
COMVEN.Connection = CONECTOR
COMVEN.CommandType = CommandType.TableDirect
COMVEN.CommandText = "Ventas"
ADAPVEN.Fill(DS, "Ventas")
Dim FILA As DataRow
FILA = DS.Tables("Ventas").NewRow
FILA("Gestion") = gestion
FILA("Usuario") = idUsuario
FILA("Fecha de Gestión") = fecha.Date
FILA("Nombre del Cliente") = nomCli
FILA("Número de Línea") = numCli
FILA("Observaciones") = observ
DS.Tables("Ventas").Rows.Add(FILA)
Dim MAGICO As New OleDbCommandBuilder(ADAPVEN)
ADAPVEN.Update(DS, "Ventas")
End Sub
Me da el error "Error de sintaxis en la instrucción INSERT INTO." en la lineaADAPVEN.Update(DS, "Ventas")
Lo he revisado varias veces y no se que es... Busque información en internet y tampoco encuentro.
Desde ya muchas gracias
Public Sub NuevaGestion(ByVal gestion As Integer, ByVal fecha As Date, ByVal nomCli As String, ByVal numCli As String, ByVal observ As String)
Dim DS As New DataSet
COMVEN.Connection = CONECTOR
COMVEN.CommandType = CommandType.TableDirect
COMVEN.CommandText = "Ventas"
ADAPVEN.Fill(DS, "Ventas")
Dim FILA As DataRow
FILA = DS.Tables("Ventas").NewRow
FILA("Gestion") = gestion
FILA("Usuario") = idUsuario
FILA("Fecha de Gestión") = fecha.Date
FILA("Nombre del Cliente") = nomCli
FILA("Número de Línea") = numCli
FILA("Observaciones") = observ
DS.Tables("Ventas").Rows.Add(FILA)
Dim MAGICO As New OleDbCommandBuilder(ADAPVEN)
ADAPVEN.Update(DS, "Ventas")
End Sub
Me da el error "Error de sintaxis en la instrucción INSERT INTO." en la lineaADAPVEN.Update(DS, "Ventas")
Lo he revisado varias veces y no se que es... Busque información en internet y tampoco encuentro.
Desde ya muchas gracias