Witam, mam taki problem, podany poniżej kod wyrzuca mi błąd
"Project SQL.exe raised exeption class EDatabaseError with message 'dbExpress Error: [0x0003]: Invalid Field Type'
Nie wiem gdzie jest błąd
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, ComCtrls, StdCtrls, DB, SqlExpr, FMTBcd;
type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
Button1: TButton;
StatusBar1: TStatusBar;
ComboBox1: TComboBox;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure SQLConnection1AfterDisconnect(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SQLConnection1AfterConnect(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SQLConnection1.Connected := (not SQLConnection1.Connected);
end;
procedure TForm1.SQLConnection1AfterConnect(Sender: TObject);
var
x:TStringList;
begin
StatusBar1.SimpleText := 'Połączony';
Button1.Caption := 'Rozłącz';
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if SQLConnection1.Connected then SQLConnection1.Connected := false;
end;
procedure TForm1.SQLConnection1AfterDisconnect(Sender: TObject);
begin
StatusBar1.SimpleText := 'Rozłączony';
Button1.Caption := 'Połącz';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SQLConnection1.GetTableNames(ComboBox1.Items, '', false); {właśnie tutaj jest coś nie tak, nie wiem jak pobrać listę tabel}
end;
end.