Далі подивимося, як відбудеться читання дані з база даних. Для того щоб все успішно завершилося вперше треба оголосити бібліотеку Imports System. Data.Oledb і після цього бібліотеки треба оголосити ще три допоміжне перемнние для завершення роботи. Перший перейменують, оголосимо як OledbConnection, яка використовується для підключення база даних, друга змінна використовується як OledbCommand для відправлення запитів, третє це змінна використовується як OledbDataReader для результату запиту. p align="justify"> Після цієї роботи треба обов'язково дати адресу нашого база даних для успішного підключення і для обробки даних.
Після визначення адреса база даних (MS Access), треба дати запитів для отримання результату (Dim query_sql As String = "SELECT * FROM product where status = 1 and id_catalog = 5"), після виконання цих запитів, вводиться конкретний результат нашого запиту. Отже, після натискання гіперпосилання В«ІншіВ» в головному сторінці побачимо результат нашого запиту, дивіться на рис.4.1. br/>В
Рис 4.1Результат запиту
Другий спосіб підключення до бази даних це за допомогою елемента AccessDataSource. Цей спосіб я використовував для збереження дані реєстраційного формі, коли користувач без помилки зробить реєстрацію. Коли користувач натисне на кнопку В«РеєстраціяВ», спочатку йде перевірка на помилку якщо не знайде помилку то дані успішно зберігається в базі даних. Перед збереженням дані файл Savetodb.aspx.vb обрабатівает і сохроняет дані про реєстрації. br/>
Лістинг 4.2 Код перевірки дані реєстраційної формі
Protected Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Clicktxtnom.Text <> "" And txtnasab.Text <> "" And txtmdname.Text <> "" And suroga.Text <> "" And pnumber.Text <> "" And.Text <> "" And txtpassword1. Text <> "" And txtsekret.Text <> "" ThenconnectionString As String = "" query_sql As String = "SELECT * FROM users where login = '" & txtlogin1.Text & "'" = "Provider = Microsoft.Jet.Oledb.4.0; Data Source = C: Inetpub wwwroot softkey.tj data base.mdb" _access = New OleDbConnection (connectionString) _access = New OleDbCommand (query_sql, con_access) _access.Open () _access = cmd_access.ExecuteReader () reader_access.HasRows = True Then_access.Read () reader_access (8). ToString = txtlogin1.Text Then
regis_error.Text = "ощибки: Такий логін вже існує!"
regis_error1.Text = "Error: The login which you entered is busy!" If_error.Text = "" _error1.Text = "". PostBackUrl = "~/data /Savetodb.aspx "_access.Close () _access.Close () IfIfSub
End Class
Рис 4.2 Заповнення реєстраційної форми
Як вже нам відомо, з лістингу 4.2, коли натискаєм...
