Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/05/2011, 16:06
guillebomtrasmiti
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 12 años, 2 meses
Puntos: 5
Pregunta insert into + select + values

alguien me puede ayudar, no me sale una consulta, necesito seleccionar una tabla entera hacia otra y solo unos cuantos campos del formulario en otra tabla...he hecho esto y me da error en la consulta sql...gracias de antemano

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