господа, поясните!

[joker_turk]

есть такой код

Sub Click(Source As Button)
Dim s,tmp,find2,find3 As String
Dim find1 As Integer
Dim view As NotesView
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet

If con.connectto("telecom") Then
Set qry.connection = con
Else
Print("Возможно на Вашем компьютере не установлены или не настроены ODBC драйвера для telecom...")
Exit Sub
End If

' find1 = Val("25628") ' Лицевой счет
find1 = 25628
ПОЧЕМУ?
qry.sql = "select * from ryb0306 where count=25628"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
вот такой запрос РАБОТАЕТ!
qry.sql = "select * from ryb0306 where count = ?find1?"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
а Вот этот уже не хочет, в смысле не ругается но и ничего не находит!
что не так?

Set res.query = qry
res.execute
find2= res.GetValue(2)
find3= res.GetValue(3)
End Sub

 

[valmont]

попрробуй так:
qry.sql = {select * from ryb0306 where count = }+find1 если find1 число

qry.sql = {select * from ryb0306 where count = '}+find1+{'} если find1 текст