Buenos dias, estoy realizando una inserción desde Visual Basic en una base de datos de SQL Server desde un ComboBox
que estoy llenando desde una base de datos, a la hora de guardar el dato, en la base de datos me gurda lo siguiente:
lo tengo en clases
Insertar quejas
Function Insertar_Queja(ByVal CLIENTE As String, ByVal DIRECCION As String, ByVal CONTACTO As String,
ByVal VENDEDOR As String, ByVal FECHA As Date, ByVal OBSERVACIONES As String, ByVal NOTCREDITO As String) As String
Dim salida As String = "Se genero el Reclamo"
Try
cmd = New SqlCommand("Sp_InsertarQUeja", cn)
cmd.CommandType = CommandType.StoredProcedure
With cmd.Parameters
.AddWithValue("@Cliente", CLIENTE)
.AddWithValue("@DIreccion", DIRECCION)
.AddWithValue("@Contacto", CONTACTO)
.AddWithValue("@Vendedor", VENDEDOR)
.AddWithValue("@Fecha", FECHA)
.AddWithValue("@Observaciones", OBSERVACIONES)
.AddWithValue("@Nota_Credito", NOTCREDITO)
End With
cmd.ExecuteNonQuery()
Catch ex As Exception
salida = "No se genero debido a: " + ex.ToString
End Try
Return salida
End Function
y en el botón tengo lo siguiente:
MsgBox(conn.Insertar_Queja(CmbCliente.SelectedItem.ToString, TxtDireccion.Text, TxtContacto.Text, CmbVendedor.SelectedItem.ToString, CDate(Dtp1.Text), TxtObservaciones.Text, CmbNotaCredito.SelectedItem.ToString))
Todo llamado de este store procedure:
@Cliente as varchar (50),
@Direccion as varchar (50),
@Contacto as varchar (50),
@Vendedor as varchar(50),
@Fecha as date,
@Observaciones as varchar(500),
@Nota_Credito as varchar(50)
as
insert RECLAMOS
(Cliente,Direccion,Contacto,Vendedor,Fecha,Observaciones,Nota_Credito)
values
(@Cliente,@Direccion,@Contacto,@Vendedor,@Fecha,@Observaciones,@Nota_Credito)
CmbCliente.SelectedItem
es unDataRow
, con sus columnas. El métodoToString
de unDataRow
simplemente te devuelve un string con el nombre de la clase. Pulsa en editar y añade exactamente el código que estas usando para guardar en la base de datos y asi poder darte la solución exacta.