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

Тема в разделе "Lotus - Программирование", создана пользователем joker_turk, 12 апр 2006.

Статус темы:
Закрыта.
  1. joker_turk

    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
     
  2. valmont

    valmont Well-Known Member

    Регистрация:
    27 дек 2004
    Сообщения:
    63
    Симпатии:
    0
    попрробуй так:
    qry.sql = {select * from ryb0306 where count = }+find1 если find1 число

    qry.sql = {select * from ryb0306 where count = '}+find1+{'} если find1 текст
     
Загрузка...
Похожие Темы - господа поясните
  1. alik86
    Ответов:
    17
    Просмотров:
    5.584
Статус темы:
Закрыта.

Поделиться этой страницей