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

  • Автор темы joker_turk
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

joker_turk

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

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

Well-known member
27.12.2004
64
0
#2
попрробуй так:
qry.sql = {select * from ryb0306 where count = }+find1 если find1 число

qry.sql = {select * from ryb0306 where count = '}+find1+{'} если find1 текст
 
Статус
Закрыто для дальнейших ответов.