Hallo,
Zitat von
edwpi:
Delphi-Quellcode:
t := TADOTable.Create(nil);
t.ConnectionString := <<ConnectionString>>
t.TableDirect := True;
t.TableName := 'SELECT col1, col2 FROM tab';
t.Open;
wenn es immer exakt so im Quelltext ist, dann sollte die Änderung durch globales Suchen und Ersetzen möglich sein:
Du brauchst dazu drei Schritte:
1. ersetze
TADOTable durch
TADOQuery.
2. ersetze
t.TableDirect := True; durch
// t.TableDirect := True; (hier könntest Du auch durch einen leeren String ersetzen).
3. ersetze
t.TableName := durch
t.SQL.Text := .
Danach sollte ein Kompilieren wieder möglich sein, sofern Du keine weiteren TAdoTable-spezifischen Attribute und/oder Methoden genutzt hast. Die Benutzung von FieldByName ... ist bei TAdoQuery und TADoTable identisch.
Ob alle
SQL's mit dem
SQL-Server in unveränderter Form laufen, muss Du ausprobieren.