SQL server

    SQL-запросы на языке Visual Basic 6
    
    Используем библиотеку Microsoft DAO 3.51 Object Library
    Предварительно создадим базу данных в файле DataBase.mdb и создадим таблицу tblAdres с полями fieldCity, fieldStreet, fieldHouse, fieldSurname и fieldTelefon. В программе сделаем выборку записи адресатов, проживающих в каком-либо городе.
    
    Dim db As Database ‘в примере используется Microsoft DAO 3.51 Object Library
    Dim rs As recordset ‘объявляем переменную
    Set db = OpenDatabase (App.Path & “\DataBase.mdb“)
    Set rs = db.OpenRecordset (“SELECT * FROM [tblAdres] WHERE [fieldCity] = Владивосток“)
    'нужно оздать элемент управления ListBox1
    Do Until rs.EOF ‘в ListBox1, будем передавать записи
    ListBox1.AddItem rs.Fields(“fieldCity“) & “ “ & rs.Fields(“fieldStreet“) & “ “ & rs.Fields(“fieldHouse“)& “ “ & _rs.Fields(“fieldSurname“) & “ “ & rs.Fields(“fieldTelefon“) & vbCrLfrs.MoveNext
    Loop ‘повторяем
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    

    'переменную величину выносим за кавычки
    Dim db As Database
    Dim rs As Recordset
    Dim strCity As String
    StrCity = “Владивосток“
    Set db = OpenDatabase (App.Path & “\DataBase.mdb“)
    Set rs = db.OpenRecordset (“SELECT * FROM [tblAdres] WHERE [fieldCity] = “ & strCity)
    'перед тем, как передать строковую переменную в SQL-запрос, ее нужно ограничить одинарными кавычками
    'используем функцию
    Private Function Quote(strVariable As String) As String
    Quote = “ ‘ “ & strVariable & “ ‘ “
    End Function
    'реальный запрос будет выглядеть так

    Set rs = db.OpenRecordset (“SELECT * FROM [tblAdres] WHERE [fieldCity] = “ & Quote(strCity))
    'нужно немного доработать переменную strCity
    strCity = “Владивосток“
    strCity = “ ‘ “ & StrCity & “ ‘ “
    Set rs = db.OpenRecordset (“SELECT * FROM [tblAdres] WHERE [fieldCity] = “ & strCity)
    
    SQL-запрос с несколькими переменными
    

    Dim strCity As String
    Dim strSurname As String
    Dim strSQL As String
    strCity = “Владивосток“
    strSurname = “Иванов“
    strSQL = “SELECT * FROM [tblAdres] WHERE [fieldCity] = “ & Quote(strCity) & “ AND [fieldSurname] = “ & Quote(strSurname)
    Set rs = db.OpenRecordset(strSQL)
    

    'запишем строку запроса на нескольких строках, чтобы ее проще было анализировать
    strSQL = “SELECT * “ & _
    “FROM [tblAdres] “ & _
    “WHERE [fieldCity] = “ & Quote(strCity) & _
    “AND [fieldSurname] = “ & Quote(strSurname)
    Set rs = db.OpenRecordset(strSQL)
    

    Обратите внимание на пробел между кавычками и директивой AND.
    При его отсутствии вы получите сообщение об ошибке № 3131: Syntax error in FROM clause («Синтаксическая ошибка в пункте FROM»). Если взглянуть на SQL-запрос, написанный в одну строку (предыдущий пример), то можно заметить, что без этого пробела директива AND сольется с переменной Quote(strCity) и получится ошибка синтаксиса.
    Чтобы избежать этого, достаточно поставить пробел перед всеми SQL-директивами.
    
    В принципе, это самый простой пример SQL запроса из программы на Visual Basic.   Найти еще  
    
    На главную страницу:   SQL сервер  

Visual Basic SQL