Data Source

[mkinzler]

Trifft #17 zu? Dann entferne das.

[pronny31]

Jetzt kommt keine Fehlermeldung mehr aber das Memo ist leer obwohl was drin stehen sollte !

[mkinzler]

Ist das Statement vorher leer?
IBQuery1.SQL.Text := 'Select Memo1 from pcbeinstellungendefault where zaehler = 10'; Wie gesagt würde ich den Code nach .Loaded verschieben.

[pronny31]

So es hat endlich funktioniert !!

Delphi-Quellcode:

unit mainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, IBDatabase, IBCustomDataSet, IBQuery,
  IBTable, Grids, DBGrids;

type
  TmainForm = class(TForm)
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBQuery1: TIBQuery;
    DataSource1: TDataSource;
    DBMemo1: TDBMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

{$R *.dfm}


procedure TmainForm.FormCreate(Sender: TObject);
var test : String ;
begin
  IBQuery1.sql.Clear;
  IBQuery1.SQL.add('Select Memo1 from pcbeinstellungendefault where zaehler = 10 ');
  IBQuery1.open;
  test := IBQuery1.FieldByName('Memo1').asString;
  DataSource1.DataSet := IBQuery1;
  DBMemo1.DataSource := DataSource1;
  DBMemo1.DataField := 'MEMO1';
end;

end.

[RavenIV]

Das kannst DU alles aauch per ObjectInspector einstellen.
Ist dann zwar nicht mehr so übersichtlich, Du sparst Dir aber die Tipp-Arbeit und der Code bleibt übersichtlicher.

Jeder soll das so machen, wie er es für richtig hält.
Ich hab meistens ne Mischung zwischen OI und Code. Die "Verbindungen" mach ich im OI, den SQL-Code und das Open steht im Code.