TDBXTypes.WideString-Wertetyp

[Volker Z.]

Hallo,

wenn du einen Breakpoint bei

SQLStmt := SQLStmt + s + ' from '+TableName; setzt und dann den "Inhhalt" der Variable SQLStmt postest (an den Wert kommst Du in den lokalen Variablen SQLStmt markieren, rechte Maustaste, Untesuchen).

Gruß

[gee21]

Hallo

Habe nicht gesehen dass es schon eine zweite seite gibt. Ok ich glaube ich habe das gemacht was du geschrieben hast

Es steht: SQLsTmt: string $18F418 : $58E54C
SQLStmt 'select'

Gruess

[Volker Z.]

Hallo,

sorry es ist wohl doch schon etwas spät. Ich meinte eigentlich den Wert, der neben SQLStmt steht (siehe Screenshot)

Gruß

[gee21]

Zitat von Volker Z.:

Hallo,

sorry es ist wohl doch schon etwas spät. Ich meinte eigentlich den Wert, der neben SQLStmt steht (siehe Screenshot)

Gruß

Ja also da steht bei mir nur: 'select'
Ach und danke für deine Geduld

[Volker Z.]

Hallo,

am Screenshot kann ich sehen, dass zwar s auf category_id bzw. SQLStmt auf select steht. Soweit sieht alles ganz gut aus. Was ich leider nicht sehen kann ist der else Zweig.

Gruß

[gee21]

So müsste es besser sein

Delphi-Quellcode:

  // Eine Tabelle ist jetzt ausgewählt, daher nun die entsprechenden Steuerelemente aktivieren.
  CheckBoxActive.Enabled := True;
  ButtonApply.Enabled := True;
  TableName := ListBox1.Items[ListBox1.ItemIndex];  //Tabellennamen abrufen

  // Feldnamen (Spaltennamen) für diese Tabelle abrufen.
  FieldNamesList := TStringList.Create;
  FieldNamesList.Clear;
  SQLConnection1.GetFieldNames(TableName, FieldNamesList);




   if FieldNamesList.Count > 0 then
     begin
       SQLStmt := 'select ';
       for I := 0 to FieldNamesList.Count - 1 do
         if s = '' then
           s := FieldNamesList[I]
         else
           s := s + ',' + FieldNamesList[I];
     SQLStmt := SQLStmt + s + ' from '+TableName;
     end

  else
   // Feldnamen nicht gefunden, daher '*' verwenden
   SQLStmt := 'select * from '+TableName;
  FreeAndNil(FieldNamesList);

  // SQL-Anweisung zum Abrufen aller Tabellendaten erstellen.
  EditSQL.Text := SQLStmt;
  // CommandText auf SQL-Anweisung setzen.
  SQLDataSet1.CommandText := EditSQL.Text;
  if ClientDataSet1.Active then
   ClientDataSet1.Close;
  ClientDataSet1.Open;
  CheckBoxActive.Checked := True;

end;

[Volker Z.]

Hallo,

ist ist wohl definitiv zu spät für mich Setzte den Braikpoint doch mal

Delphi-Quellcode:

  if FieldNamesList.Count > 0 then
     begin
       SQLStmt := 'select ';
       for I := 0 to FieldNamesList.Count - 1 do
         if s = '' then
           s := FieldNamesList[I]
         else
           s := s + ',' + FieldNamesList[I];
     SQLStmt := SQLStmt + s + ' from '+TableName;
//-> genua hier     end

und poste dann den Wert von SQLStmt

Gruß

[gee21]

Hmm merkwürdig. er hält nicht an. dafür kann ich nun wesentlich mehr einträge abrufen ohne Fehlermeldung. bei ein paar einträgen kommt aber immer noch .

[gee21]

Aber jetzt crasht das Programm manchmal (Freeze)

Du ich muss mal schlafen gehen. Ich mach dann morgen weiter.

Keine Ahnung was jetzt los ist und das Programm einfriert, manchmal schon beim Verbinden.

Danke dir.

[Volker Z.]

Hallo,

Delphi-Quellcode:

  if FieldNamesList.Count > 0 then
     begin
       SQLStmt := 'select ';
       for I := 0 to FieldNamesList.Count - 1 do
         if s = '' then
           s := FieldNamesList[I]
         else
           s := s + ',' + FieldNamesList[I];
     SQLStmt := SQLStmt + s + ' from '+TableName;
    end // <- also du setzt hier an dieser Stelle Deinen Breakpoint

Was für ein Wert steht dann in SQLstmt?

Gruß