TADOTable, TableDirect, SQL in TableName, SQL Server

[nahpets]

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.