Текущий архив: 2002.06.13;
Скачать: 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 вся ветка
Текущий архив: 2002.06.13;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.004 c