Hola!
Necesito guardar datos en una BD de SQL 2000 de tipo nvarchar, char, image e int pero no encuentro la manera de conseguirlo. Después de solucionar varios errores, me encuentro atascado con error Iconvertible, exactamente...
"El objeto debe implementar IConvertible"
Éste es el código del procedimiento:
...
Implements IConvertible
...
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
' Creo una nueva conexion SQL y le asigno la cadena de conexion
Dim SQLCnn As New SqlConnection(sCnn)
' Creo el comando a llevar a cabo (insertar en la tabla)
Dim SQLCmm As New SqlCommand
With SQLCmm
SQLCmm.Connection = SQLCnn
If .Parameters.Count = 0 Then
.CommandText = "INSERT INTO USO_VEHICULOS VALUES(@PEN_ID, @PEN_FECHA, @PEN_MAIL, @PEN_USUARIO, @DATO_IDA, @DATO_VUELTA, @DATO_USERID, @DATO_COMPI, @DATO_VEHICULO, @DATO_SOLRED, @DATO_VIAT, @DATO_FIRMA, @DATO_DESTINO, @DATO_OBSERVACIONES, @DATO_PGC)"
.Parameters.Add("@PEN_ID", System.Data.SqlDbType.NVarChar, 16)
.Parameters.Add("@PEN_FECHA", System.Data.SqlDbType.NVarChar, 16)
.Parameters.Add("@PEN_MAIL", System.Data.SqlDbType.NVarChar, 150)
.Parameters.Add("@PEN_USUARIO", System.Data.SqlDbType.Char, 25)
.Parameters.Add("@DATO_IDA", System.Data.SqlDbType.Image)
.Parameters.Add("@DATO_VUELTA", System.Data.SqlDbType.Image)
.Parameters.Add("@DATO_USERID", System.Data.SqlDbType.Int, 4)
.Parameters.Add("@DATO_COMPI", System.Data.SqlDbType.NVarChar, 9)
.Parameters.Add("@DATO_VEHICULO", System.Data.SqlDbType.Int, 4)
.Parameters.Add("@DATO_SOLRED", System.Data.SqlDbType.NVarChar, 1)
.Parameters.Add("@DATO_VIAT", System.Data.SqlDbType.NVarChar, 1)
.Parameters.Add("@DATO_FIRMA", System.Data.SqlDbType.Image)
.Parameters.Add("@DATO_DESTINO", System.Data.SqlDbType.Image)
.Parameters.Add("@DATO_OBSERVACIONES", System.Data.SqlDbType.Image)
.Parameters.Add("@DATO_PGC", System.Data.SqlDbType.NVarChar, 150)
End If
.Parameters("@PEN_ID").Value = pen_id.Text
.Parameters("@PEN_FECHA").Value = pen_fecha.Text
.Parameters("@PEN_MAIL").Value = pen_fecha.Text
.Parameters("@PEN_USUARIO").Value = pen_usuario.Text
.Parameters("@DATO_IDA").Value = dato_ida
.Parameters("@DATO_VUELTA").Value = dato_vuelta
.Parameters("@DATO_USERID").Value = var_userid.Text
.Parameters("@DATO_COMPI").Value = array_compi.Text
.Parameters("@DATO_VEHICULO").Value = var_vehiculo.Text
.Parameters("@DATO_SOLRED").Value = var_solred.Text
.Parameters("@DATO_VIAT").Value = var_viat.Text
.Parameters("@DATO_FIRMA").Value = dato_firma
.Parameters("@DATO_DESTINO").Value = dato_destino
.Parameters("@DATO_OBSERVACIONES").Value = dato_observaciones
.Parameters("@DATO_PGC").Value = dato_pgc.Text
SQLCnn.Open()
.ExecuteNonQuery()
SQLCnn.Close()
End With
End Sub
Al añadir el "Implements IConvertible" me crea varios procedimientos de conversión que están sin rellenar y que tampoco se si hay que rellenarlos. Alguien podría ayudarme a solucionar este problema? Me estoy desesperando.
Un saludo y gracias.
