Buf.Close

Buf.Excecute SQLStr

MsgBox SQLStr

End If

End If

End If

End If

Dim Buf As Database

Dim SQLStr As String

End Sub

DBGridSelRes.SetFocus

End If

12. Третья форма для обновления содержимого полей БД имеет вид:

Начните её формирование также с добавления объекта Data (DataStud2) и установки соответствующих свойств.

В рамке разместите 4 переключателя, для каждого из которых (по строке) разместите текстовое поле и раскрывающийся список (задайте их значения свойств). И значению Visible каждого поля и списка присвойте значение False/

12. Для кнопки Обновить введите нижеследующий текст процедуры.

Private Sub cmdRefr_Click()

Set Buf = OpenDatabase("Spisok.mdb")

SQLStr = "UPDATE Spisok SET "

'Выбираем поля для обновления

If optGR = True Then

SQLStr = SQLStr & "[Group]=" & Chr(34) & txtNewGR.Text & Chr(34) & " WHERE ([Group]= " _

& Chr(34) & DBCombo1.Text & Chr(34) & ")"

If optWord = True Then

SQLStr = SQLStr & "Word=" & txtNewWrd.Text & " WHERE Word= " & DBCombo2.Text

If optExc = True Then

SQLStr = SQLStr & "Excel=" & txtNewExc.Text & " WHERE Excel= " & DBCombo3.Text

If optAcc = True Then

SQLStr = SQLStr & "Access=" & txtNewAcc.Text & Chr(34) & " WHERE (Access= " & DBCombo4.Text

Дата добавления: 2014-12-27