Объектно-ориентированное программирование БД. Использование DAO и ADO

& Chr (13) & "Всего полей: " & CurrentDb!Сотрудники.Fields.Count
End

Seek, а в наборах других типов – методы FindFirst, FindNext,

"=", "Иванов"
Set tdf2 = CurrentDb.OpenRecordset ("Командировки", dbOpenSnapshot)
tdf2.FindFirst "Кто =

= 'Intel'"
DoCmd.RunSQL "UPDATE Таблица1 SET Цена = 5 WHERE

новаяБД = рабочаяОбласть.CreateDatabase ("Студенты.mdb", dbLangGeneral)
Set другаяБД = рабочаяОбласть.OpenDatabase ("ФирмаГодПрезидент")

"NТовара = 1"
объект.FindFirst критерий
Do Until объект.NoMatch
With объект
.Edit
.NТовара = 333
.Update
.FindNext

(Фирма) = "SCAN"
таблица.Fields (Год) = 2005
строкаSQL = "UPDATE

переменных
Sub Create_table()
Dim db As Database, td As TableDef, fld

As Workspace, conPubs As Connection
Set wrkJet = CreateWorkspace("NewJetWorkspace", "admin",

Cтрока соединения — это единое целое, включающее в себя блоки информации о провайдере и пути к БД, разделенные символом точки с запятой

conn = New ADODB.Connection ' make a connection object
conn.Provider =

ADODB.Connection
Set myTableRS = New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/walter/ass21.mdb"
myTableRS.Open "myTable", conn,

Поиск записи

Поиск записиFind a row with a certain key field value and display other field

Выбор значения их текстового поля


Поиск

Отображение результатов

ADODB.Connection
Set myTableRS = New ADODB.Recordset
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/bd1.mdb"
myTableRS.Open "myTable", conn,

Запись результатов в БД

запись добавляется в конец таблицы. В РБД порядок записей не

Удаление записей

IDTxtBox.SetFocus
myTableRS.Find "ID = " & IDTxtBox.Text
If Not myTableRS.EOF Then
myTableRS.Delete
myTableRS.Update
MsgBox ("Record deleted")
Else
MsgBox ("No matching record")
End If
myTableRS.Close

Not myTableRS.EOF
For i = 1 To myTableRS.Fields.Count
Debug.Print myTableRS.Fields(i - 1),
Next
Debug.Print
myTableRS.MoveNext
Loop
_______________________________________________________________
Использование

Объект Command

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/db1.mdb"
Dim myCommand As ADODB.command
Set myCommand = New ADODB.command
myCommand.ActiveConnection = conn
myCommand.CommandText="Update myTable set phone=phone + 2"
myCommand.Execute
conn.Close
Set conn = Nothing

с текущей БД
Dim cat As New ADOX.Catalog
Set cnn = CurrentProject.Connection

Recordset
Set cnn = New ADODB.Connection
Set rsADO = New ADODB.Recordset
Cnn.Mode=adModeShareDenyNone ‘по умолчанию

Sub DAO_1()
Dim db As DAO.Database, Dim rsDAO As DAO.Recordset
Set db = DBEngine.OpenDatabase(“D:/Wind.mdb“, ReadOnly:=True, Shared:=True)
‘ Set db = CurrentDb()
Set rsDAO = db.OpenRecordset("tblAccount")
Do While Not rsDAO.EOF
rsDAO.Edit
rsDAO![Commis]=trim(rsDAO![Commis])
rsDAO.Update
rsDAO.MoveNext
Loop
Set rsDAO = Nothing
Set db = Nothing
rsDAO.Close
cnn.Close
End Sub

Редактирование таблиц с помощью DAO и ADO

Uses Connection object to reference to database; 2 - Uses

End Sub

DAO
Sub DAOOpenJetDatabaseReadOnly()   
Dim db As DAO.Database   ' Open shared, read-only.   
Set db = DBEngine.OpenDatabase (".\NorthWind.mdb", False, True)   
db.Close
End Sub

ADO
Sub ADOOpenJetDatabaseReadOnly()   
Dim cnn As New ADODB.Connection   ' Open shared, read-only   
cnn.Mode = adModeRead

DAO в ADO с помощью Microsoft Jet Provider

DAO.Field
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb")
' Open the forward-only, read-only recordset
Set rst

rst As DAO.Recordset, fld As DAO.Field
Set db = DBEngine.OpenDatabase (".\NorthWind.mdb")
Set

    ' Save the changes you made to the current record in the Recordset  
' Position recordset on new record   
rst.Bookmark = rst.LastModified   
Debug.Print rst!CustomerId     
rst.Close
End Sub

ADO
Sub ADOAddRecord()
Dim

В DAO запись, которая была текущей перед вставкой новой записи, остается текущей записью, поэтому переводим курсор на новую запись.
В ADO новая запись сразу становится текущей.

DBEngine.OpenDatabase(".\NorthWind.mdb")
Set rst = db.OpenRecordset("SELECT * FROM Customers WHERE CustomerId =

Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Set

As DAO.QueryDef, rst As DAO.Recordset, fld As DAO.Field
Set db =

Then
If Not IsNull(Me.прим) Then
strSQL

Набор записей, отображаемый в подчиненнной форме

as String, strSQL2 As String
If Me.id_книга 0 Then
strSQL1="SELECT фонд.кол

Код на событии ПОСЛЕ ОБНОВЛЕНИЯ поля СПИСОК КНИГ по указанной тематике

" + table1 + ".выбор FROM " + table1 +

Код на закрытии формы Фото-видео (для снятия отметок о выборе товара в исходной таблице)

Private Sub Form_Unload(Cancel As Integer)
Call update_table("[Фото-видео]")
End Sub

БД “Компьютерный Магазин”

= New ADODB.Connection 'make a connection object
conn.Provider = "Microsoft.Jet.OLEDB.4.0“ 'specify what kind

DataSource = "Data Source=C:\Data\Hours.mdb"
Dim Connection As New ADODB.Connection
On Error GoTo

информацию о провайдере OLE DB
3. Открыть соединение.
4. По завершении работы

Recordset;
метод Execute объекта Command;
метод Execute объекта Connection.
1. Метод Open, если

2. В приложениях клиент/сервер обращение к сохраненным запросам методом Execute:
Dim con As New Connection
Dim cmd As New Command
Dim rst As Recordset
Dim strSQL As String
……………..’ соединение и открытие БД
With cmd
Set .ActiveConnection = con
.CommandText = strSQL
.CommandType = adCmdText
End With
rst.CursorType = adOpenForwardOnly
rst.lockType = adLockReadOnly
Set rst = cmd.Execute()

Однако, если для выполнения процедур необходимы определенные параметры, придется включить

Если известно, что подключение необходимо только для одного объекта Recordset, можно указать строку подключения в качестве 2-го аргумента метода Open объекта Recordset без выделения переменной для подключения к БД:
Dim rst As New Recordset
Dim strSQL As String, strConnect As String
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Data\Shop.mdb"
strSQL = "SELECT * FROM Bicycles"
rst.Open strSQL, strConnect, adOpenForwardOnly

Создание подключения на лету

создает объект Connection для объекта CurrentProject, который можно использовать:
Dim conADOConnection

типа курсора

поле проиндексировано (rst.seek ‘1234’, asSeekFirstEQ)
Редактирование
rst.AddNew
rst.Delete
rst.Update

Метод Move позволяет перемещаться на определенное количество записей в наборе

Метод AddNew добавляет новую запись в набор. Метод позволяет указать поля и их значения:
With rst
.AddNew Array ( "Имя", "Возраст", "Пол“), Array("Анна", 42, "Ж")
End With

Для удаления текущей записи предназначен метод Delete.

Добавление и удаление записей

или по его индексному номеру:
If rst.Fields("Service visits").Value >10
MsgBox

Указать новое значение и переместиться к другой записи:
With rst
.Fields(0).Value = “Lemon”
.MoveNext
End With
Если надо остаться на текущей записи – метод Update:
With rst
.Value=2
.Update
End With

Изменение поля

каждому из которых можно обратиться по индексу (начиная с 0)

OLE DB Provider не нужны. Для входных параметров определить объекты

Использование объекта Command

Для запроса, сохраненного в БД Jet/Access, используйте значение adCmdTable свойства CommandType объекта Command, а не adCmdStoredProc, относящееся к SQL Server и другим серверам БД.

инструкции SQL:
strSQL = "SELECT Name FROM Kids WHERE Hates =

' nonobject variable declaration
Dim db As Database ' object variable