1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    joker_turk Гость

    Репутация:
    0
    есть такой код

    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

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

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

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