error tengo el siguiente programa y me arroja un error a la hora de ejecutarlo alguien me podria decir pq
Function MyInsertMethod(ByVal lugar As String, ByVal equipo As String, ByVal modelo As String, ByVal serie As String, ByVal inventario As String, ByVal item As String, ByVal fecha As String, ByVal valor As String, ByVal ubicacion As String) As Integer
Dim connectionString As String = "server=; user id='; password=''; database="
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "INSERT INTO [Inventario] ([Item], [Inventario], [Equipo], [Modelo], [Serie], [Ubi" & _
"cacion], [Grupo Inventariable], [Inicio Garantia], [Termino Garantia], [Empresa " & _
"Garantia], [Rut], [Fecha Compra], [Factura], [Valor Compra], [Tipo Depreciacion]" & _
", [Estado], [Fecha Estado], [Lugar], [IDDeSolicitud]) VALUES (@lugar, @equipo" & _
", @Modelo, @Serie, @Inventario, @Item, , , , , , @Fecha , , @Valor" & _
", , , , @Ubicacion, )"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand()
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_lugar As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_lugar.ParameterName = "@Lugar"
dbParam_lugar.Value = lugar
dbParam_lugar.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_lugar)
Dim dbParam_equipo As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_equipo.ParameterName = "@Equipo"
dbParam_equipo.Value = equipo
dbParam_equipo.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_equipo)
Dim dbParam_modelo As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_modelo.ParameterName = "@Modelo"
dbParam_modelo.Value = modelo
dbParam_modelo.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_modelo)
Dim dbParam_serie As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_serie.ParameterName = "@Serie"
dbParam_serie.Value = serie
dbParam_serie.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_serie)
Dim dbParam_inventario As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_inventario.ParameterName = "@Inventario"
dbParam_inventario.Value = inventario
dbParam_inventario.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_inventario)
Dim dbParam_item As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_item.ParameterName = "@Item"
dbParam_item.Value = item
dbParam_item.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_item)
Dim dbParam_fecha As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_fecha.ParameterName = "@Fecha"
dbParam_fecha.Value = fecha
dbParam_fecha.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_fecha)
Dim dbParam_valor As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_valor.ParameterName = "@Valor"
dbParam_valor.Value = valor
dbParam_valor.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_valor)
Dim dbParam_ubicacion As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_ubicacion.ParameterName = "@Ubicacion"
dbParam_ubicacion.Value = ubicacion
dbParam_ubicacion.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_ubicacion)
Dim rowsAffected As Integer = 0
dbConnection.Open()
Try rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close()
End Try
Return rowsAffected
End Function
el error es el siguiente
sintaxis incorrecta cerca de ','.
me lo arroga en la linea que puse en negrita en el codigo
todo esto lo desarrollo a traves de un control button
el cual tiene el siguiente codigo
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim datos As Integer
datos = MyInsertMethod(lugar.Text, equipo.Text, modelo.Text, serie.Text, inventario.Text, item.Text, fecha.Text, valor.Text, ubicacion.Text)
If datos = 0 Then
MsgBox(" dato no fue ingresado")
Else
MsgBox("dato ingresado correctamente")
End If
__________________ MARIA JESUS :si: :aplauso:
----------------------------------------------------
"no hay nada bueno ni malo el pensar lo hace asi"
w.shakespeare |