|
Примеры работы с SQL из Visual Basic
На Visual Basic можно писать программы, работающие с SQL. Рассмотрим на нескольких примерах. Используем Visual Basic 6.0 с библиотекой Microsoft DAO 3.51 Object Library
Из-за различия типов данных в Visual Basic и SQL при передаче данных нужно принимать специальные меры.
Создадим файл базы данных DataBase.mdb. В файле создадим таблицу tblAdres с полями fieldCity, fieldStreet, fieldHouse, fieldSurname и fieldTelefon.
[sql]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] = Москва") 'выбрать из таблицы поле
Do Until rs.EOF 'перебирать записи пока не кончатся
На форме надо разместить элемент управления ListBox1 для размещения считанных записей
ListBox1.AddItem rs.Fields("fieldCity") & " " & rs.Fields("fieldStreet") & " " & _
rs.Fields("fieldHouse")& " " & _
rs.Fields("fieldSurname") & " " & rs.Fields("fieldTelefon") & vbCrLf
rs.MoveNext
Loop 'повторять
rs.Close 'закрыть таблицу
Set rs = Nothing 'закрыть базу
db.Close 'закрыть базу
Set db = Nothing[/sql]
|
|