Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO LineasFacturasH (CodProveedor,NombreProveedor)SELECT * From LineasFacturas " _
+ "values (@Cod,@Nomb)"
Dim cod As OleDbParameter
Dim Nomb As OleDbParameter
cod = New OleDbParameter("@Cod", OleDbType.Integer) '(@cod)
Nomb = New OleDbParameter("@Nomb", OleDbType.WChar) '(@Nomb)
cod.Value = Me.UCProveedores.Value
Nomb.Value = Me.UCProveedores.Text
comados.Parameters.Add(cod)
comados.Parameters.Add(Nomb)
conexion.Open()
Dim Lecto1 = comados.ExecuteNonQuery
'limpia el datagridview eliminando la todo de la tabla lineas facturas
borralineasfactura()
'conecto el grid para volver a refrescarlo después del borrado
conectagrid()
conexion.Close()
' Catch
