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
WAA und ADSDBE möglich? wenn ja wie?
Moderator: Moderatoren
WAA und ADSDBE möglich? wenn ja wie?
Zuletzt geändert von DelUser01 am Sa, 14. Dez 2013 22:19, insgesamt 1-mal geändert.
Re: WAA und ADSDBE möglich? wenn ja wie?
Hallo!
Hat sich erledigt - hab es herausgefunden.
Gruß
Roland
Hat sich erledigt - hab es herausgefunden.
Gruß
Roland
- Hans Zethofer
- 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?
und wie ist die Auflösung deiner selbstgestellten Frage
geht es jetzt =D>
oder
geht es doch nicht
Danke für die Info (falls ich oder jemand anders das einmal machen möchte )
geht es jetzt =D>
oder
geht es doch nicht
Danke für die Info (falls ich oder jemand anders das einmal machen möchte )
_____________
lg
Hans
lg
Hans
Re: WAA und ADSDBE möglich? wenn ja wie?
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"
In GsWaa1Start() habe ich meine DbeSys-Standards eingebunden welche auch in allen anderen meiner Progs stehen:
nun kann ich in WAA auch mit der ADSDBE arbeiten (und den anderen).
Gruß
Roland
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. )
*-----
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.)
Gruß
Roland