Grabar datos de una tabla a otra
Hola.
Soy estudiante de primer ciclo de programacion y tengo un proyecto al que quiero grabar los resultados de una consulta a una tabla. les envio el codigo que he realizado:
Private Sub consulta()
SQL = SQL + "select * from arancel"
SQL = SQL + " where aduana LIKE '" & txt_aduana1 & "*' "
SQL = SQL + " and aduana like '" & txt_aduana2 & "*' "
SQL = SQL + " AND importador like '" & txt_importador1 & "*' "
SQL = SQL + " and importador like '" & txt_importador2 & "*' "
SQL = SQL + " AND remitente LIKE '" & txt_proveedor1 & "*' "
SQL = SQL + " and remitente like '" & txt_proveedor2 & "*' "
SQL = SQL + " AND mercaderia LIKE '" & txt_producto1 & "*' "
SQL = SQL + " and mercaderia like '" & txt_producto2 & "*' "
SQL = SQL + " AND partida LIKE '" & txt_partida1 & "*' "
SQL = SQL + " and partida like '" & txt_partida2 & "*' "
SQL = SQL + " order by ' & ordena & ' ;"
Set rsp = db.OpenRecordset(SQL)
Set res = db.OpenRecordset("RESULTA", dbOpenDynaset)
Set res = db.OpenRecordset(SQL)
Set dtc_items.Recordset = rsp
hasta este parte no tengo problemas
el problema redica en que el resultado de rsp o res
lo deseo grabar en dtc_query la cual es una tabla de consultas; no me acepta las instrucciones de sql (delete o insert) ambas son importantes una es para limpiar la tabla y la otra es para agregar los datos.
uso DAO especificando la ruta, soy un novato en esto
Set dtc_query.Recordset = res
'Set dtc_query.UpdateRecord = res
End Sub
este es un proyecto que nos sugirieron
Por favor me pueden enviar un codigo para completar este proceso lo mas antes posible.
Gracias.
Soy estudiante de primer ciclo de programacion y tengo un proyecto al que quiero grabar los resultados de una consulta a una tabla. les envio el codigo que he realizado:
Private Sub consulta()
SQL = SQL + "select * from arancel"
SQL = SQL + " where aduana LIKE '" & txt_aduana1 & "*' "
SQL = SQL + " and aduana like '" & txt_aduana2 & "*' "
SQL = SQL + " AND importador like '" & txt_importador1 & "*' "
SQL = SQL + " and importador like '" & txt_importador2 & "*' "
SQL = SQL + " AND remitente LIKE '" & txt_proveedor1 & "*' "
SQL = SQL + " and remitente like '" & txt_proveedor2 & "*' "
SQL = SQL + " AND mercaderia LIKE '" & txt_producto1 & "*' "
SQL = SQL + " and mercaderia like '" & txt_producto2 & "*' "
SQL = SQL + " AND partida LIKE '" & txt_partida1 & "*' "
SQL = SQL + " and partida like '" & txt_partida2 & "*' "
SQL = SQL + " order by ' & ordena & ' ;"
Set rsp = db.OpenRecordset(SQL)
Set res = db.OpenRecordset("RESULTA", dbOpenDynaset)
Set res = db.OpenRecordset(SQL)
Set dtc_items.Recordset = rsp
hasta este parte no tengo problemas
el problema redica en que el resultado de rsp o res
lo deseo grabar en dtc_query la cual es una tabla de consultas; no me acepta las instrucciones de sql (delete o insert) ambas son importantes una es para limpiar la tabla y la otra es para agregar los datos.
uso DAO especificando la ruta, soy un novato en esto
Set dtc_query.Recordset = res
'Set dtc_query.UpdateRecord = res
End Sub
este es un proyecto que nos sugirieron
Por favor me pueden enviar un codigo para completar este proceso lo mas antes posible.
Gracias.