Tema: error
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/03/2005, 09:32
mjesus20
 
Fecha de Ingreso: marzo-2005
Mensajes: 190
Antigüedad: 20 años
Puntos: 0
Exclamación 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