Kennt jemand SBROWSE von CombiFinanz?

[Christof]

Ich geb' noch nicht auf

Kennt jemand:
http://www.combifinanz.de/tools/sbrowse.htm

In der kurzen Beschreibung wird folgendes "versprochen":

Contents of the Libs, which are contained in SBROWSE.ZIP

SBrowse
Datadictionary
SQL-Acess without ODBCDBE
XbpDialogCrt-class (using a XbpDialog like XbpCrt)
Universal Printer-Class based on L&L (dbf-Files, arrays)
ExcelOle (Excelwrapper, Easy-Access to Excel )
Excel-Scripting-Class (executs commands from a text file in Excel)
Verbose debug-window
MyTooltip-Class
and much more which should all be in a future documention.

Besonderes Interesse gilt natürlich der Option "SQL-Access without ODBCDBE.
Eingebunden ist die BAP.DLL, die man bei ALASKA herunterladen kann.
Leider gibt es hierzu überhaupt keine Beschreibungen. Auch das Thema "Datadictionary" ist nicht näher erläutert. Vielleicht habe ich aber auch mal wieder nicht richtig gesucht.

Mir geht' s vorrangig um 2 Themen:
Wie kann ich ohne ODBCDBE mir (native) XBase++ auf eine SQL-Datenbank zugreifen?
Wie kann ich auf eine MS-Access-Datenbank zugreifen?

Merci für alle Anregungen.

Ich verspreche, dass dies der letzte Anlauf dazu ist

Gruß

Christof

[Tom]

Hallo, Christof.

Der richtige Ansprechpartner wäre Olaf, dem diese Firma gehört. Der ist auch hier Mitglied:

http://www.xbaseforum.de/memberlist.php ... ofile&u=17

[Sören]

Hallo Christof,

ich verwende zwar für derlei ODBCDBE, das m.E. besser ist als sein Ruf, aber es gibt noch eine
recht einfache und vor allem kostenlose Alternative: ADO (ActiveX Data Objects).

Leider habe ich selbst keine großen Erfahrungen damit. Hier trotzdem ein Codeschnipsel,
auf das Du vielleicht aufbauen kannst:

Code: Alles auswählen

#PRAGMA LIBRARY( "ASCOM10.LIB" )

PROCEDURE Main

   LOCAL oConnection, oRs

   oConnection := CreateObject( "ADODB.Connection" )

   oConnection:ConnectionString := "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= WAWI.MDB"
   oConnection:open()

   oRs := CreateObject( "ADODB.Recordset" )

   oRs:Open( "SELECT * FROM Artikel", oConnection:ConnectionString, 0, 3 )

   oRs:MoveFirst()

   while !oRs:eof

     ? oRS:fields("ArtNr"):Value
     ?? "  "
     ?? oRS:fields("ArtBez"):Value

     oRs:MoveNext()

   enddo

   oRs:Close()

   oConnection:Close()

   wait

RETURN

Hier noch ein Link zu ADO:
http://msdn.microsoft.com/en-us/library/ms807498.aspx

[Christof]

Danke für die Hinweise und Beispiele.

Ich bin im Moment noch mit anderen Themen beschäftigt, werde aber sicher etwas damit anfangen können.

[olaf870]

Von SBROWSE gibt es übrigens seit gestern eine neue Version. Der Link ist noch der selbe.