Вниз
Скачать: CL | DM;

Возник вопрос: что лучше?   Найти похожие ветки 

← →
studentik ©   (2002-05-20 16:11) [0]

Мастера, подскажите!
Работаю с БД InterBase, используя компоненты: Database, DataSource, StoredProc, Query.
1)Чем лучше использование IBQuery, IBDatabase, IBStoredProc?
2)Что надо сделать, чтобы перейти на новые рельсы (кроме, собственно, замены компонентов и заполнения аналогичных параметров)?


← →
studentik ©   (2002-05-20 18:15) [1]

Извините за повторы :-(


← →
pb   (2002-05-20 18:17) [2]

писалось уже
кроме того почитай хелп


← →
studentik ©   (2002-05-20 18:21) [3]

Поменял компоненты и перестала работать функция:

function TfNew.GetElement: boolean;
begin
try
result:=true;
if IBStoredProc1.Active then IBStoredProc1.Close;
fDM.StoredProc1.StoredProcName:="get_Fa_Kod";
fDM.StoredProc1.Params.Clear;
with fDM.StoredProc1.Params.CreateParam(ftString, "v_Fa_Facultet", ptInput) do
begin
AsString:=ComboBox1.Text;
end;
fDM.StoredProc1.Params.CreateParam(ftSmallint, "Fa_Kod", ptOutput);
fDM.StoredProc1.Prepare;
fDM.StoredProc1.ExecProc;
vi_P_Kod:=Trim(fDM.StoredProc1.Params[1].AsString);
except
result:=false;
end;
end;

Как исправить?


← →
studentik ©   (2002-05-20 19:36) [4]

Я смог исправить ошибку!!! При задании StoredProcName имеет значение РЕГИСТР.
Вот исправленный вариант:
function TfNew.GetElement: boolean;
begin
try
result:=true;
if IBStoredProc1.Active then IBStoredProc1.Close;
fDM.IBStoredProc1.StoredProcName:="GET_FA_KOD";
fDM.IBStoredProc1.Prepare;
fDM.IBStoredProc1.Params[1].AsString:= ComboBox1.Text;
fDM.IBStoredProc1.ExecProc;
vi_P_Kod:=Trim(fDM.IBStoredProc1.Params[0].AsString);
except
result:=false;
end;
end;

Продолжаю править программу...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c
1-40108
viko
2002-06-03 03:36
2002.06.13
Считывание данных из файла


8-40110
Ghost.
2002-01-28 12:15
2002.06.13
В канвас уменьшить количество цветов


1-40011
Agent Smith
2002-06-03 18:02
2002.06.13
Может я торможу?


1-39995
First_May
2002-06-03 15:12
2002.06.13
Excel


1-40012
AVeR
2002-06-03 19:41
2002.06.13
Уменьшение размера приложения




   Наверх