1 Imports System.Data.OleDb
2
3 Public Class frmProfile
4
5     Dim id_con As New OleDbConnection(
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=MainDB.accdb;")
6     Dim id_com As New OleDbCommand()
7
8     Private Sub frmProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9         Dim id_read As OleDbDataReader
10         id_con.Open()
11         id_com = New OleDbCommand(
"Select * from Admin where Id ='" & frmLogin.txtId.Text & "'", id_con)
12         id_read = id_com.ExecuteReader()
13         If id_read.HasRows Then
14             id_read.Read()
15             lblId.Text = id_read(
0).ToString()
16             lblName.Text = id_read(
1).ToString()
17             lblSubject.Text = id_read(
2).ToString()
18             lblMob.Text = id_read(
3).ToString()
19             lblEmail.Text = id_read(
4).ToString()
20         End If
21     End Sub
22
23     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
24         frmAdmin.Show()
25         Me.Close()
26
27
28     End Sub
29 End Class


Gõ tìm kiếm nhanh...