Всем привет, уважаемые мастера помогите "чайнику". бьюсь над кодом уже три дня и ничего не получается.

Задача: есть база данных, надо нажав кнопку (cb_3) проверить есть ли в ней некоторая величина и получить её значение в строковую переменную (ls_find). При этом все значения запроса SELECT являются переменными:
Ниже я привожу код который я написал, он компилируется но строковая переменная (ls_find) остаётся пустой.

Код для кнопки cb_3

String ls_prcolumn, ls_ptable, ls_dept, ls_Item, ls_find
String SQL_Exp

ls_prcolumn = String(sle_prcolumn.text) // колонка
ls_ptable = String(sle_prtable.text) // таблица
ls_dept = String(sle_dept.text) + "000001" // условие WHERE
ls_Item = lb_notfound.SelectedItem() // условие для WHERE берётся из ListBox

DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
SQL_Exp = "select " + String(ls_prcolumn) + " from amos." + String(ls_ptable) + " where " + String(ls_prcolumn) + " = ? and deptid = " + String(ls_dept) + ";"
PREPARE SQLSA FROM :SQL_Exp ;
OPEN DYNAMIC my_cursor USING :ls_Item;
FETCH my_cursor INTO :ls_find;

if oracle_trans.sqlcode = 0 then // если запрос выполняется то полученное
// значение выводится в (sle_find)
sle_find.text = ls_find

CLOSE my_cursor ;

if ls_find = ls_Item then // если выполняется это условие то появляется
// сообщение что величина есть в базе данных и наоборот

MessageBox( "Value found", String(ls_prcolumn) + " = " + String(ls_Item) + " found!", Information!, Ok!, 1)

else

MessageBox( "Value not found", String(ls_prcolumn) + " = " + String(ls_Item) + " not found!", Information!, Ok!, 1)

end if

Всем большое спасибо, но есть одно НО которое я вам не сообщил и только сегодня я понял (не без вашей помощи конечно - за что ещё раз вам всем спасибо). Так вот в чём дело, начну по порядку.
Итак, в моей апликации используется две базы данных (SQL - локальная база и Oracle - лежит на сервере) и два вида транзакции (SQLCA и oracle_trans), так вот когда програмка стартует то она соединяется с локальной базой для того чтобы получить датавинду из которой будут браться все строковые переменные для подготовки SQL_Exp ="Select ......." , который будет применяться как раз для получения некой величиныХ из ремоте базы. При старте апликации также происходит соединение с базой на сервере и заполняеся другая датовинда которая тоже в дальнейшем используется в апликации, но уже в других целях. Всё это работает, но когда доходит дело для проверки величины в базе данных на сервере то происходит почемуто проверка в локальной базе и понятное дело что, я то думал, что проверка идёт в базе данных сервера и думал что код не работает.
Теперь такая просьба помогите заставить её работать так как мне надо т.е. что бы она соединялась с базой на сервере а не с локальной. Я немного поправил код, учёл ваши замечания:

String ls_prcolumn, ls_ptable, ls_dept, ls_Item, ls_find
String SQL_Exp

ls_prcolumn = String(sle_prcolumn.text)
ls_ptable = String(sle_prtable.text)
ls_dept = String(sle_dept.text) + "000001"
ls_Item = lb_notfound.SelectedItem()

DECLARE my_cursor DYNAMIC CURSOR FOR SQLSA ;
SQL_Exp = "Select " + String(ls_prcolumn) + " from amos." + String(sle_prtable.text) + " where " + String(ls_prcolumn) + " = " + String(ls_Item) + " and deptid = " + String(ls_dept)

PREPARE SQLSA FROM :SQL_Exp using oracle_trans; // вот тут она должна
// использовать соединение с базой сервера используя транзакцию
// oracle_trans, а она почемуто соединяется через SQLCA с местной базой

OPEN DYNAMIC my_cursor ; //USING :ls_Item;
FETCH my_cursor INTO :ls_find;

sle_find.text = ls_find

CLOSE my_cursor ;

Уверен что работает так как призапуске приложения происходит загрузка датавинды из таблицы которой нет в локальной базе, вернее есть но в ней в локалке только один ряд а в базе на сервере их много и я это вижу. Попробую простую команду с статическими переменными. для полной уверенности. Меня вот тут мысль осенила может мне сделать всю эту проверку в отдельном окне может приложение не понимает что от него хотят а может я неправилтно назначил транзакции. Приложение естественно делалось на базе другого, которое работало только на локальной базе, и соединение с базой было через User Object - Generated Database Connection Service, прямо из учебника по PB.
Я потом просто добавил

//Application -Global Variable

Transaction oracle_trans

// В User Object - of_connectdb()

oracle_trans = create transaction

oracle_trans.DBMS= "O84"
oracle_trans.ServerName = "unicom.world"
oracle_trans.Database = ""
oracle_trans.DBParm = ""
oracle_trans.LogId = "sample"
oracle_trans.LogPass = "newyear"
oracle_trans.AutoCommit = true

Connect using oracle_trans;

If oracle_trans.SQLCode <> 0 Then
MessageBox ("Cannot connect to Server Database", oracle_trans.SQLErrText )
Return 0
End If

Return 0

// В User Object - of_disconnectdb()

disconnect using oracle_trans ;
destroy oracle_trans
Return 0

Может тут криво всё сделано, кто может предложить более лучшее соединение к двум базам первой через SQLCA и ко второй через Oracle_Trance
моя благодарность просто не будет иметь границ

Всем большое спасибо. всё заработало

Спасибо Геннадич, исправил.

Генналич спасибо большое ещё раз, но у меня прилада только для селектов, и никаких инсёртов быть и не должно. читая выбока необходимых данных их анализ и прочее прочее. Всем ещё раз спасибо я теперь дока в динамических курсорах. Я уже их понапихал во все кнопки какие только выдумал и работает пока без проблем а проблему я нашёл окончательно - у меня транзакция открывалась по нескольку раз и видимо друг друга прекрывала и не давала работать - это я так преметивно понимаю, я их посокращал и даже как мне показалось прилада работать быстрее стала.
Ещё раз всем спасибо