Respuesta: Problema guardar arreglado..para quien le pueda servir
Public Sub creainventario()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim comados = conexion.CreateCommand
' Insert into FacturaHistorico(campo,campo2,campo3)
'Select campo,campo2,campo3,@variableAnio,@variableMes from Factura
comados.CommandText = "INSERT INTO GeneralAlmacen(Plu,NomProducto,Fecha) Select Plu,NomProducto,@FI From Productos"
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
conexion.Open()
' Dim nu As Integer = CInt(
comados.ExecuteNonQuery()
' Actualizar()
conexion.Close()
End Sub |