Einzelnen Beitrag anzeigen

raena

Registriert seit: 30. Dez 2007
124 Beiträge
 
#17

Re: einfache Datenbankanwendung ODBC SQL

  Alt 16. Apr 2008, 10:22
ok Leute, vielen Dank. Mein Programm läuft jetzt erst mal.
Ich will jetzt das Teil umstellen auf
a, Anwendung -> BDE -> ODBC -> ODBC-Treiber -> Datenbank

D.h. weg von ADO. Was ist denn das Pendant von "TADOConnection"

Hier mein Programm, was funktioniert, euch aber nicht gefallen wird

Delphi-Quellcode:
program Databaseprj;

uses
  Forms,
  DBtest in 'DBtest.pas{Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit DBtest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, Grids, DBGrids, DB, StdCtrls;

type
  TForm2 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid_SQL_Result: TDBGrid;
    btn_Query: TButton;
    Edt_SQL_Input: TEdit;
    procedure btn_QueryClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm2.btn_QueryClick(Sender: TObject);
begin
{showmessage('test');}

ADODataSet1.active:=false;
ADODataSet1.CommandText:=Edt_SQL_Input.Text;
ADODataSet1.active:=true;

end;



procedure TForm2.FormCreate(Sender: TObject);
begin
Edt_SQL_Input.Text:='select * from ';
end;

end.
  Mit Zitat antworten Zitat