Inoffizielles deutsches Xbase-Forum

Computerverwaltung/"freigegebene. Dort kann man die Dateien auch schliessen ohne den Rechner neu zu booten

Die Workbanch hat ja eine eigene Pfad Verwaltung, du musst die LL Runtime hinzufügen:
-> Werkzeuge
-> Umgebungs Optionen
-> Verzeichnisse

Hallo Adi

Was funktioniert genau nicht ?
Die LL Funktionen werden ja in der DLL ausgeführt. Da kannst du nicht debuggen.
Ansonst musst du die Pfade in der Workbench für LL eintragen, sonnst wird die LL Runtime nicht gefunden.

Vielleicht:
Alaska Software Internet Portal

Ich vernute, das neue Portal

https://portal.alaska-software.com/

ist mit der neuen Technik schon realisiert und wird da noch getestet.

So spontan fällt mir eigentlich KEINE Xbase String Funktion ein, die NICHT casesensitiv arbeitet.
Kannst du mir auf die Sprünge helfen?

ich würde mal probieren: (habs nicht getestet) uProperyy := I2bin(0) // oder 1,, als 2-byte String AdsDDSetArticleProperty(; hHandle,; "xcy",; "tabelname",; 1608,; // ADS_DD_ARTICLE_UPDATE_MERGE uProperty ,; 2 )

Der Fehler 7216 macht mich stutzig. Ich kenn zwar deine Schleife nicht, aber bist du dir sicher, alle Handles wieder zu schliessen? Mehr als 50 aktive SQL Abfragen gleichzeitig je User?

ConnNumber (O)
NetWare connection number. (Deprecated)

um das abzuschliessen

Das scheint nicht vorgesehen zu sein, über eine IP ADresse die geöffneten Tabelle abzufragen.
Ein Workaround könnte sein:
sp_mgGetAllTables => alle geöffneten Tabellen ermitteln, und dann je Tabelle

sp_mgGetTableUsers abfragen, hier kommt die TSAddress wieder ins Spiel

Das Feld TSAddress ist eigentlich genau dafür da. Hab nur keinen Terminalserver um das zu verifizieren.

Ich hab ja AdsClass++, das rein auf der API basiert. Da hab ich all die Probleme nicht. Ich kann das dann so abfragen: dbUser := AppDic():OpenSelect("execute procedure sp_mgGetConnectedUsers()") // Appdic() ist das Connection Objekt // un dann kann ich darüber skippen do while !dbUser:eof(...

in der sqlcmd.ch hab ich die auch gefunden, aber da wird am Anfang die odbcdbe.cd includiert. Denke, die Funktion ist wohl eher für diese DBE gedacht.

// Inhalt:
// Kommando-basiertes Nutzen von SQL via ODBCDBE in Xbase++

Komisch, ich fin die Funktion SqlExecSP gar nicht. Auch in keinem Header File oder Doku!?! Ich habe noch einiges probiert. Alles schlägt fehl. Das ist aber ein Problem der ADSDBE z.B. DbeInfo( COMPONENT_DATA , ADSDBE_TBL_MODE, ADSDBE_ADT ) DbeInfo( COMPONENT_ORDER, ADSDBE_TBL_MODE, ADSDBE_ADT ) DbeI...

hast du mal: a := SqlExecSp("execute procedure sp_mggetconnectedusers()",oSession,,.F.) // oSession ist die DAC-Session mit dem ADS probiert. Wenn auch nicht, verusuch mal: a := SqlExecSp("select * from ( execute procedure sp_mggetconnectedusers())",oSession,,.F.) // oSession ist...

ich schau mir das morgen mal m Büro an. Kann sein, ADSDBE untestützt das nicht. Aber damit kenne ich mich nicht mehr aus.

oder wo liegt dein Problem?
Das gibt dir einen cursor auf eine Tabelle zurück.
Das sollte auch mit der adsdbe funktionieren

Ja

Sorry, Webseite wird erst morgen hochgeladen. Ich war zu schnell

Sorry, Webseite wird erst morgen aktualisiert, hab ich eben erfahren Version 5.3 Build 058: dsAceQTable:ScatterName enhanced: new parameter: fieldlist, Xbase SCATTER NAME compatible dsAceQTable:GatherName enhanced: new parameter: fieldlist, Xbase SCATTER NAME compatible dsAceQTable:FieldPut enhanced...

Hallo
Endlich fertig. Die neue Version 3.00.006 steht zum Download bereit. Sie ist auch die DBE in VDBU für die PostgreSQL

Download :
https://www.ds-datasoft.de/g-download.html
bzw.
https://www.ds-datasoft.de/e-download.html


Mit freundlichen Grüßen
euer DS-Datasoft Team

Hallo,
die neue AdsClass Version 5.3.058 kann jetzt von unserer Homepage
heruntergeladen werden.

Für den Download und um die Erweiterungen zu sehen, besucht bitte unsere Homepage
https://www.ds-datasoft.de

Das geht nur wenn du eine Funktion im Codeblock aufrufst: cbTest := {|a| MyFunction(a,b)} STATIC FUNC myFunction(a,b) local bErr := Errorblock({|o| ... }) // hier kannst du noch deinne eigenen Errorblock definieren, wenn nötig local xRet BEGIN SEQUENCE xRet := a / b RECOVER END Errorblock(bErr) RETR...

nProject; // LL_PROJECT_LIST LL_PROJECT_CARD LL_PROJECT_LABEL
cReport: der Name der LL Layout Datei
cPrinter ist der Druckername wie er u.a. von xbpPrinter():List() zurückgegeben wird.

Alles von der Bilderkennung über die Codeerstellung bis zur Erstellung des Hintergrunds wurde mit ChatGPT gemacht, ohne dass ich selbst den Code verändert habe

Das ist schon krass