Приложение vb6 oracle9i, набор логических ошибок остается пустым

Question

В настоящее время я работаю над проектом, который заставляет меня использовать Vb6 в качестве внешнего интерфейса и Oracle 9i в качестве внутреннего в моем приложении. Мне нужно получить данные из таблицы в Oracle и отобразить их в форме VB6. Я использую набор записей для этого, но по какой-то причине он не содержит никаких записей, даже если в рассматриваемой таблице присутствует действительная запись. Может кто-нибудь сказать мне, что не так? Любая помощь будет оценена. Мой код выглядит следующим образом:

Private Sub Command1_Click()
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select test23.phoname from test23 where test23.ops='" + Text1.Text + "'"
rs.Open sql, con, adOpenStatic, adLockOptimistic
If rs.EOF = False Then
    Form7.Show
    Form7.Label2.Caption = rs.Fields("phoname")
End If
End Sub

Операторы if никогда не выполняются, так как набор записей всегда кажется пустым. Если я удаляю условие EOF, я получаю ошибку времени выполнения 3021. Что-то не так с моим SQL-запросом? Таблица test23 уже присутствует в моей базе данных oracle с атрибутами serialno, phoname и ops. Спасибо Рон

Answer 1

Я сам пережил это несколько лет назад. Проблема может быть в нескольких областях: в частности, соединение, драйверы Oracle, Oracle home или сам запрос.

Я настоятельно рекомендую вам загрузить бесплатную версию TOAD, которая позволит вам протестировать как ваше соединение (я полагаю, что-то вроде ODBC), так и затем вы можете выполнить запрос вручную, используя TOAD.

Вы получаете какие-либо исключения?

Надеюсь, из этого вы можете исправить свой код / ​​соединение / запрос.

Удачи

Answer 2

Я также хотел бы отметить, что adoOpenStatic и adoLockOptimistic являются взаимоисключающими значениями свойств, поскольку оптимистическая блокировка применяется только к обновляемым наборам записей, а статические наборы записей не обновляются (кроме как в пакетном режиме с adoLockBatchOptimistic). Это может как-то сбить с толку провайдера Oracle OLEDB.