Query zu "gross"?

[xSkaschY]

Hallo,

ich bin's mal wieder.

Habe zur Zeit ein Problem mit einem etwas grösseren Query den mein Delphi wohl nicht verarbeiten kann.

Der Query schaut folgendermasen aus:

SQL-Code:

SELECT `id`, `montuerid`, `montuer`, `auftragsnr`, `aki`, `onkz`, `asb`, `rufnr`, `strstandort`, `lsz`, `lszz`, `kuzeit`, `hvt`, `kvt`, `x12`, `x14`, `x16`, `x19`, `bemerkung`, `tea2x6`, `ntbaeinschub`, `montagebericht`, `courtesycall`, `rosikenner`, `erstehvtschaltung`, `erstekvtschaltung`, `fehlerimzugangsnetz`, `endleitungsnetz`, `anschlussbereitstellenamhvt`, `kundenfahrtbebeibae`, `anschlussbereitstellenbeimkunden`, `endleitungapl`, `antrittspauchalefuerexpressauftreage`, `stundenverrechnungssatz`, `zulagefuerweiterehvtschaltung`, `zulagefuerweiterekvtschaltung`, `installationskabel2da`, `installationskabel2dabis10da`, `verteileinrichtungen2da`, `schaltenmitgeschirmtenschaltdraht` FROM `table_03_07_06` WHERE `auftragsnr` = '056-0140642/06';

Als Fehlermeldung bekomme ich folgendes vor die Füße geworfen:

Access violation at adress 00538944 in module 'imex.exe'. Read of adress 00000000.

Ich bin am verzweifeln, selbst wenn ich diesen Query benutze:

SQL-Code:

SELECT * FROM `table_03_07_06` WHERE `auftragsnr` = '056-0140642/06';

Bekomm ich diese Fehlermeldung.

Den Query führe ich so aus:

Delphi-Quellcode:

