Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Решение:

Итоговый код для события Click() нашей кнопки может быть таким:

Private Sub CommandButton1_Click()

Dim nEmpId As Integer

Dim sLastName As String

Dim sFirstName As String

Dim sTitle As String

 

'Получаем от пользователя номер сотрудника

nEmpId = CInt(InputBox("Введите номер сотрудника:"))

 

' Создаем и настраиваем объект Connection

Dim cn As New ADODB.Connection

'У вас путь к файлу Борей.mdb может быть другим

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb"

cn.Open

 

'Создаем и настраиваем объект Recordset

Dim rs As New ADODB.Recordset

'Обеспечиваем возможность передвижения в любом направлении

rs.CursorType = adOpenStatic

 

'Открываем Recordset на основе запроса

rs.Open " SELECT [КодСотрудника], [Имя], [Фамилия], [Должность] " & _

"FROM [Сотрудники] WHERE [КодСотрудника] = " & nEmpId, cn

 

'Проверяем, не пустой ли Recordset

If rs.EOF = True And rs.BOF = True Then

MsgBox "Сотрудник с таким номером не обнаружен"

Exit Sub

End If

 

'Присваиваем значения из найденной записи в таблице

sLastName = rs.Fields("Фамилия")

sFirstName = rs.Fields("Имя")

sTitle = rs.Fields("Должность")

 

ThisDocument.Activate

ThisDocument.Bookmarks("Bookmark1").Select

Selection.TypeText nEmpId & " " & sLastName & " " & sFirstName & _

" " & vbTab & sTitle & vbCrLf

 

End Sub

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru