TDBXTypes.WideString-Wertetyp

[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ß

[gee21]

Es friert eben leider das Programm ein bevor ich zu der funtion komme,

[gee21]

Merkwürdig jetzts gings wieder als wäre nichts gewesen. jedoch hält er beim brekpoint nicht an....?