PBOSL_ExDatabase lib

[ts-soft]

Nach vielen Schwierigkeiten (TailBite will die SQLConfigDataSource_()
API-Function nicht übersetzen usw.), hab ich es doch noch geschafft

Es wurden die hier im Board geposteten Funktionen integriert, deshalb
nochmals danke an alle Helfer, besonders MK-Soft!

Die Lib funktioniert auch mit Unicode-Anwendungen (aber nur
ANSI-Zeichensatz)

Da ich keine SQL-Profi bin müßte das ganze nochmals ausgiebig
getestet werden!

Folgende Funktionen sind enthalten:

Result.l = ExamineTables(DBNR.l)
Result.l = NextTable()
Result.s = GetTableName()
Result.s = GetTableType()

Result.l = AddDSN(databasename.s [, driver.s][, user.s, pass.s])
Result.l = RemoveDSN(databasename.s [, driver.s])

Result.l = RepairMDB(databasename.s [, user.s, pass.s])
Result.l = CompactMDB(databasename.s [, user.s, pass.s])
Result.l = CreateEmptyMDB(databasename.s [, user.s, pass.s])

Damit ihr testen könnt, hier der Downloadink:
DOWNLOAD

Also bitte fleissig Testen!

Gruß
Thomas

// Nachtrag:
Bei AddDSN und RemoveDSN ist der Datenbankname mit Extension und
Pfad anzugeben, bei OpenDatabase darf nur der Datenbankname ohne
Pfad und Extension angegeben werden!


// Nachtrag:
Link verweist jetzt auf die aktuelle Version von mk-soft, der das Projekt
zur Zeit weiterführt. Aktuelle Beschreibung in einen der letzten Threads

[ts-soft]

Kleines Update:
-CreateMDB löscht evtl. bereits vorhandene Datei gleichen Namens
-RemoveDSN überflüssige Parameter User + Passwort entfernt

Download im ersten Thread

// Nachtrag:
Hier noch ein Beispielcode, damit das grundsätzliche Vorgehen deutlich wird

Code: Alles auswählen

; Original by PAMKKKKK
; angepaßt für PBOSL_ExDatabase und PB4 by ts-soft

EnableExplicit

InitDatabase()

Define.s dbName = "c:\exDatabase_test.mdb" ; könnt Ihr anpassen

; DSN besteht aus Datenbanknamen ohne Pfad und Extension!
Define.s DSN = GetFilePart(dbName) : DSN = Left(DSN, Len(DSN) - (Len(GetExtensionPart(DSN)) + 1))

If CreateEmptyMDB(dbName); leere Datenbank erstellen
  AddDSN(dbName) ; DSN hinzufügen
EndIf

; Datenbank verbinden
Define.l db = OpenDatabase(#PB_Any, DSN, "", "")
Define.s SQL

If db

  ; SQL Befehl zum Tabelle erstellen
  SQL = "Create table Adress (id autoincrement, vorname text(50), nachname text(50), constraint Adress unique(id));"
  If DatabaseQuery(db, SQL) ; SQL Befehl ausführen
  
    ; SQL Befehl zum einfügen von Daten in die Tabelle
    SQL = "Insert into Adress (vorname, nachname) values ('Thomas', 'Schulz')"
    DatabaseQuery(db, SQL) ; SQL Befehl ausführen

    SQL = "Insert into Adress (vorname, nachname) values ('Max' ,'Mustermann')"
    DatabaseQuery(db, SQL) ; SQL Befehl ausführen

    SQL = "Insert into Adress (vorname, nachname) values ('Erika', 'Mustermann')"
    DatabaseQuery(db, SQL) ; SQL Befehl ausführen
    
  Else
    Debug "Data already exists"
  EndIf
  
  If ExamineTables(db)
    Debug "Tabellen in Database:"
    Debug ""
    While NextTable()
      Debug GetTableName() + "  <--  " + GetTableType()
    Wend
    Debug "" : Debug ""
  EndIf
  
  ; SQL Befehl zum Auslesen von Daten der Tabelle
  SQL = "Select * from Adress order by nachname asc;"
  If DatabaseQuery(db, SQL) ; SQL Befehl ausführen
  
    Debug "Daten in Tabelle 'Adress'" : Debug ""
    
    While NextDatabaseRow(db) ; gelesene Daten aus der Datenbank durchlaufen
    
      Debug Str(GetDatabaseLong(db, 0)) + ": " + GetDatabaseString(db, 1) + " " + GetDatabaseString(db, 2) ; gelesene Daten aus der Datenbank ausgeben
    
    Wend
  EndIf
  
  CloseDatabase(db)
  
EndIf

RemoveDSN(dbName); DSN wieder entfernen

PS: Unicode funktioniert noch nicht

[ts-soft]

@Kiffi
Danke fürs testen

Scheint kein grosses Interesse oder kein Bedarf zu bestehen, auch gut,
spare ich mir das Hilfe schreiben, hab ich sowieso keinen Bock drauf

Da meine SQL-Kenntnisse nicht ausreichen, es genügend zu testen, bzw.
festzustellen ob es allen Ansprüchen genügt ist es eingestellt.

Werde mich dann erstmal nur privaten Projekten widmen,

gruß
Thomas

[bluejoke]

Halt, Moment!

Du weißt doch, wie das hier im Forum läuft: Bei guten Projekten postet solange niemand was, bis der entnervt aufgibt. Hab jetzt aber auch leider keine Anwendung, wo ich das Ding testen könnte, aber Interesse besteht auf jeden Fall.

Keep it going!
Simon

[ts-soft]

>> Halt, Moment!
Na gut, dann darfste auch die engl. Hilfe im desc-Format (ähnl. Docmaker)
schreiben
Wenn fragen bestehen, schickste PM oder Skype Me

[dige]

Danke ts-soft! kann ich grad gut gebrauchen

[bluejoke]

Puuuh. Dige hat sich gerade noch rechtzeitig darum gerissen.

[Morty]

Auch von mir Dank an ts-soft.
Passt genau zu meinem derzeitigen Projekt.

Morty

[Morty]

... und da hab ich doch vielleicht was gefunden.

Und zwar schlägt die Funktion CreateEmptyMDB() fehl, wenn man im Datenbanknamen (bzw. dem Verzeichnis) ein Leerzeichen hat.

Sprich:

Code: Alles auswählen

CreateEmptyMDB("C:\Programme\Purebasic\test_bd.mdb")

funktioniert, aber

Code: Alles auswählen

CreateEmptyMDB("C:\Programme\Purebasic v4\test_bd.mdb")

funktioniert leider nicht.

Morty

[ts-soft]

... und da hab ich doch vielleicht was gefunden.

Und zwar schlägt die Funktion CreateEmptyMDB() fehl, wenn man im Datenbanknamen (bzw. dem Verzeichnis) ein Leerzeichen hat.

Sprich:

Code: Alles auswählen

CreateEmptyMDB("C:\Programme\Purebasic\test_bd.mdb")

funktioniert, aber

Code: Alles auswählen

CreateEmptyMDB("C:\Programme\Purebasic v4\test_bd.mdb")

funktioniert leider nicht.

Morty

fixed