 |
| |
การทำ login ใน vb.net 2005 ฐานข้อมูล Access (.NET Framework) |
| |
 |
|
|
 |
 |
|
ขอบคุณมากครับ
|
 |
 |
 |
 |
| Date :
2009-06-25 16:33:25 |
By :
boongum |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
จะผิดผลาดบ้าง ก็เถอะ
|
| |
|
|
| |
| Date :
2009-06-28 20:21:00 |
By :
varittinan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มาน ขึ้น Error แบบนี้ครับ
System.Data.OleDb.OleDbException was unhandled
ErrorCode=-2147217900
Message="Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'."
Source="Microsoft Office Access Database Engine"
|
| |
|
|
| |
| Date :
2009-08-04 15:46:59 |
By :
mahoub |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Dim Sql_Log As String = "select * from t_user where user_id = '" & TxtId.Text & "'"
Da_AdMin.MissingSchemaAction = MissingSchemaAction.AddWithKey
Da_AdMin.SelectCommand = New OleDbCommand(Sql_Log, Con)
Try
Da_AdMin.Fill(Ds_AdMin, "log")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Dr As DataRow
If Ds_AdMin.Tables("log").Rows.Count = 0 Then
MessageBox.Show("ไม่มีรหัสสมาชิกรหัสนี้ " & TxtId.Text, "ไม่มีข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dr = Ds_AdMin.Tables("log").Rows(0)
Dim Pass As String = Dr("user_password").ToString
If TxtPassWord.Text <> Pass Then
MessageBox.Show("รหัสผ่านไม่ถูกต้อง", "รหัสไม่ถูกต้อง", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
End If
End If
Ds_AdMin.Tables("log").Clear()
เป็นการเช็คชื่อUser ก่อนและมาเช็ค password อีกทีนึง
|
| |
|
|
| |
| Date :
2009-08-11 15:00:57 |
By :
babyprogrammer |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าต้องการให้สามารถเปลี่ยน user,รหัสผ่าน ต้องทำไงคับ
ช่วยบอกที ขอบคุง
|
| |
|
|
| |
| Date :
2009-08-26 12:29:26 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คล้าย ๆ กัน
|
| |
|
|
| |
| Date :
2009-08-26 13:35:51 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
สะหวัดดีึัคับทีมงานสาชีกข่ source code project VB 2005 ขาออก-ขาเข้า
|
| |
|
|
| |
| Date :
2009-09-01 16:43:30 |
By :
lianexay |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มันไม่ยอมไปต่อ From2 ทำอย่างไรครับ
|
| |
|
|
| |
| Date :
2009-09-03 20:38:37 |
By :
Toon |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าเป็น VB2008 ทำไงครับ
ปรับตรงไหน บ้างครับ
ตอนนี้ยังติดต่อฐานข้อมูล . . .ไม่ได้เลย ครับ
|
| |
|
|
| |
| Date :
2009-09-12 20:27:11 |
By :
meraiwa |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (Login.aspx)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Login.aspx.vb" Inherits="Login" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>ThaiCreate Login (ASP.NET & Login Form)</title>
</head>
<body>
<form id="frmMain" runat="server">
<div>
<asp:Label ID="lblUsername" runat="server" Text="Username"></asp:Label>
<asp:TextBox ID="txtUsername" runat="server"></asp:TextBox> <br />
<asp:Label ID="lblPassword" runat="server" Text="Password"></asp:Label>
<asp:TextBox ID="txtPassword" runat="server" TextMode="Password"></asp:TextBox>
<br />
<asp:Button ID="btnLogin" runat="server" Text="Login" />
<asp:Label ID="lblMsg" runat="server"></asp:Label></div>
</form>
</body>
</html>
Code (Login.aspx.vb)
Imports System.Data.OleDb
Imports System.Data
Partial Class Login
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Onload Event
End Sub
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim objConn As OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("database/mydatabase.mdb") & ";"
objConn = New OleDbConnection(strConnString)
objConn.Open()
Dim strSQL As String
strSQL = "SELECT * FROM user WHERE Username = '" & Me.txtUsername.Text & "'" & _
" AND Password = '" & Me.txtPassword.Text & "' "
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
If dt.Rows.Count <= 0 Then
Me.lblMsg.Text = "Invalid Username & Password"
Else
Response.Redirect("Wecome.aspx")
End If
End Sub
End Class
|
| |
|
|
| |
| Date :
2009-09-18 10:53:35 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้า เปิด Wecome.aspx แล้ว มีวิธีเชค ยังคับ ว่าเราล๊อกอันหรอยัง ถ้ายังจะ ให้มันกลับ มาหน้า login ทำไงคับ
|
| |
|
|
| |
| Date :
2009-09-21 22:43:52 |
By :
note |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อยากได้code vb.net2005 โดยนำเครื่องฟิงเกอร์สแกนมาใช้ด้วยคับ
ทำไม่เปงจริง ๆ มันจะติดต่อกันยังไง อาจารย์ไม่เห็นจะสอน
แล้วก็สั่งงาน ช่วยหน่อยน่ะคับ ขอบคุณเปงอย่างยิ่ง
ถ้าช่วยได้ขอส่งมาทางเมล์ [email protected] ด้วยนะคับ
|
| |
|
|
| |
| Date :
2009-10-15 22:12:57 |
By :
KiMdOnGhWan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ
|
| |
|
|
| |
| Date :
2009-10-21 15:17:22 |
By :
ApBank |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ยังเชื่อมฐานข้อมูลไม่ได้เลย
|
| |
|
|
| |
| Date :
2009-11-26 20:16:24 |
By :
วิภาวดี /wipawadee |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ชอบคุณมากค่ะสำหรับ โค้ดนี้ตามมาหาจนเจอ ตอนแรกนึกว่าจะไม่ได้ใช้ สุดท้ายได้ใช้ซะงั้น มาหาทีหลัง เกือบมะเจอ อิอิ
ขอบคุณมากค่ะ ทีมงานที่น้ารัก และพี่วิน สุดยอก ผู้ไข ข้อกังขา ต่าง ๆ
thank you ka
|
| |
|
|
| |
| Date :
2009-12-27 15:57:28 |
By :
shadowsteam |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อยากได้โค๊ดform Loginของvb.net 2003.ใช้ฐานข้อAccess2003
|
| |
|
|
| |
| Date :
2010-01-23 21:16:02 |
By :
htht |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อย่างได้
การทำ login ใน vb.net 2003 ฐานข้อมูล Access 2003
|
| |
|
|
| |
| Date :
2010-01-24 16:29:18 |
By :
ichigo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อย่างได้
การทำ login ใน vb.net 2003 ฐานข้อมูล Access 2003
เอาโค้ดvb.net2003นะคับไม่เอาภาษา c
|
| |
|
|
| |
| Date :
2010-01-24 16:32:03 |
By :
ichigo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอกะเพราหมูสับไข่ดาว ไม่ใส่พริกนะ
เน้นนะครับว่าไม่ใส่พริก ไม่กินเผ็ดไม่ได้
|
| |
|
|
| |
| Date :
2010-01-24 17:16:01 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากมายครับ
|
| |
|
|
| |
| Date :
2010-01-27 03:27:55 |
By :
exanupap |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ของผม ถ้ารหัสถูก ก็ ok แต่ถ้าป้อนรหัสผิด มันฟ้องอย่างนี้ครับ
|
| |
|
|
| |
| Date :
2010-02-12 15:40:09 |
By :
crackza |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เอาอันนี้ไปลองปรับดูครับเผื่อได้ อิอิCode (VB.NET)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If TextBox1.Text <> "" Or TextBox2.Text <> "" Then
Dim cm As New OleDbCommand("select user,pass from login where user='" & TextBox1.Text & "' and pass='" & TextBox2.Text & "'", con)
Dim Rd As OleDbDataReader
Dim userlogin, passlogin As String
con.Open()
Rd = cm.ExecuteReader
Rd.Read()
userlogin = Rd.Item("user")
passlogin = Rd.Item("pass")
con.Close()
If TextBox1.Text = userlogin And TextBox2.Text = passlogin Then
MsgBox("ยินดีต้อนรับคุณ " & userlogin & " เข้าสู่ระบบครับ")
End If
End If
Catch ex As Exception
MsgBox("คุณไม่มีสิทธิ์เข้าใช้ระบบนะครับ T-T")
Exit Sub
End Try
End Sub
End Class
|
| |
|
|
| |
| Date :
2010-02-14 23:49:33 |
By :
somsakza |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
|
| |
|
|
| |
| Date :
2010-02-15 00:38:33 |
By :
neenarat |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมเป็นเหมือนท่าน crackza เลยครับ อยากทราบวิธีแก้ครับผม
|
| |
|
|
| |
| Date :
2010-02-15 21:41:20 |
By :
TripleX |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองโค๊ดของคุณ sak แล้วนะคะ
Run ผ่านก็จริง
แต่...หากใส่ Username หรือ Password ถูก
ก็ยังไม่มีสิทธิ์เข้าใช้งานระบบ
เพราะอะไรหรอคะ??
รบกวน..ช่วยแก้โค๊ดให้หน่อยนะคะ
ขอบคุณค่ะ
|
| |
|
|
| |
| Date :
2010-02-16 01:29:08 |
By :
กองพลอย |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณค่ะ
|
| |
|
|
| |
| Date :
2010-03-26 22:23:23 |
By :
hiso_namtan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
SqlSelect = "select * from tbuserlogin Where Username = " & "'" & usertxt.Text & "'"
ลองแก้เป็น
Code (VB.NET)
SqlSelect = "select * from tbuserlogin " & "'"
|
| |
|
|
| |
| Date :
2010-05-14 18:59:32 |
By :
แกม |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมลองแล้วอะคับ มีปัญหาเหมือนคุณ crackza เลยอะ
|
| |
|
|
| |
| Date :
2010-05-14 22:15:16 |
By :
adunafah |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/data_app.mdb;"
ติด error ตรงบรรทัดนี้อ่ะ
มันฟ้องมาบอกว่า open อะไรไม่รุช่วยดูให้หน่อย
แต่ทำใน ฐานข้อมูลใน access 2007 ค่ะ
จะผิดรึป่าว
ด่วน
|
| |
|
|
| |
| Date :
2010-09-12 20:49:00 |
By :
น่ารัก |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถึง lab 32 นะครับ
accdb เป็นนามสกุล Access 2007
mdb เป็นนามสกุล Access 2003
|
| |
|
|
| |
| Date :
2010-11-08 20:06:09 |
By :
. |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
หนูอยากได้แบบที่เชื่อมแล้วให้แสดงอ่ะค่ะ
ทำไม่ได้จริง ๆ
|
| |
|
|
| |
| Date :
2010-11-09 19:04:07 |
By :
เขียว |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
หา
Code (VB.NET)
Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/data_app.mdb;"
แทนด้วย
Code (VB.NET)
Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/database.mdb;"
|
| |
|
|
| |
| Date :
2010-11-24 17:10:09 |
By :
lion328 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่รู้ว่าถูกเปล่านะครับ ตรงบรรทัดนี้
str_idname=OleReader.Item("idname")
ลองไปดูใน Database มี colums "idname" หรือ เปล่า
คือ อ่านไปอ่านมาชักงง
|
| |
|
|
| |
| Date :
2010-11-25 14:18:10 |
By :
zero1150kfc |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
หนูอยากได้โค้ดระบบ login ใน vb 2008 กรณีที่มีผู้ใช้ระบบหลาย เช่น มีผู้ดูแลระบบ มีเจ้าหน้าที่ ที่สามารถเข้าระบบได้ จะทำยังไงคะ
ช่วยบอกนะคะ ขอบคุณค่ะ 
|
| |
|
|
| |
| Date :
2011-01-22 17:52:30 |
By :
oun |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ใส่ตรงบน Public Class
Code (VB.NET)
view sourceprint?1.Imports system.Data
2.Imports System.Data.OleDb
ใส่ตรงล่าง Public Class
Code (VB.NET)
view sourceprint?1.Dim Cnn As New OleDbConnection(Cnnstring)
2.Dim Cnnstring As String
3.Dim SqlSelect As String
4.Dim OleReader As OleDbDataReader
5.Dim UserIDA As String
6.Dim PassIDA As String
ใส่ตรงไหนครับ ผมใช้ VB.net 2008
|
| |
|
|
| |
| Date :
2011-01-26 06:55:10 |
By :
bank |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ท่านที่ติดเหมือน ท่าน crackza
ลองเติม While เข้าไปดูนะค่ะ
While OleReader.Read()
UserIDA = OleReader.Item("username")
PassIDA = OleReader.Item("password")
End While
|
| |
|
|
| |
| Date :
2011-07-28 11:11:52 |
By :
NoNaMe |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากๆเลยครับบบบบ
|
| |
|
|
| |
| Date :
2011-08-15 23:38:05 |
By :
Noel Zero |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อย่างได้
การทำ login ใน vb.net 2008 ฐานข้อมูล Access 2007
|
| |
|
|
| |
| Date :
2011-09-04 18:39:02 |
By :
Tip |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
การทำ login ใน vb.net 2005 ฐานข้อมูล Access 2003
ก่อนอื่น เราทำฐานข้อมูลก่อน
เข้าไปใน Project แล้วไปที่ bin/Debug
สร้าง Folder ชื่อว่า database
สร้างฐานข้อมูล Access 2003 ชื่อว่า database.mdb
สร้างตารางชื่อว่า tbuserlogin
คลิกตาราง
เมนูตรงฐานข้อมูล เลือกออกแบบ
กำหนดค่าดังนี้
ใส่ข้อมูล username และ password ตามต้องการ
จบการสร้างฐานข้อมูล
---------------------------
การสร้างหน้า Login
สร้าง textbox
กำหนดค่า textbox ดังนี้
(Name) = usertxt
สร้าง textbox
กำหนดค่า textbox ดังนี้
(Name) = passtxt
PasswordChar = *
สร้าง Button
กำหนดค่า Button ดังนี้
(Name) = cmdlogin
Text = OK
ใส่ตรงบน Public Class
Code (VB.NET)
view sourceprint?1.Imports system.Data
2.Imports System.Data.OleDb
ใส่ตรงล่าง Public Class
Code (VB.NET)
view sourceprint?1.Dim Cnn As New OleDbConnection(Cnnstring)
2.Dim Cnnstring As String
3.Dim SqlSelect As String
4.Dim OleReader As OleDbDataReader
5.Dim UserIDA As String
6.Dim PassIDA As String
Code (VB.NET)
Code (VB.NET)
Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/data_app.mdb;"
With Cnn
If .State = ConnectionState.Open Then Close()
.ConnectionString = Cnnstring
.Open()
.Close()
End With
If usertxt.Text = "" Then
MessageBox.Show("ใส่ข้อมูล", "No UserID", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
ReadMyData(Cnnstring)
End If
End Sub
Public Sub ReadMyData(ByVal myConnString As String)
On Error GoTo 0
With Cnn
If .State = ConnectionState.Open Then Close()
.ConnectionString = Cnnstring
.Open()
End With
SqlSelect = "select * from tbuserlogin Where Username = " & "'" & usertxt.Text & "'"
Dim OleCommand As New OleDbCommand(SqlSelect, Cnn)
OleReader = OleCommand.ExecuteReader
OleReader.Read()
UserIDA = OleReader.Item("username")
PassIDA = OleReader.Item("password")
Cnn.Close()
If usertxt.Text = UserIDA And passtxt.Text = PassIDA Then
Form2.Show()
usertxt.Text = ""
passtxt.Text = ""
Me.Hide()
Else
MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
เสร็จ
Date : 2009-05-30 11:10:25 By : varittinan View : 14312 Reply : 41
[font=Verdana][font=Verdana]
ทำตามนี้แล้วแต่มันรันแล้ว[/font][/font]
.Open() แล้วมันเปิดไม่ได้นะ จะไปแก้ตรงไหนดีละนิ
|
| |
|
|
| |
| Date :
2011-09-04 18:56:31 |
By :
Tip |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim UserName As String = UsernameTextBox.Text
Dim Pwd As String = PasswordTextBox.Text
ตารางในฐานข้อมูลSql ชื่อตารางadminมีการกำหนดสิทธิ์ เป็น admin และ user อยากให้มันขึ้นข้อความมแจ้งเตือนเวลาที่ใส่รหัสผิดจะต้องใส่ตรงไหนยังไง Run และ error
Dim Authen As String = ""
Dim sql As String
sql = "SELECT * FROM admin"
sql &= " WHERE (Username = @Username"
sql &= " AND Password = @Password)"
Dim Com As New SqlCommand(sql, conn)
Com.Parameters.Add("@Username", SqlDbType.VarChar).Value = UserName
Com.Parameters.Add("@Password", SqlDbType.VarChar).Value = Pwd
Dim dr As SqlDataReader = Com.ExecuteReader()
If dr.HasRows Then
dr.Read()
Authen = dr.GetString(dr.GetOrdinal("Authentication"))
If Authen = "admin" Then
Menu1.Show()
Menu1.exitprogram.Enabled = False
Me.Hide()
Else
Menu1.Show()
Menu1.menumaster.Enabled = False
Menu1.username.Enabled = False
Me.Hide()
End If
End If
End Sub
|
| |
|
|
| |
| Date :
2012-10-12 11:54:07 |
By :
aum |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มัน error ทำไงดีคับบ
|
| |
|
|
| |
| Date :
2013-12-25 22:31:35 |
By :
pey |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
