Hola amigos, tengo unos textbox que guardo su información en una tabla de una base de datos access, por ahí todo genial...pero cuando le paso que guarde también los valores del combo box...me guarda datos que no son los que esperaba, os paso el código para ver si detectais que hago mal, gracias a todosssssss
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
'Try
Dim comados = conexion.CreateCommand
comados.CommandText = "INSERT INTO LineasFacturasHCabecera (CodProveedor,NombreProveedor,NFacturaSRCabecera,O troDto,OtroImpuesto,TotalFactura) " _
+ "values (@Cod,@Nomb,@Cabe,@OtroD,@OtroI,@Tot)"
'"SELECT @@Identity"
'Dim Id As OleDbParameter
Dim cod As OleDbParameter
Dim Nomb As OleDbParameter
Dim Cabe As OleDbParameter
Dim OtroD As OleDbParameter
Dim OtroI As OleDbParameter
Dim Tot As OleDbParameter
cod = New OleDbParameter("@Cod", OleDbType.Integer) '(@cod)
Nomb = New OleDbParameter("@Nomb", OleDbType.WChar) '(@Nomb)
Cabe = New OleDbParameter("@Cabe", OleDbType.WChar) '(@Cabe)
OtroD = New OleDbParameter("@OtroD", OleDbType.Integer) '(@OtroD)
OtroI = New OleDbParameter("@OtroI", OleDbType.Integer) '(@OtroI)
Tot = New OleDbParameter("@Tot", OleDbType.Single) '(@Tot)
cod.Value = Me.UCProveedores.ValueMember = "NProveedor"
Nomb.Value = Me.UCProveedores.DisplayMember = "NomProveedor"
Cabe.Value = Me.TextNFactura.Text
OtroD.Value = Me.TextoTRDTO.Text
OtroI.Value = Me.TextotrImp.Text
Tot.Value = Me.TextTotal.Text
comados.Parameters.Add(cod)
comados.Parameters.Add(Nomb)
comados.Parameters.Add(Cabe)
comados.Parameters.Add(OtroD)
comados.Parameters.Add(OtroI)
comados.Parameters.Add(Tot)
conexion.Open()
' Dim nu As Integer = CInt(
comados.ExecuteNonQuery()
' Actualizar()
conexion.Close()
Return
End Sub
