Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 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Использование инструкций SQL
При работе с базами данных проекте Visual Basic часто возникает необходимость создать инструкцию SQL. Простейший способ создания инструкции SQL заключается в создании запроса на бланке запроса, последующем использовании меню Вид 
режимSQL; копировании создаваемой автоматически в выводимом окне инструкции SQL и вставке еe в процедуру.
Практическая работа 25. Базы данных. Использование инструкций SQL
При работе с объектом QueryDef (запрос) должна быть использована допустимая строка SQL.
|
|