WAA und ADSDBE möglich? wenn ja wie?

Zugriff, Engines, Konvertierung. Von ADS über DBF bis zu SQL.

Moderator: Moderatoren

Antworten
DelUser01

WAA und ADSDBE möglich? wenn ja wie?

Beitrag von DelUser01 »

Hallo!

Kann in WAA die ADSDBE eingefügt werden?
Laut der Doku zu WAA ist nur DBFNTX, DBFCDX und FOXCDX möglich.

Hintergrund:
Auf einem WebServer habe ich WAA laufen.
Darauf habe ich jetzt eine Applikation implementiert die auf DBs per ADSDBE zugreifen müssen. Ohne ADSDBE geht es nicht, da die DBs auf dem internen Server bereits durch den ADS benutzt werden.
Keine Ahnung wie das sonst gehen soll...

Oder weiß jemand wie das gehen soll?

Grüße
Roland
Zuletzt geändert von DelUser01 am Sa, 14. Dez 2013 22:19, insgesamt 1-mal geändert.
DelUser01

Re: WAA und ADSDBE möglich? wenn ja wie?

Beitrag von DelUser01 »

Hallo!

Hat sich erledigt - hab es herausgefunden.

Gruß
Roland
Benutzeravatar
Hans Zethofer
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 278
Registriert: Fr, 27. Jan 2006 8:29
Wohnort: 2700 Wiener Neustadt
Hat sich bedankt: 1 Mal
Kontaktdaten:

Re: WAA und ADSDBE möglich? wenn ja wie?

Beitrag von Hans Zethofer »

und wie ist die Auflösung deiner selbstgestellten Frage :?:

geht es jetzt =D>
oder
geht es doch nicht [-X

Danke für die Info (falls ich oder jemand anders das einmal machen möchte :wink:)
_____________
lg
Hans
Benutzeravatar
Armin
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 389
Registriert: Mo, 26. Sep 2005 12:09
Wohnort: 75331 Engelsbrand
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: WAA und ADSDBE möglich? wenn ja wie?

Beitrag von Armin »

Hallo Roland,

würde mich auch interessieren...

Gruß, Armin
DelUser01

Re: WAA und ADSDBE möglich? wenn ja wie?

Beitrag von DelUser01 »

Hallo Hans und Armin,

habe Eure Frage nach dem "wie" erst jetzt gelesen.
ALSO:

Beim Starten des WAA habe ich eine Form eingebunden, hier "p1waa1"

Code: Alles auswählen

* waa1_s
#Include "gs.ch"
* WAA-Spezifische Funktionen
*-----
Function _Register( oPackage )
oPackage:RegisterForm( "p1waa1"  )
Return( .T. )
*-----
Function P1waa1( oHtml , oContext )
Local cDocRoot    := oContext:GetDocRoot()
Local cSID        := GsWaa1ChkMakeSID( oContext , NIL )
oContext:OpenSession()   // Browser-Session öffnen
GsWaa1Start()            // Start-Einstellungen für WAA-Apps
P1SubInit( cDocRoot )    // Programm-Setup da kein MAIN
P1waa1Start( oHtml , oContext )
GsWaa1Stop()             // Herunterfahren der WAA-App
Return( .T. )
*-----
In GsWaa1Start() habe ich meine DbeSys-Standards eingebunden welche auch in allen anderen meiner Progs stehen:

Code: Alles auswählen

Function MainDbeSys
If !MainDbeChk( "DBFNTX" )
   If !MainDbeChk( "DBFDBE" )
      If !DbeLoad( "DBFDBE" , .T. )
         MainQuit( GsSpText(54) , GsSpText(54) , .T. )
      EndIf
   EndIf
   If !MainDbeChk( "NTXDBE" )
      If !DbeLoad( "NTXDBE" , .T. )
         MainQuit( GsSpText(56) , GsSpText(56) , .T. )
      EndIf
   EndIf
   If !DbeBuild( "DBFNTX" , "DBFDBE" , "NTXDBE" )
      MainQuit( GsSpText(58) , GsSpText(58) , .T. )
   EndIf
EndIf
If !MainDbeChk( "DELDBE" )
   If !DbeLoad( "DELDBE" , .F. )
      MainQuit( GsSpText(55) , GsSpText(55) , .T. )
   EndIf
EndIf
If !MainDbeChk( "SDFDBE" )
   If !DbeLoad( "SDFDBE" , .F. )
      MainQuit( GsSpText(55) , GsSpText(55) , .T. )
   EndIf
EndIf
If !MainDbeChk( "ADSNTX" )
   If !MainDbeChk( "ADSDBE" )
      If !DbeLoad( "ADSDBE" , .F. )
         MainQuit( GsSpText(53) , GsSpText(53) , .T. )
      EndIf
   EndIf
   If !DbeBuild( "ADSNTX" , "ADSDBE" , "NTXDBE" )
      MainQuit( GsSpText(57) , GsSpText(57) , .T. )
   EndIf
EndIf
DbeSetDefault( "DBFNTX" )
Return(.T.)
nun kann ich in WAA auch mit der ADSDBE arbeiten (und den anderen).

Gruß
Roland
Antworten