підключення база даних зі сторінками сайту. Вже ми розповідали, що в нашому проекті використовується тільки два способи підключення база даних, перший спосіб за допомогою Imports System.Data. OleDb які використовується для перегляду продуктів, друге спосіб це за допомогою елемента які використовується для збереження дані реєстраційній формі в базу даних.
Отже, подивимося перший спосіб підключення база даних (Imports System.Data.Oledb), які використовується у файлі Default.aspx.vb і вважається файл головного сторінки.
Подивимося спосіб читання інформації і його відображення в контенті, його код показано в листинги 4.1:
Лістинг 4.1 Код програми System.Data.OleDb
Imports System.DataClass _DefaultSystem.Web.UI.Pagecon_access As OleDbConnectioncmd_access As OleDbCommandreader_access As OleDbDataReaderSub Page_Load (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadconnectionString As String = "" query_sql As String = "SELECT * FROM product where status = 1 and id_catalog = 1" = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base.mdb "_access = New OleDbConnection (connectionString) con_access.Open () _access = New OleDbCommand (query_sql, con_access) _access = cmd_access.ExecuteReader () reader_access.HasRows = True Thencounter1 As Integer = 0_2.Text =" ; "While reader_access.Read () _2.Text = label_2.Text &"
"_2.Text = label_2.Text &"
MultiView1.ActiveViewIndex = 3.Text = "Адміністратор ще не дав доступу!"
lblerror1.Text = "The Admin (Manager) did not give an access!" Request.QueryString ("sah") = "error1" Then.ActiveViewIndex = 3.Text = " ; пороли або логін неправильно ". Text =" Password or login was entered by mistake! "Request.QueryString (" sah ") =" error2 "Then.ActiveViewIndex = 3.Text =" Обов'язково вводите пароль і логін! ". Text =" You have to enter the login and password! "Request.QueryString (" sah ") =" zabili_parol "Then.ActiveViewIndex = 15IfIfRequest.Form (" bt_vo s ") <>" "Then_sql =" SELECT * FROM users where pnumber = '"& Request.Form (" txt1p ") &"' and sekret_vop = '"& Request . Form ("txt2s") & "'" = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base.mdb" _access = New OleDbConnection (connectionString) _access.Open () _access = New OleDbCommand (query_sql, con_access) _access = cmd_access.ExecuteReader () reader_access.HasRows = True ThenWhile reader_access.Read () _zabil.Text = "Ваш логін =" & reader_access (8) & "; Ваш пароль =" & reader_access (9)
Exit Do_zabil.Text = "Ваш номер телефон або ваш секретне питання неправленая! End If_access.Close () _access.Close () End = 1 To 31.Items.Add (i) j = 1 To 12.Items.Add (j) k = 1945 To Date.Now.Year.Items.Add (k) Sub
...
