Примеры работы с SQL из Visual Basic

    Программы на Visual Basic для SQL. Продолжение
    
    Передадим строковую переменную в SQL запросе. Для этого создадим функцию
    
    [sql]Private Function Quote(strVariable As String) As String
    Quote = "'" & strVariable & "'"
    End Function[/sql]
    
    Строковая переменная будет заключена в одинарные кавычки. Запрос будет иметь такой вид
    
    [sql]Set rs = db.OpenRecordset ("SELECT * FROM [tblAdres] WHERE [fieldCity] = " & Quote(strCity))[/sql]
    

    
    Эту функцию надо добавить в проект. Либо переписать объявление переменной
    
    [sql]strCity = "Москва"
    strCity = "'" & StrCity & "'"
    Set rs = db.OpenRecordset ("SELECT * FROM [tblAdres] WHERE [fieldCity] = " & strCity)[/sql]
    
    
    Передача нескольких переменных через SQL запрос
    
    Например, надо сделать выборку по двум параметрам: город и фамилия
    
    [sql]Dim strCity As String 'переменная для 1 параметра
    Dim strSurname As String 'переменная для 2 параметра
    Dim strSQL As String 'переменная для строки SQL запроса
    strCity = "Москва" 'просваиваем значение
    strSurname = "Румянцев" 'просваиваем значение
    strSQL = "SELECT * FROM [tblAdres] WHERE [fieldCity] = " & Quote(strCity) & _
    " AND [fieldSurname] = " & Quote(strSurname)
    Set rs = db.OpenRecordset(strSQL)[/sql]
    
    Строка SQL запроса может получиться очень длинной. Разбить ее на несколько строк можно так
    
    Генератор бэк линков - Описание http://website.shmeleff.com/csh.htm
    

    Переменные в имени таблицы или поля
    
    С помощью конкатенации строк нужно заключить переменную в квадратные скобки. Будем работать с таблицей [tbl Adres] и полями [field Surname], [field City], [field Street], [field House]
    
    [sql]Dim strTable As String
    Dim strFieldPeople As String
    Dim strFieldCity As String
    Dim strFieldStreet As String
    Dim strFieldHouse As String
    Dim strPeople As String
    Dim strCity As String
    strTable = "[tbl Adres]" 'наименование таблицы
    strFieldPeople = "[field Surname]"
    'наименование поля таблицы ‘Фамилия’
    strFieldCity = "[field City]"
    'наименование поля таблицы ‘Город’
    strFieldStreet = "[field Street]"
    'наименование поля таблицы ‘Улица’
    strFieldHouse = "[field House]"
    'наименование поля таблицы ‘Дом’
    strPeople = Trim(txtPeople.Text)
    'даем возможность ввести критерии выборки,
    strCity = Trim(txtCity.Text)
    'и сразу отсекаем лишние пробелы
    Set rs = db.OpenRecordset("SELECT " & strFieldStreet & "," & strFieldHouse & _
    " FROM " & strTable & _
    " WHERE " & strFieldPeople & "=" & Quote(strPeople) & _
    " AND " & strFieldCity & “=“ & Quote(strCity))[/sql]
    
    Читаем далее >>
    

    Добавить комментарий
    
    Tags: установка, SQL, сервер, запросы
    
    Генератор бэк линков - скачать бесплатно в ZIP ( http://popochte.narod.ru/ )