type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject); var con: TADOConnection; rs: TADOTable; var fieldValue: String; begin { Create connect to the CodeBase provider. } con := TADOConnection.Create(nil); con.LoginPrompt := False; con.ConnectionString := 'Provider=CodeBase;Location=c:\examples'; con.Open();
{ Open the STUDENT table. } rs := TADOTable.Create(nil); rs.Connection := con; rs.TableDirect := True; rs.TableName := 'student'; rs.Open();
{ Go to the first record and display the value of the 2nd field. } rs.First(); fieldValue := rs.Fields[1].AsString; Application.MessageBox(PChar(fieldValue), 'Field Value', 0);
Das wäre jetzt das, was ich nicht unbedingt mag, dass man nur über Objekte darauf zugreifen kann. Bin von PHP zu sehr verwöhnt, immer direkt mit SQL arbeiten zu können.
Generell sollte es da eine Möglichkeit geben. Ich kenne mich jetzt nicht perfekt in den Möglichkeiten von Lazarus und SQL aus, aber im Normalfall haben die meisten Programmiersprachen die Möglichkeit nach dem Aufbau einer Verbindung auch ein Query an den Server zu senden.
Aber ich weiß auch, dass sich das Ganze unter Delphi etwas schwieriger gestaltet. Ich habe ein paar Tutorials gefunden, vielleicht klären die ja genau dein Problem.