Kết nối cơ sở dữ liệu

Bạn nào chỉ mình viết form đăng nhập sử dụng csdl với.
Khi đăng nhập vào được rồi thì đóng form đăng nhập lại thế nào?
Chỉ mình code nút Thoát để có thể thoát hoàn toàn VB nhé
Code tham khảo, sử dụng csdl access
Private con As OleDbConnection
Dim dt As New DataTable("login")
Dim da As New OleDbDataAdapter()
Private Sub ket_noi()
Dim cn As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data
Source=" & Application.StartupPath() & "\csdlnhahang.mdb;" & "Persist
Security Info=False"
Try
con = New OleDbConnection(cn)
con.Open()
Catch ex As Exception
MessageBox.Show("Don't connect to database", "Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdlogin.Click
Dim command As New OleDbCommand()
command.Connection = con
command.CommandType = CommandType.Text
command.CommandText = "Select * From login Where (Name ='" &
txtname.Text & "') And (Pass ='" & txtpass.Text & "')"
da.SelectCommand = command
da.Fill(dt)
If dt.Rows.Count > 0 Then
frmquanlynhahang.Show()
frmquanlynhahang.cmdtamdung.Text = "Tạm dừng làm việc"

frmquanlynhahang.MenuStrip1.Enabled = True
frmquanlynhahang.grchung.Enabled = True
Me.Hide()
frmquanlynhahang.lbuser.Text = ">>> Bạn đã đăng nhập với tài
khoản: " & txtname.Text & " (*._.* Chúc bạn một ngày làm việc tốt lành
*._.*)"
txtpass.Text = ""
Else
If (MessageBox.Show("Sai thong tin dang nhap, xin moi dang nhap
lai!", "Thông báo", MessageBoxButtons.OKCancel,
MessageBoxIcon.Warning) = Windows.Forms.DialogResult.OK) Then
txtname.Focus()
Else
Me.Close()
Global.System.Windows.Forms.Application.Exit()
End If
End If
dt.Clear()
End Sub
bài 2 Bài thực hành VB.net số 1 và 2
SATURDAY, 27. SEPTEMBER 2008, 13:18:32
đây là cách hướng dẫn các bạn thực hành VB.net với CSDL SQL , các bạn
đọc và làm theo nhé , mình không post bài lên là vì nếu như thế các bạn sẽ
lười không chịu học
phần 1 tạo form đăng nhập :
theo yêu cầu của thày là các bạn phải tạo 1 form đăng nhập CSDL trước
bằng cách dùng file app.config nhưng theo Hiếu như thế thì sẽ không linh
động các bạn làm theo cách sau :
trước tiên các bạn tạo một module có các thuộc tính sau :
--------------------------------------------

Module Module1
Public gscon As String
Public user, pass, group
End Module
----------------------------------------------
sau đó các bạn tạo một form đăng nhập có hình dạng như sau :
sau khi tạo form có hình dạng như thế này các bạn tạo một form đăng nhập
thứ 2 là form đăng nhập người dùng :
tiếp đó các bạn tạo form frmmain có hình dạng như sau ( lưu ý hình nền do
các bạn tự chọn tôi để chế độ mặc định )
bây giơ chúng ta vào việc viết code
nội dung code như sau :
trước tiên chúng ta viết code cho nút connect trong form đăng nhập CSDL
như sau :
ta thêm khai báo không gian sử dụng vào
-------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
---------------------------------------------
nội dung của nút connect nh sau :
-----------------------------------------------------------
Dim mycon As SqlConnection
Dim str As String
str = " server=" & TextBox1.Text
str += ";database=" & TextBox2.Text
If TextBox3.Text = "" Or TextBox4.Text = "" Then
str += ";integrated security=SSPI"
Else
str += ";uid=" & TextBox3.Text
str += ";pwd=" & TextBox4.Text

End If
gscon = str
mycon = New SqlConnection
mycon.ConnectionString = str
Try
mycon.Open()
If mycon.State <> ConnectionState.Closed Then
myForm = New LoginForm1
myForm.Show()
Else
MsgBox("thong so sai " & TextBox1.Text & vbCrLf & TextBox2.Text &
vbCrLf & TextBox3.Text & vbCrLf & TextBox4.Text)
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
---------------------------------------------------------------------------------------
như vậy là chúng ta đã kết nối tới CSDL vào một server bất kỳ chúng ta
muốn ;
còn nút thoát các bạn tự viết nhé ;
tiếp đến form đăng nhập người dùng ;
nếu sau khi đăng nhập CSDL thành công bạn mới vào được form này nhé :
bây giờ chúng ta viết code cho nút OK
trước tiên bạn phải khai báo không gian sử dụng là :
---------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient
----------------------------------------------------------------
sau đó viết code cho nút lệnh như sau :
----------------------------------------------------------------

Dim Cnn As New SqlConnection(gscon)
Dim cmd As SqlCommand = New SqlCommand()
Cnn.Open()
cmd.Connection = Cnn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select*from phanquyen where username='" &
UsernameTextBox.Text & "'"
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
While reader.Read
If PasswordTextBox.Text = reader("pass") Then
Dim a As String
a = reader("nhom")
user = UsernameTextBox.Text
pass = PasswordTextBox.Text
If a = "quan ly " Then
frmmain.Show()
frmmain.ToolStripStatusLabel1.Text = "nguoi su dung la :" & user
frmmain.ToolStripStatusLabel2.Text = "chương trình quản lý sách "
ElseIf a = "nhap lieu" Then
frmmain.HệThốngToolStripMenuItem.Enabled = False
frmmain.Show()
frmmain.ToolStripStatusLabel1.Text = "nguoi su dung la :" & user
frmmain.ToolStripStatusLabel2.Text = "chương trình quản lý sách "
Else
user = UsernameTextBox.Text
pass = PasswordTextBox.Text
frmmain.HệThốngToolStripMenuItem.Enabled = False
frmmain.CậpNhậtToolStripMenuItem.Enabled = False
frmmain.Show()

frmmain.ToolStripStatusLabel1.Text = "nguoi su dung la :" & user
frmmain.ToolStripStatusLabel2.Text = "chương trình quản lý sách "
End If
Else
MessageBox.Show(" mat khau hoac ten su dung khong hop le ")
End If
End While
reader.Close()
Cnn.Close()
------------------------------------------------------------------------------
như thế chúng ta đã kết nối với CSDL để truy xuất người dùng được nếu
thành công nó gọi form main ra cho các bạn
đó là nội dung của hai bài thực hành đầu , còn về phần tạo menu thì các bạn
tự làm cái này mình không hướng dẫn , tuy nhiên để hiểu rõ bản chất của các
câu lệnh bên trong chương trình thì các bạn nên đọc kỹ bài hướng dẫn đầu
của mình và làm bài tập mình giao , nếu không làm được liên hệ lại để mình
gửi lên , tuy nhiên các bạn cố gắng làm đi nhé , chúc thành công
bài 1 kết nối CSDL trong VB.net
FRIDAY, 26. SEPTEMBER 2008, 04:34:04
Chào các bạn hôm nay mình xin mạn phép hướng dẫn các bạn thao tác
tương tác với CSDL thông qua VB.net
Bài 1. Thao tác kết nối CSDL bằng lệnh
Trước tiên các bạn phải hiểu cơ chế ba tầng của .net
ADO.net khái niệm con trỏ (cursor ) không tồn tại , thay vào đó đối tượng
được xem là một con trỏ tĩnh và đối tượng dataadapter chỉ đọc
Chào các bạn hôm nay mình xin mạn phép hướng dẫn các bạn thao tác
tương tác với CSDL thông qua VB.net
Bài 1. Thao tác kết nối CSDL bằng lệnh
Trước tiên các bạn phải hiểu cơ chế ba tầng của .net
ADO.net khái niệm con trỏ (cursor ) không tồn tại , thay vào đó đối tượng

được xem là một con trỏ tĩnh và đối tượng dataadapter chỉ đọc
ADO.net cung cấp các quá trình điều khiển ứng với các loại CSDL chẳng
hạn SQL,..
OLEDB.net là trình điều khiển dùng trong các loại CSDL tương tac nhúng
VD access , excel … tuy nhiên cũng có thể dùng nó cho SQL 7.0
ODBC.net là trình điều khiển dùng cho các loại CSDL trương tác thông qua
ODBC của hệ điều hành Window
I.trình điều khiển CSDL
Các thuộc tính cần lưu ý khi bạn dùng các trình điều khiển này
Sqlconnection Oledbconnection