FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour No puedo crear tablas ( DbCreate )
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
No puedo crear tablas ( DbCreate )
Posted: Wed May 24, 2017 06:06 PM
Que tal, buenas tardes
Tengo este problema
Si mi ruta para accesar a mis tablas es: "\\server\sistema\"
y quiero crear un archivo temporal
en la maquina local (misma ruta donde esta el exe)
no me lo crea, alguien ya le paso eso.

Code (fw): Select all Collapse
        cMi_ := DiskName()+":"+CurDir()
        IF !Empty(CurDir())
            cMi_ := DiskName()+":\"+CurDir()    
        ENDIF   
        cMi_ := cMi_+"\TEMPORAL"
        IF !FILE( cMi_ )
            lMkDir(cMi_)
        ENDIF
        cCreate := cMi_+"\"+cCrea
        IF !dbCreate( cCreate, aTempora, DbSetDriver())
           ?"No se pudo crear el archivo temporal local..."
           RETURN ""
       ENDIF


Pero si mi ruta es sobre una unidad de red ( w:\ )
y el exe se ejecuta desde esta unidad
entonces si crea el temporal.

Alguien podria darme un tip de como hacerlo.

Gracias.
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: No puedo crear tablas ( DbCreate )
Posted: Wed May 24, 2017 06:25 PM

ADSConnect // ADS
Se puede tener 2 conecciones ?
y como abro las tablas ?

Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: No puedo crear tablas ( DbCreate )
Posted: Wed May 24, 2017 07:00 PM

Solamente teniendo 2 conecciones

una al servidor "\server\sistema\
y otra a la pc local "c:\sistema\temporal"

asi pude crear y abrir el temporal.

Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM
Re: No puedo crear tablas ( DbCreate )
Posted: Thu May 25, 2017 05:20 PM
Vita

Consider these suggestions ...

Rick Lipkin
Code (fw): Select all Collapse
cLOCATION := GetEnv( "TEMP" )                          \\ c:\users\rick lipkin\appdata\local\temp

cLocation := GetEnv( "SYSTEMROOT" )+"\Temp"      \\ c:\Windows\Temp

Location of Executable .. returns unc or logical drive

// where .exe started from is default directory //
cFILE := GetModuleFileName( GetInstance() )

nSTART := RAT( "\", cFILE )
cDEFA  := SUBSTR(cFILE,1,nSTART-1)

SET DEFA to ( cDEFA )

Continue the discussion