- login << เปิดเทอม จะชุกมากเพราะอาจารย์จะสอนอันดับแรกเลย
- control for represent data โดยปกติมักจะเป็น gridview ,dropdowlist มีมั่งประปราย
- report
- database
top hit ติดอันดับทั้งที่มีตัวอย่างในบอร์ดนี่แหละค่ะ มากจนมะรุจะว่ายังไง
พี่วินก้อทำ tutorial ให้ แล้วทำไมมีมาโพสเรื่องเดิมๆ น่าคิดมากกว่าปะคะ
ความเห้นส่วนตัวคือ บอร์ดยังจัดระบบ KM ไม่ค่อยดี search ยากไม่ค่อยตรง
ทั้งมี content แน่นปึ้ก อันนี้ขออนุญาติพี่วินค่ะ ขอวิจารณ์สักนิด
ระบบหมวดหมู่สารบัญยังไม่ค่อยดีอะค่ะ ที่เห็น work ก้อ troubleshooting ของ microsoft
กะ code project หาอะไรก้อเจอทั้ง knowledge ทั้ง code ทั้ง snippet
เพราะเขาออกแบบมาเพื่อบริหาร KM แต่บอร์ดนี้เข้าใจว่า base on community board มังคะ
Public Class frmLogin
Dim objConn As New OleDb.OleDbConnection()
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim comm As OleDb.OleDbCommand
Dim ole As String = ""
Dim objDataset As New DataSet
Dim strcmd As String
Sub conn()
Dim strconn As String
strconn = "Provider =Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =C:\Users\SAMSUNG\Desktop\project;" & _
"User ID=; Password=;" & _
"Persist Security Info=False"
objConn = New OleDb.OleDbConnection(strconn)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
txtUser.Text = ""
TxtPwd.Text = ""
ole = " select * from Login where Username='" & txtUser.Text & "' and Password='" & TxtPwd.Text & "'"
dataAdapter = New OleDb.OleDbDataAdapter()
If objDataset.Tables("dtlogin").Rows.Count <> 1 Then
MessageBox.Show("กรุณาตรวจสอบข้อมูลอีกครั้ง", "ข้อมูลผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Hand)
Exit Sub
End If
Me.Hide()
objConn.Open()
dataAdapter.Fill(objDataset, "dtlogin")
objConn.Close()
sale.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExit.Click
Me.Close()
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub txtUser_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUser.TextChanged
Imports System.Data
Imports System.Data.OleDb.OleDbConnection
Public Class frmLogin
Dim objConn As New OleDb.OleDbConnection()
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim comm As OleDb.OleDbCommand
Dim ole As String = ""
Dim objDataset As New DataSet
Dim strcmd As String
Sub conn()
Dim strconn As String
strconn = "Provider =Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =C:\Users\SAMSUNG\Desktop\project;" & _
"User ID=; Password=;" & _
"Persist Security Info=False"
objConn = New OleDb.OleDbConnection(strconn)
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click
txtUser.Text = ""
TxtPwd.Text = ""
ole = " select * from Login where Username='" & txtUser.Text & "' and Password='" & TxtPwd.Text & "'"
dataAdapter = New OleDb.OleDbDataAdapter()
If objDataset.Tables("dtlogin").Rows.Count <> 1 Then
MessageBox.Show("กรุณาตรวจสอบข้อมูลอีกครั้ง", "ข้อมูลผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Hand)
Exit Sub
End If
Me.Hide()
objConn.Open()
dataAdapter.Fill(objDataset, "dtlogin")
objConn.Close()
sale.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExit.Click
Me.Close()
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub txtUser_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUser.TextChanged
End Sub
End Class
มี error นะค่ะ
รบกวนหน่อยนะค่ะ