Управление базами данных Access на VBA - eDrive

More documents

Recommendations

Info

18 cnn.Open "DBQ=D:\;Driver={Microsoft dBase Driver (*.dbf)}" With rst .Open "Сотрудники", cnn For i = 0 To .Fields.Count - 1 temp = temp & .Fields (i).Name & " " Next temp = temp & vbCr Do While Not .EOF For i = 0 To .Fields.Count - 1 temp = temp & rst.Fields (i) & " " Next temp = temp & vbCr .MoveNext Loop MsgBox "Всего в " & .Source & " полей: " & .Fields.Count & _ vbCr & "Всего записей: " & .RecordCount & vbCr & temp End Sub Sub ПозиционированиеADO () Dim rst As New ADODB.Recordset rst.Open "Сотрудники", CurrentProject.Connection, adOpenStatic Do While Not rst.EOF строка = rst!Кто & " " & rst.AbsolutePosition & _ " из " & rst.RecordCount If MsgBox (строка, vbOKCancel) = vbCancel Then Exit Do rst.MoveNext Loop End Sub Sub ОбъектCommand () Dim rst As ADODB.Recordset, cmd As ADODB.Command Dim строка As String, счетчик As Integer Set rst = New ADODB.Recordset Set cmd = New ADODB.Command Set cmd.ActiveConnection = CurrentProject.Connection cmd.CommandText = _ "SELECT Кто, Сколько FROM Сотрудники WHERE Сколько>1100" rst.CursorLocation = adUseClient Set rst = cmd.Execute () Do While Not rst.EOF счетчик = счетчик + 1 строка = строка & Str (счетчик) & " " & rst!Кто & " " & rst!Сколько & vbCr rst.MoveNext Loop MsgBox строка & "Всего: " & счетчик rst.Close Set cmd = Nothing End Sub Для изменения данных следует сначала сделать запись текущей. В модели ADO изменения данных программируются проще, чем в DAO, так
19 как используется обычный оператор присваивания с последующим обновлением. В модели ADO используется отличный от DAO синтаксис поиска: • объектRecordset.Seek (значенияКлюча, параметрыПоиска) • Find (Критерии, Пропуск, направлениеПоиска, Старт) где аргументы указывают массив переменных искомого значения и константный тип сравнения, число пропускаемых строк и направление. Sub ПравкаADO () Dim rst As New ADODB.Recordset строкаSQL = "SELECT * FROM Сотрудники WHERE Сколько
Page 1 and 2: В. М. Водовозов Упра
Page 3 and 4: Оглавление Модели
Page 5 and 6: 5 Процедурное и стр
Page 7 and 8: 7 • Parent!имяПоляГлав
Page 9 and 10: 9 Метод … объектНаб
Page 11 and 12: 11 tdf2.FindFirst "Кто = 'Але
Page 13 and 14: 13 & "WHERE NТовара = 2 " Cur
Page 15 and 16: 15 adLockPessimistic — песси
Page 17: 17 cnnMDB.Open "DBQ=D:\ Кадры.
Page 21 and 22: 21 "UPDATE Сотр SET Сколь
Page 23 and 24: 23 Имя = InputBox ("Какую
Page 25 and 26: 25 Picture bmp Имя файла ф
Page 27 and 28: 27 поле.FontName = "Times New R
Page 29 and 30: 29 Sub ОткрытыеОтчеты
Page 31 and 32: 31 DoCmd.OpenForm "Сотрудни
Page 33 and 34: 33 With новаяПанель.Cont
Page 35: 35 End If CurrentDb.Properties ("Al

Управление базами данных Access на VBA - eDrive

Create successful ePaper yourself

Delete template?

Save as template?