Создание DHTML-приложений с помощью Visual Basic 6.0

Листинг 3

Private Sub PopulateTabs()
       '
       'Формирование полей выходной формы данными из
       ' базы данных по иденификатору сотрудника
       '
       Dim con As New ADODB.Connection, rs As New ADODB.Recordset
       Dim sSQL As String, iEmpID As Integer
       ' Открываем базу данных C:\NWind.mdb
       con.open "Provider=Microsoft.Jet.OLEDB.3.51; _
       Persist Security Info=False;Data Source=c:\Nwind.mdb"
       ' получаем идентификатор сотрудника, который
       ' определен на странице Inrto.htm
       iEmpID = GetProperty(BaseWindow.Document, "EmpID")
       ' SQL-запрос на поиск записи
       sSQL = "Select FirstName + ' ' + LastName as Name," & _
       " Address, City, Region, BirthDate, HireDate," & _
       " Title From Employees where EmployeeID = " & iEmpID
  ' Поиск и чтение записи
       rs.open sSQL, con, adOpenKeyset, adLockReadOnly
       ' Переписываем данные на форму
       txtName.Value = rs("Name")
       txtAddress.Value = rs("Address") & _
       vbCrLf & rs("city") & " " & rs("Region")
       txtDOH.Value = rs("HireDate")
       txtBirthDate.Value = rs("BirthDate")
       txtTitle.Value = rs("Title")
       rs.Close
       con.Close
  End Sub

Возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует