Datenmanipulation (ODBC/Access)

[khh]

Zitat von LuCSteR:

lustig
als hätte ich sowas nich schon selbst ausprobiert

Immer die gleichen Fehler: EDataBaseError in Lib "db"...

btw lautet das richtige SQL Statement in Delphi umgesetzt:
'Update Entgeltdatei_SIA Set Bezeichnung='+'TEST1'+' where Bezeichnung='+'Unfrei'+'' Habe gerade was von ExecSQL gelesen. Vll werde ich dadurch fündig. Trotzdem danke

richtig.

Statements die die Daten manipulieren mit exec.SQL ausführen, reine abfragen mit open.
EDIT: bevor du dich mit access rumschlägst und später eh umsteigen musst, stellt sich die Frage nicht gleich die DB zu wechseln .


gruss KH

[LuCSteR]

Mhh,

danke erstmal für die Mühe. Ich bin davon ausgegangen, das es unerheblich ist, ob in Delphi oder Lazarus programmiert wird, denn die Komponenten sind die selben. Damit auch die Abläufe und Kommandos? Mhh. ich versuch mein Glück dort.

Aber jetzt würde mich doch mal interssieren wie das unter Delphi realisiert wird. Ein eifnaches Update oder Insert Into...

@khh: siehe #19 kommen in allen möglichen Konstruktionen Fehler

[HaJo]

Du bist aber hartnäckig - lach:

Insert Into mit drei Feldern und drei Parametern:

KI ist eine Query-Komponente mit Änderungseigenschaften!!

Zitat:

Delphi-Quellcode:

        WITH DM DO
            BEGIN
               KI.close;
               KI.SQL.Clear;
               KI.SQL.Add('Insert into Kundeninfo (Nr, Info, Text)');
               KI.SQL.Add('VALUES (:Nr, :Info, :Text)');
               KI.ParamByName('Nr').AsInteger  := dm.QryAufschaltungNR.AsInteger;
               KI.ParamByName('Info').AsString := DlgKDInfo.Edit1.Text;
               KI.ParamByName('Text').AsBlob   := DlgKDInfo.Memo1.Text;
               TRY
                  Ki.ExecSQL;
                  DM.tblKundeninfo.Close;
                  DM.tblKundeninfo.Open;
              EXCEPT
               END;
            END;

[edit=mkinzler]Ist den die Verwendung von Delphi-Tags so schwer Mfg, mkinzler[/edit]

[LuCSteR]

So wie ich das sehe, mache ich nichts anderes...Bei Lazarus braucht man 80% für die Einarbeitung 20% der zeit für das Lösen des eigentlichen Problems...Immerwieder schön :/

[khh]

Zitat von LuCSteR:

So wie ich das sehe, mache ich nichts anderes...Bei Lazarus braucht man 80% für die Einarbeitung 20% der zeit für das Lösen des eigentlichen Problems...Immerwieder schön :/

sehe ich nicht so,
wenn dein Konzept passt funktioniert das mit lazarus einwandfrei.


Gruss KHH

[HaJo]

Das ist wohl bei jeder Programmiersprache gleich
Sein Handwerkszeug sollte man schon kennen, zumindest zum Teil.

Aber der Riesenvorteil bei "Delphi-Pascal" gegenüber allen anderen Sprachen, ist die durch strukturieren (Einrückungen) und die verständlich/signifikante Syntax, entstehende Übersichtlichkeit.

Man braucht keine ellenlangen Kommentare um sich selber zu erklären was denn der Programmblock gerade macht, wie z.B bei C++, wenn man nach Jahren dort einmal etwas ändern muss.

Zudem sucht bis heutzutage der geniale Compiler von Borland seinesgleichen!

Und das, obwohl der Erfinder von Delphi nun bei Microsoft seinen Job wahr nimmt.

Wie der Compiler bei Lazarus arbeitet - keine Ahnung - aber die Sprache ist die gleiche.

lieben Gruß zu Dir
Jochen

[LuCSteR]

Iwie führt das hier in die falsche Richtung. Aber trotzdem sag ich kurz noch dazu, das größte Problem von lazarus ist, das es keine eigene Hilfe besitzt.

@KHH:

Verstehe die Intention deiner Aussage nicht aber gut.

Zum Thema:
Folgend sind alle Schritte nochmal aufgeführt, die ich getätigt habe, um Abfragen erfolgreich durchführen zu können.

In den Systemsteuerungen --> Verwaltung --> Datenquellen (ODBC): dort eine "Benutzer DSN" hinzugefügt mit dem Microsoft Access Treiber (.mdb)

- ODBCConnection1
- SQLTransaction1
- Datasource1
- SQLQuery1
- DBGrid1
auf die Form gezogen.


Dann folgendes ausgeführt:
- Eigenschaft von ODBCConnection1.Transaction auf die SQLTransaction1 setzen
- Eigenschaft von SQLQuery1.Database auf ODBCConnection1 setzen
- Eigenschaft von Datasource1.Dataset auf SQLQuery1 setzen
- Eigenschaft von DBGrid1.Datasource auf Datasource1 setzen
- Eigenschaft von SQLQuery1.SQL ein SQL-Kommando eintragen (Bsp. Select * From MEINE_TAB)


Code sieht dann wie folgt aus:

Delphi-Quellcode:

{onFormCreate}
ODBCConnection1.DatabaseName:='test1'; //Benutzer DSN Name
ODBCConnection1.Connected:=true;
SQLQuery1.UsePrimaryKeyAsKey:=false;
SQLQuery1.Active:=true; //erster String wird direkt ausgeführt
 
{onButtonClick}
SQLQuery1.Active:=false;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT Bezeichnung FROM Entgeltdatei_SIA');
SQLQuery1.Active:=true;
 
{onFormClose}
ODBCConnection1.Connected:=false;

Im onButtonClick habe ich rumprobiert, Daten zu manipulieren.
Bspw. so:

Delphi-Quellcode:

SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('Update Entgeltdatei_SIA Set Bezeichnung='+QuotedStr('TEST')+' Where Bezeichnung='+QuotedStr('Unfrei'));
SQLQuery1.ExecSQL;
SQLQuery1.ApplyUpdates;
SQLTransaction1.Commit;

oder so:

Delphi-Quellcode:

SQLQuery1.Close;
ODBCConnection1.ExecuteDirect'Update Entgeltdatei_SIA Set Bezeichnung='+QuotedStr('TEST')+' Where Bezeichnung='+QuotedStr('Unfrei'));
SQLQuery1.ApplyUpdates;
SQLTransaction1.Commit;

Hat alles nichts genützt.

[HaJo]

Also,

wenn dabei keine Fehlermeldung kam...

mir persönlich sind da zu viele Variable für den ersten Lazarus-Test drinne.
Zudem ist die Verfahrensweise über CachedUpdates eine etwas andere

Auch muss die Funktion "QuotedStr" nicht unbedingt das richtige Ergebnis liefern. Wäre ggf. mit einer Variablen mal zu überprüfen ob wirklich beide Hochkommata verdoppelt werden.

Inm OnKlick-Ereignis des Button folgende Variablen-Deklaration über dem BEGIN mal eintragen:

Delphi-Quellcode:

VAR
   Test : STRING [100];

Zur Sicherheit unter dem

Delphi-Quellcode:

BEGIN
   Test = ''; // Variable initialisieren

Delphi-Quellcode:

SQLQuery1.Close;
SQLQuery1.CachedUpdates := FALSE; //Direkt in der DB ändern - sollte eigentlich Standard sein!
Test  := QuotedStr('TEST');
SQLQuery1.SQL.Clear; // <-- hier einen Haltepunkt für den Debuger setzen 
                     // und die Variable Test mal auf Inhalt prüfen
                     // sieht der Inhalt wirklich so "TEST" aus?

SQLQuery1.SQL.Add('Update Entgeltdatei_SIA Set Bezeichnung='+QuotedStr('TEST')+' Where Bezeichnung='+QuotedStr('Unfrei'));

TRY // Kennt Lazarus Try-Exception-Blöcke??
   SQLQuery1.ExecSQL;
EXCEPT
   HALT(0); // Wenn es geht mit dem Debuger - hier auch einen Haltepunkt setzen**
END;
SQLTransaction1.Commit;

** Wenn hier wirklich das Prg beendet wird - funktioniert es - Nur ist dann noch irgendwo ein formeller Fehler drin

Uff - Lazarus und Access - mal sehen