Copiar registros de una tabla a otra tabla por sql

Valen
06 de Octubre del 2003
Hola a todos, como puedo copiar registros de una tabla a otra mediante sql? Es decir yo quiero que mi programa pase los datos de la tabla presupuestos a pedidos una vez aceptado el presupuesto. Gracias de antemano

sdemingo
06 de Octubre del 2003
dim oConexion as new adodb.connection
dim rsPresupuesto as new adodb.recordset
dim strSql as string

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BaseDatos.mdb"

strSql = "select * from presupuestos"
rsPresupuesto.Open strSql, oConexion, adOpenKeyset, adLockOptimistic

if rsPresupuesto.RecordCount <> 0 Then
do while not rsPresupuesto.EOF
strSql = "insert into Pedidos values ('" & rsPresupuesto("NombreCampo") & "','......."
oConexion.Execute strSql
rsPresupuesto.MoveNext
loop
End if
rsPresupuesto.Close
oConexion.Close


Un saludo
sdemingo