Доступ к базам данных с помощью технологий DAO.
Dim bd As Database, rs As Recordset, td As DAO.TableDefs
Private Sub CommandButton1_Click()
UserForm1.ListBox1.Clear
UserForm1.ComboBox1.Clear
Set bd = OpenDatabase(ActiveWorkbook.Path & "\ÁÄ_Êíèæ_èçäàò_V98.mdb")
Set td = bd.TableDefs
UserForm1.ComboBox1.SetFocus
For i = 0 To td.Count - 1
If td(i).Attributes = 0 Then ' ïîëüçîâàòåëüñêèå òàáëèöû
UserForm1.ComboBox1.AddItem td(i).Name
If UserForm1.ComboBox1.ListCount = 1 Then UserForm1.ComboBox1.Value = td(i).Name
End If
Next
UserForm1.ComboBox1.DropDown
End Sub
Sub zapoln_sp(ByRef rs As DAO.Recordset)
Dim kfld As Integer
UserForm1.ListBox1.Clear
UserForm1.ListBox1.ColumnCount = rs.Fields.Count
ns = 0
Do While Not rs.EOF
UserForm1.ListBox1.AddItem
For nk = 0 To rs.Fields.Count - 1
If rs.Fields(nk) <> "" Then UserForm1.ListBox1.List(ns, nk) = rs.Fields(nk)
Next
ns = ns + 1
rs.MoveNext
Loop
End Sub
Private Sub CommandButton2_Click()
' Set rs = bd.OpenRecordset("select * from [" & ComboBox1.Value & "]")
Set rs = bd.OpenRecordset(UserForm1.ComboBox1.Value)
zapoln_sp rs
End Sub
Private Sub CommandButton3_Click()
'äîáàâëåíèå íîâîé çàïèñè
rs.AddNew
rs.Fields(0) = "111111"
rs.Fields(1) = "Èâàíîâ È.È."
'ñîõðàíåíèå äàííûõ â áàçå
rs.Update
' Set rs = bd.OpenRecordset("select * from flow")
' rs.MoveFirst
' Do While Not rs.EOF
' MsgBox rs.Fields(1)
' rs.MoveNext
' Loop
bd.Close
End Sub
Private Sub CommandButton5_Click()
Set rs = bd.OpenRecordset(UserForm1.TextBox1.Text)
zapoln_sp rs
End Sub
Dim bd As Database, rs As Recordset, td As DAO.TableDefs
Private Sub CommandButton1_Click()
UserForm1.ListBox1.Clear
UserForm1.ComboBox1.Clear
Set bd = OpenDatabase(ActiveWorkbook.Path & "\БД_Книж_издат_V98.mdb")
Set td = bd.TableDefs
UserForm1.ComboBox1.SetFocus
For i = 0 To td.Count - 1
If td(i).Attributes = 0 Then ' пользовательские таблицы
UserForm1.ComboBox1.AddItem td(i).Name
If UserForm1.ComboBox1.ListCount = 1 Then UserForm1.ComboBox1.Value = td(i).Name
End If
Next
UserForm1.ComboBox1.DropDown
End Sub
Sub zapoln_sp(ByRef rs As DAO.Recordset)
Dim kfld As Integer
UserForm1.ListBox1.Clear
UserForm1.ListBox1.ColumnCount = rs.Fields.Count
ns = 0
Do While Not rs.EOF
UserForm1.ListBox1.AddItem
For nk = 0 To rs.Fields.Count - 1
If rs.Fields(nk) <> "" Then UserForm1.ListBox1.List(ns, nk) = rs.Fields(nk)
Next
ns = ns + 1
rs.MoveNext
Loop
End Sub
Private Sub CommandButton2_Click()
' Set rs = bd.OpenRecordset("select * from [" & ComboBox1.Value & "]")
Set rs = bd.OpenRecordset(UserForm1.ComboBox1.Value)
zapoln_sp rs
End Sub
Private Sub CommandButton3_Click()
'добавление новой записи
rs.AddNew
rs.Fields(0) = "111111"
rs.Fields(1) = "Иванов И.И."
'сохранение данных в базе
rs.Update
' Set rs = bd.OpenRecordset("select * from flow")
' rs.MoveFirst
' Do While Not rs.EOF
' MsgBox rs.Fields(1)
' rs.MoveNext
' Loop
bd.Close
End Sub
Private Sub CommandButton5_Click()
Set rs = bd.OpenRecordset(UserForm1.TextBox1.Text)
zapoln_sp rs
End Sub
Private Sub UserForm_Click()
End Sub
Доступ к базам данных с помощью web технологий.
Тема 12. ???Концепции программных решений. Удаленный вызов процедур. Обращение к удаленным объектам.