// Ermittelt alle Auftragsdaten
statement := 'SELECT'+relevantfields+' FROM `' + main.Tabellenname + '` WHERE `auftragsnr` = '''+main.AuftragsNr+''';';
logForm.SQLAbfragen.Items.Add('Auftrags-Detail Query: ' + statement);
MySQLQuery.SQL.Text := statement;
MySQLQuery.Open;

Weiss jemand weiter?

Mit freundlichen Grüssen
Tobias Ehrig

[SubData]

´ und ` sind keine Zeichen die man für Quotes verwendet...

Ausserdem fehlen dir an manchen Stellen ein paar Leerzeichen, geh mal mit dem Debugger auf das Statement und schau dir mal an, wie das fertige Statement hinterher aussieht...

Edit: So ganz nebenbei, ist denn die Verbindung zur Datenbank überhaupt aufgebaut? Die Komponenten alle erstellt? Der SQL Server überhaupt aktiv? :)

[xSkaschY]

Hallo SubData,

das blöde ist, in phpMyAdmin funktioniert der Query!

Ja die Datenverbinung besteht da vorher ja mittels

SQL-Code:

SHOW COLUMNS FROM `table`

die Spaltennamen ausgelesen werden.

Zu den Quotes, doch sind Sie ;)

[marabu]

Hallo Tobias,

die Zugriffsadresse 0 deutet auf einen NIL Pointer hin. Halte doch das Programm an der Fehlerstelle einmal an und inspiziere die einzelnen Zeiger.

Grüße vom marabu

[xSkaschY]

Hallo Marabu,

wie kann ich das machen? Habe noch nicht so die Erfahrung mit dem Programm. :angel2:

[mkinzler]

Setzte einen Brekpoint an der Zeile, in der der Fehler ausgelöst wird und Starte dann das Programm in der IDE. Nun kannst du dir die aktuellen werte der einzelnen Variablen anzeigen lassen.

[r_kerber]

Zitat:

Zitat von SubData

´ und ` sind keine Zeichen die man für Quotes verwendet...

In MySQL aber schon ...

Zitat:

Zitat von xSkaschY

Access violation at adress 00538944 in module 'imex.exe'. Read of adress 00000000..
.
.

Delphi-Quellcode:

// Ermittelt alle Auftragsdaten
statement := 'SELECT'+relevantfields+' FROM `' + main.Tabellenname + '` WHERE `auftragsnr` = '''+main.AuftragsNr+''';';
logForm.SQLAbfragen.Items.Add('Auftrags-Detail Query: ' + statement);
MySQLQuery.SQL.Text := statement;
MySQLQuery.Open;

Ist das Objekt MySQLQuery an dieser Stelle schon erzeugt (mit Create)? Oder tritt der Fehler eventuell auch zwei Zeilen darüber auf (und logForm existiert noch nicht)?

[xSkaschY]

Hallo r_kerber,

Das Objekt MySQLQuery ist schon verfügbar, da ich ein Paar Zeilen vorher schon ein Query ausführe.

Hier mal die Prozedur:

Delphi-Quellcode:

procedure TformAuftragsedit.FrameResize(Sender: TObject);
var relevantfields: String;
begin
  mysql_connect();
  value_auftragsnummer.Caption := main.AuftragsNr;
  relevantfields := '';

  if MySQLConnection.Connected then begin
    MySQLQuery.SQL.Clear;
    MySQLQuery.SQLConnection := MySQLConnection;

    // Ermittelt alle verfügbaren Spaltennamen und speichert sie in 'relevantfields'.
    try
      statement := 'SHOW COLUMNS FROM `' + main.Tabellenname + '`';
      formLog.SQLAbfragen.Lines.Add('TformAuftragsedit.FrameResize (Line: 84):');
      formLog.SQLAbfragen.Lines.Add(statement);
      formLog.SQLAbfragen.Lines.Add('');
      MySQLQuery.SQL.Text := statement;
      MySQLQuery.Open;
      while not MySQLQuery.EOF do begin
        relevantfields := relevantfields + ', `'  + MySQLQuery.FieldByName('Field').AsString + '`';
        MySQLQuery.Next;
      end;
      Delete(relevantfields, 1, 1);
      MySQLQuery.SQL.Clear;
    finally
      // Ermittelt alle Auftragsdaten
      statement := 'SELECT '+relevantfields+' FROM ' + main.Tabellenname + ' WHERE auftragsnr = '''+main.AuftragsNr+''';';  
      showmessage(statement);
      formLog.SQLAbfragen.Lines.Add('TformAuftragsedit.FrameResize (Line: 100):');
      formLog.SQLAbfragen.Lines.Add(statement);
      formLog.SQLAbfragen.Lines.Add('');
      MySQLQuery.SQL.Text := statement;
      (*
       * Hier bekomme ich die AV!
       *)
      MySQLQuery.Open;

      //value_montuer.Text := MySQLQuery.FieldByName('montuer').AsString;
      MySQLQuery.Close;
    end;
  end;
end;

Im SQLAbfragen Fenster steht diese SQL-Statements drin:

SQL-Code:

// TformAuftragsedit.FrameResize (Line: 84):
SHOW COLUMNS FROM `table_03_07_06`

// TformAuftragsedit.FrameResize (Line: 100):
SELECT  `id`, `montuerid`, `montuer`, `auftragsnr`, `aki`, `onkz`, `asb`, `rufnr`, `strstandort`, `lsz`, `lszz`, `kuzeit`, `hvt`, `kvt`, `x12`, `x14`, `x16`, `x19`, `bemerkung`, `tea2x6`, `ntbaeinschub`, `montagebericht`, `courtesycall`, `rosikenner`, `erstehvtschaltung`, `erstekvtschaltung`, `fehlerimzugangsnetz`, `endleitungsnetz`, `anschlussbereitstellenamhvt`, `kundenfahrtbebeibae`, `anschlussbereitstellenbeimkunden`, `endleitungapl`, `antrittspauchalefuerexpressauftreage`, `stundenverrechnungssatz`, `zulagefuerweiterehvtschaltung`, `zulagefuerweiterekvtschaltung`, `installationskabel2da`, `installationskabel2dabis10da`, `verteileinrichtungen2da`, `schaltenmitgeschirmtenschaltdraht` FROM table_03_07_06 WHERE auftragsnr = '056-0129101/06';

[marabu]

Hallo Tobias,

Zitat:

Zitat von xSkaschY

Das Objekt MySQLQuery ist schon verfügbar, da ich ein Paar Zeilen vorher schon ein Query ausführe.

das Objekt existiert, aber deine Beweisführung hinkt. Durch deinen unmotivierten Resourcen-Schutzblock würde der finally-Zweig durchlaufen, wenn das Objekt nicht existieren würde, aber vor dem try machst du schon einen Zugriff, der allem Anschein nach funktioniert.

Warum ermittelst du alle Feldnamen? In deinem Fall wäre ein SELECT * durchaus angemessen:

Delphi-Quellcode:

procedure TformAuftragsedit.FrameResize(Sender: TObject);
var 
  relevantfields: String;
begin
  mysql_connect();
  value_auftragsnummer.Caption := main.AuftragsNr;

  if MySQLConnection.Connected then 
  begin
    MySQLQuery.SQLConnection := MySQLConnection;

    // Ermittelt alle Auftragsdaten
    statement := Format('SELECT * FROM %s WHERE auftragsnr = :nr', [main.TabellenName]);
    MySQLQuery.SQL.Text := statement;
    MySQLQuery.Parameters.ParamByName('nr').AsString := main.AuftragsNr; // oder Params?
    MySQLQuery.Open;

    formLog.SQLAbfragen.Lines.Add('TformAuftragsedit.FrameResize (Line: 100):');
    formLog.SQLAbfragen.Lines.Add(statement);
    formLog.SQLAbfragen.Lines.Add('');

    value_montuer.Text := MySQLQuery.FieldByName('montuer').AsString; // Monteur ...
    // ...

    MySQLQuery.Close;
  end;
end;

Steht der Code im Ereignis OnResize() auch wirklich an der richtigen Stelle?

Grüße vom marabu

[xSkaschY]

Hallo Marabu,

Zitat:

Zitat von marabu

Warum ermittelst du alle Feldnamen? In deinem Fall wäre ein SELECT * durchaus angemessen:

Hab mir das so aus PHP angewöhnt, da es bei mehreren Abfragen deutlisch schneller ist als ein *-Statement. Zudem weiss ich welche Felder ich verwenden kann, und muss nicht immer nachschauen.

Zitat:

Zitat von marabu

Steht der Code im Ereignis OnResize() auch wirklich an der richtigen Stelle?

Will ich hoffen, er wird nämlich 2-mal ausgeführt. Warum weiss ich nicht!


BTW:
Es gibt auch eine AV mit deiner Variante. Ich verweifel langsam.

Habe testweise mal ein ExecSQL(); benutzt, der Query scheint OK zu sein, weil es keine Fehler gibt?
Nur hab ich ja dabei keine rückgabe.


Bis dahin, und weiter...

[xSkaschY]

Also ich bin wirklich am verzweifeln.

Ist es wirklich "zuviel" input für die MySQL kompo? (dbExpress)

Zitat:

Zitat von marabu

die Zugriffsadresse 0 deutet auf einen NIL Pointer hin. Halte doch das Programm an der Fehlerstelle einmal an und inspiziere die einzelnen Zeiger.

meintest du evtl. das hier?:

Code:

Source Breakpoint at $005342A3: C:\Dokumente und Einstellungen\Toby\Eigene Dateien\skyNetworx\TK-NL-West\units\auftragedit.pas line 174. Process imex.exe (3652)
First chance exception at $77D60096. Exception class EAccessViolation with message 'Access violation at address 0052E080 in module 'imex.exe'. Read of address 00000000'. Process imex.exe (3652)
Source Breakpoint at $005342A3: C:\Dokumente und Einstellungen\Toby\Eigene Dateien\skyNetworx\TK-NL-West\units\auftragedit.pas line 174. Process imex.exe (3652)
First chance exception at $77D60096. Exception class EAccessViolation with message 'Access violation at address 0052E080 in module 'imex.exe'. Read of address 00000000'. Process imex.exe (3652)
First chance exception at $77D60096. Exception class EAccessViolation with message 'Access violation at address 69656162. Read of address 69656162'. Process imex.exe (3652)

[marabu]

Du hast jetzt den Breakpoint in Zeile 174 von Modul AuftragEdit.pas gesetzt - und dann das Programm einfach weiter laufen lassen? Wenn der Breakpoint erreicht ist, dann musst du in der IDE mal alle relevanten Objekte inspizieren. Wenn eine davon NIL ist, dann hast du einen Hinweis darauf, was schief läuft.

marabu

[xSkaschY]

Ich kann dir irgendwie nicht folgen.

Aber warum - könnte - es sein das da was auf einen NIL-Pointer zeigt ? Vorher gings doch :wall:

[xSkaschY]

Sooo ich möchte jetzt sagen das es 100% daran liegt, das es einfach zu viele (41) Spalten für die TMySQLQuery komponente von dbExress.

Habe die Query's mal gesplittet und siehe da, es funktioniert!

Warum die Kompos das nicht verarbeiten können weiss ich nicht. Vllt hat ja jemand von euch eine logische erklärung.


MFg Toby