Ошибка не соответствие типов данных в условии отбора

[Dvoishnik]

http://zalil.ru/31743823
ошибка в 15 форме
наеюсь на помощь.

[Вадим Мошев]

Покажите ваш код прямо здесь, на форуме. Извините, но нет желания заходить в неизвестные места и скачивать априори неизвестные вещи.
Покажите проблемный код.

[Dvoishnik]

unit Unit15;

interface

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

type
  TForm15 = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox3: TGroupBox;
    pacient: TADOQuery;
    pacientds: TDataSource;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    prep: TADOQuery;
    analiz: TADOQuery;
    proced: TADOQuery;
    pacientid_pasi: TAutoIncField;
    pacientFam: TWideStringField;
    pacientName: TWideStringField;
    pacientotc: TWideStringField;
    pacientser_passport: TIntegerField;
    pacientnum_passport: TIntegerField;
    pacientdata_rojd: TDateTimeField;
    pacientAdres: TWideStringField;
    pacienttel_num: TWideStringField;
    pacientanam: TMemoField;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    DBMemo1: TDBMemo;
    DBGrid5: TDBGrid;
    ist_obr: TADOQuery;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ist_obrid_ist: TAutoIncField;
    ist_obrid_pasi: TIntegerField;
    ist_obrdata_sozd: TDateTimeField;
    ist_obrdiag: TWideStringField;
    analizanal: TWideStringField;
    analizOtv: TWideStringField;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    procedure FormActivate(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
       
    procedure DBEdit3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm15.FormActivate(Sender: TObject);
begin
 ist_obr.Active:=false;
 ist_obr.Parameters.ParamByName('id_p').Value:=dbedit1.Text;
 ist_obr.Active:=true;

analiz.Active:=false;
 analiz.Parameters.ParamByName('id_istor').Value:=dbedit3.Text;
 analiz.Active:=true;
end;

procedure TForm15.DBEdit1Change(Sender: TObject);
begin
 ist_obr.Active:=false;
 ist_obr.Parameters.ParamByName('id_p').Value:=dbedit1.Text;
 ist_obr.Active:=true
end;



procedure TForm15.DBEdit3Change(Sender: TObject);
begin
 analiz.Active:=false;
 analiz.Parameters.ParamByName('id_istor').Value:=dbedit3.Text;
 analiz.Active:=true; //вот здесь вознимкет ошибка
end;

end.

[maLoy*508]

поля id_istor и id_p в базе какого типа?

[Dvoishnik]

числовой но этих полей нет вбазе
это параметры.

[Аватар]

Покажите ваш SELECT для Analiz и тип полей имеющих в запросе отношение к параметру

[Dvoishnik]

не могли бы вы скачать всеже программу
мне ее после завтро здавать а я до сих пор не разобрался с просмотром(

select * from ist
where id_pasi=:id_p
id_pasi - числовой тип

SELECT anal.anal, ist_anal.Otv
FROM anal,ist_anal
WHERE ist_anal.id_anal=anal.id_anal and ist_anal.id_ist=:id_istor;
ist_anal.id_ist- числовой

[Аватар]

dbedit3.Text - что здесь, очень похоже что не цифровые данные

[Dvoishnik]

почему ошибки не возникает с полем id_p?

[Dvoishnik]

никто не знает в чем может быть ошибку?(