Использование инструкций SQL
Date: 2015-10-07; view: 405.
Практическая работа 24. Базы данных. Свойства набора записей
Объекты, содержащие наборы записей, представляют наибольший интерес. Ввести код, данный ниже, пояснения даны под комментариями к коду, затем стартовать проект, сделать щелчок на командной кнопке, проанализировать выведенные данные.
Private Sub Command1_Click()Dim WS As Workspace, db As DatabaseDim property As Рroperty, recSet As RecordsetDim strWS As String, strDB As String, strRS As String, str As StringstrWS = "WS" ' задать значения переменным strDB = "A:\dar.mdb"' использование SQL-запросаstrRS = "Select * FROM tr" ' установить соединениеSet WS = DBEngine.CreateWorkspace(strWS, "admin", "")Set db = WS.OpenDatabase(strDB)Set recSet = db.OpenRecordset(strRS, dbOpenDynaset)For Each property In recSet.Properties ' вывод результатовstr = str & property.Name & vbCrLfNextMsgBox str, vbInformation, " RecordSet"recSet.Close ' закрыть объектыdb.Close: WS.CloseSet property = Nothing: Set recSet = NothingSet db = Nothing: Set WS = NothingEnd SubПри работе с базами данных проекте Visual Basic часто возникает необходимость создать инструкцию SQL. Простейший способ создания инструкции SQL заключается в создании запроса на бланке запроса, последующем использовании меню Вид 
режимSQL ; копировании создаваемой автоматически в выводимом окне инструкции SQL и вставке еe в процедуру.
| <== previous lecture | | | next lecture ==> |
| Практическая работа 23. Базы данных. Свойства рабочего пространства | | | B. Создать аналогичный объект QueryDef |