Практическая работа 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 заключается в создании запроса на бланке запроса, последующем использовании меню Вид Практическая работа 25. Базы данных. Использование инструкций SQL При работе с объектом QueryDef (запрос) должна быть использована допустимая строка SQL.
|
режимSQL; копировании создаваемой автоматически в выводимом окне инструкции SQL и вставке еe в процедуру.
