Взаимодействие с СУБД

Private Sub CommandButton1_Click() Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset Dim conn As String

Dim sql As String

conn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\work\WorkshopDB.accdb;" & _ "Persist Security Info=False"

sql = "SELECT * FROM table1;" Set cn = New ADODB.Connection cn.ConnectionString = conn cn.Open

Set rs = New ADODB.Recordset

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

TextBox2.Text = Str(rs.Fields.Count)

rs.Close

cn.Close

Set rs = Nothing Set cn = Nothing End Sub

Информатика. 2 семестр. Тема 09. Базы данных

Необходимые методы для работы с СУБД

cn.Open

cn.Close

rs.Open

rs.Close

rs.MoveFirst

rs.MoveNext

rs.Fields.Count

rs.Fields()

rs.EOF

rs.Execute

Информатика. 2 семестр. Тема 09. Базы данных

Пример считывания таблицы на рабочий лист

…

rs.Open sql, cn, adOpenDynamic, adLockOptimisticrs.Close rs.MoveFirst

J = J + 1

WHILE NOT(rs.EOF)

FOR I = 0 TO rs.Fields.Count - 1 Cells(J, I+1).Value = rs.Fields(I)

NEXT I

J = J + 1 rs.MoveNext

WEND

…

Информатика. 2 семестр. Тема 09. Базы данных