Creacion de Tabla e inserción de datos

[klionsis]

no, entiendo que en la conssulta que te estoy mostrando está el select necesario para realizar la insercion, lo tome como si fuera de la seguiente manera

Código SQL [-]
Insert into Tabla select * from Tabla2

desde esta inserción básica le he agregado el in RutaArchivo como me habias indicado.

A esto te referis?


Gracias.

[[coso]]

saldras antes de dudas probandolo...

[[coso]]

creo que tanto el insert into como el select into te da error si la tabla ya existe en el fichero.

[klionsis]

Pero por lo que estoy entendiendo hay otra alternativa de como hacer estos a parte de la que estoy tratando de hacer funcionar, el "Select into", si es así no se como prodria aplicarla. Vos podrias con los datos que tengo mas arriba darme un ejemplo de lo que me queres decir??

Quizas estoy haciendo algo mal... lo estoy probando y no me funciona.


Muchas gracias nuevamente, je.

Saludos.

[[coso]]

es que no tiene mucho secreto mas...es aquella consulta, tal cual. te tendria que funcionar si la tabla no existe dentro de productos.dbf...a mi, al menos, me funciona asi, y lo uso bastante. Busca el parametro 'in' de sql, que es para acceder a bases de datos externas a la conectada (aunque es bastante entendible ya por los ejemplos) a ver si sacas algo en claro.

Te pongo un ejemplo en la que uso esta forma

Código Delphi [-]
        s := ExtractFileName(OpenDialog1.Filename);             // Nom de l'arxiu
        p := ExtractFilePath(OpenDialog1.Filename);             // path de l'arxiu
        ...
        c.Connected := false;                                   // Fem conexió a l'arxiu
        c.LoginPrompt := false;
        c.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;'+
        'Data Source='+ ExtractFilePath(OpenDialog1.Filename) + ';Mode=Share Deny None;Extended Properties="text;HDR=Yes;FMT=Fixed";'+
        'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";'+
        'Jet OLEDB:Engine Type=96;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'+
        'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
        'Jet OLEDB:Encrypt Database=False;Jet OLEDBon''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;'+
        'Jet OLEDB:SFP=False';
        c.Connected := true;
        ...
        q.Connection := c;                                      // insert massiu a ARTICLES_TMP
        q.Active := false;
        q.SQL.Text :=  'select ' +
                        'id, '+
                        'cod_mar, ' +
                        'cod_fam, ' +
                        'IIF((select marge from MARQUES in ''' + str_articles + ''' where id = cod_mar),'+
                        '(select marge from MARQUES in ''' + str_articles + ''' where id = cod_mar),0) as marge_tmp, '+
                        '(select id_linia from FAMILIES in ''' + str_articles + ''' where id = cod_fam) as cod_lin, '+
                        '(select DESCR from FAMILIES in ''' + str_articles + ''' where id = cod_fam) as FAMILIA, ' +
                        '(select DESCR from MARQUES in ''' + str_articles + ''' where id = cod_mar) as MARCA, ' +
                        'Trim(IIF(DESCR1,Trim(DESCR1),'' '') + '' '' + IIF(DESCR2,Trim(DESCR2),'' '')) as DESCR,' +
                        'PMin, ' +
                        'PRec, ' +
                        'PBase, ' +
                        'iif(iif(PMin > PRec,PMin,PRec) = 0, PBASE * 116/(100 - marge_tmp),iif(PMin > PRec,PMin,PRec)) as PVP,'+
                        'iif(stock = ''&'',true,false) as STOCK ' +
                        'into ARTICLES_TMP in ''' + str_articles + ''' from ' + s;
        q.ExecSQL;
        ...

como ves, en esencia es lo mismo que te he puesto, solo que calcula los argumentos que necesito. A ver si el unico problema que vas a tener es que usas las comillas dobles. Prueba de hacer + QuotedStr(Ruta_archivo_destino,'''') o bien poner las comillas tal como se ponen en una cadena (''')

[klionsis]

coso, verdaderamente no quiero agotar tu paciencia pero realmente esto no me sale, la ultima prueba que he hecho es esta:


tquery1.SQL.Add('select CPROD,"DESC",MA,LE,PREV,ACTUA into ARTIC in QuotedStr(c:\Actualizacion\Tablas\ARTIC.dbf,'''') from ART21');


donde ARTIC.DBF es la tabla que esta en otro lado, ART21 es la tabla que se encuentra en mi alias...

No se que probar... ves que puede estar mal en lo que estoy haciendo?

Gracias nuevamente.. je.
Saludos


Perdon me olvidé de etiquetar el código.

[[coso]]

Fijate que la ruta tiene que ser una string, y en este caso no lo es. De igual manera, no entiendo porque DESC le pones comillas...en fin, no tiene mas secreto. Quiza no te debe funcionar a ti por algun otro motivo. saludos.