prinzipielle funktioniert das Ganze jetzt. Ich habe nur ein Problem.
Der Wert ADODataSet1.Active:=true; sollte ja true sein damit was angezeigt wird.
Wenn ich die
SQL aendere, wird der Wert automatisch auf false gesetzt.
Deswill ich den Wert im Quell Code automatisch true setzen. Da stürzt die Kiste aber ab.
Raena.
Delphi-Quellcode:
unit DBtest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, Grids, DBGrids,
DB;
type
TForm2 =
class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
testervar:integer;
ADODataSet1:TADODataSet;
implementation
{$R *.dfm}
begin
testervar:=33;
ShowMessage('
tma ' + inttostr(testervar));
ADODataSet1.Active:=true;
end.