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"

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

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()

đượ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