error

[mjesus20]

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

[RootK]

Por lo que veo para empezar te faltan parámetros o te sorbran dependiendo de como esté tu campo..

ya que tienes:

[Item], [Inventario],
...
y en el values.
VALUES (@lugar, @equipo.... y donde quedo Item ..?? es un autonumerico, cadena.. o que guardas.. porque no veo que lo inlcuyas...

Ahora.. cuando coloques simplemente , , recuerda colocar simples comillas para que lo tome como texto ya que no estás colocando nada, sería por ejemplo así:

@Inventario, @Item,'','','','','', @Fecha,'', .....

Checalo y cualquier cosa por aqui andamos..

Salu2

[mjesus20]

como veras si tengo el item en el values

VALUES (@lugar, @equipo" & _
", @Modelo, @Serie, @Inventario, @Item, , , , , , @Fecha , , @Valor" & _
", , , , @Ubicacion, )"

[RootK]

como veras si tengo el item en el values

Pero recuerda que debes tener el mismo orden en que los pusiste en tu insert.. .

[mjesus20]

ok los puse en el mismo orden que mi insert
pero me sigue arrojando el mismo error

[Jose_minglein2]

Podría ser porque alguno de los parámetros que le estas pasando contiene una coma o algún signo raro, y por eso el gestor de BD entiende que le estas pasando 20 (o mas) parametros, en vez de los 19 que ha de recibir.

Yo englobaría los string dentro de los signos que margen tu gestor, por ejemplo, yo un MySQL y para insertar un string

insert into tabla (nombre) values('Perez Perez, Juanito')

de esta manera entiende el string entero,
intenta mirar haber si es eso

Suerte

[mjesus20]

es que tengo el mismo ejemplo desarrollado con una coneccion a access y mefunciona bien pero cuando la pase para conectarme a sql server no me funciono y segun lo que tengo entendido funcionan de la misma forma

[C@rlos_A]

Hola

Soy nuevo en el Forum y no llevo mucho tiempo trabajando con VB.NET; sin embargo pienso que quizás el problema se te presente porque el campo Item definido en tu BD es del tipo Identity y como le estás pasando un valor a través del @Item se te genera el error. Si es del tipo Identity se van creando los valores automáticamente y cuando intentas pasarle algun valor te genera error.

Saludos

Carlos