Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > ฟอร์ม login vb.net เชื่อมกับฐานข้อมูล Sql Server 2008 (.NET +SQL Server 2008)



 

ฟอร์ม login vb.net เชื่อมกับฐานข้อมูล Sql Server 2008 (.NET +SQL Server 2008)

 



Topic : 038408



โพสกระทู้ ( 24 )
บทความ ( 0 )



สถานะออฟไลน์




หน้าจอ login

รูปแบบการทำงานที่คิดไว้นะค่ะ คือ สร้างฐานข้อมูล sql server2008 แล้วโดยมี รายละเอียด
ฐานข้อมูล

รายละเอียดฐานข้อมูล

จากนั้นเวลา admin login โดยการใส่password ก็ให้ทำการตรวจสอบ ว่า ค่าที่กรอกใน txtPass นั้น
ตรงกับในฐานข้อมูลไหม ใน ฟิลด์ Mem_Passไหม ถ้าตรง ก็ เข้าสู่รบบได้ แต่ถ้าไม่ ก็ เข้าไม่ได้ประมาณนี้อ่ะค่ะ

ลองเขียน code แล้ว แต่มันเกิด error รบกวนพี่ๆช่วยดู code ให้หน่อยนะค่ะ

หากเขียนผิดรบกวนพี่ๆช่วยแนะนำ หรือ แก้ไข ให้หน่อยนะค่ะ ขอบคุณมากค่ะ

** ลองค้นหาแล้ว เอามาแปลงแล้ว แต่มันก็ทำไม่ได้เลยอ่ะค่ะ งง มากๆ ขอบคุณพี่ๆมากค่ะ

Code (VB.NET)
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.Data.SqlClient.SqlConnection


Public Class Login
    Dim Cnn As New SqlConnection
    Dim Cnnstring As String
    Dim SqlSelect As String
    Dim SqlReader As SqlDataReader
    Dim Password As String



Private Sub Bt_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_login.Click
        Cnnstring = "Data Source=NOEY-PC\SA;Initial Catalog=Project;Persist Security Info=True;User ID=sa;Password=powergurn"
        With Cnn
            If .State = ConnectionState.Open Then Close()

            .ConnectionString = Cnnstring

            .Open()

            .Close()

        End With
        If txtPass.Text = "" Then

            MessageBox.Show("ใส่ข้อมูล", "กรุณาใส่ รหัสผ่าน", 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 Member Where Mem_Pass = " & "'" & Password & "'"

        Dim SqlCommand As New SqlCommand(SqlSelect, Cnn)

        SqlReader = SqlCommand.ExecuteReader

        SqlReader.Read()

        Password = CStr(SqlReader.Item("Mem_Pass"))

        Cnn.Close()

        If txtPass.Text = Password Then

            Mainmenu.Show()

            txtPass.Text = ""


            Me.Hide()

        Else

            MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)

        End If

    End Sub
End Class




Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-02-05 21:33:50 By : powergurn View : 20957 Reply : 8
 

 

No. 1



โพสกระทู้ ( 538 )
บทความ ( 3 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


error บรรทัดไหน ว่ายังไงเอามา post ดูครับ






Date : 2010-02-06 14:59:16 By : salapao_codeman
 


 

No. 2



โพสกระทู้ ( 24 )
บทความ ( 0 )



สถานะออฟไลน์


Error ที่เกิดขึ้น

เกิด ตรงส่วนนี้นะค่ะ รบกวนพี่ๆดู หรือ ช่วยแก้ไข หน่อยนะค่ะ ไปต่อไม่ได้เลย ขอบคุณมากค่ะ
Date : 2010-02-06 22:28:23 By : powergurn
 

 

No. 3

Guest


อ่อ จากรูปนะครับ error ของคุณคือ ลืมใส่ connection string ให้กับตัวแปร cnn

คือคุณประกาศตัวแปร cnn ไว้ข้างบนสุดเพื่อที่จะได้ใช้ได้ตลอดทั้ง form ถูกไม๊ครับ แต่คุณต้องการให้ connect เมื่อมีการกดปุ่ม connect เท่านั้น การสร้าง connectionstring คุณเลยไปสร้างที่ function ของปุ่ม connect

โดยปกติแล้วจากตัวอย่างของที่ ThaiCreate และตามหนังสือทั่วไปแล้วเค้าจะ connect กันอย่างนี้

dim conStr as string = "....." <- อะไรก็ไม่รู้เยอะแยะ
dim cnn as new SQLConnection(conStr)

ดังนั้นของคุณเลยต้องประยุกต์นิดนึง ตามนี้อ่ะครับ จริงๆ จากที่คุณ post มามันก็น่าจะโอเคแล้วนะ post ครั้งแรกอ่ะ แต่ที่รูป error ของคุณหายไปบรรทัดนึง

Quote:
Cnnstring = "Data Source=NOEY-PC\SA;Initial Catalog=Project;Persist Security Info=True;User ID=sa;Password=powergurn"
Cnn.ConnectionString = Cnnstring
Cnn.Open()

Date : 2010-02-07 04:36:19 By : salapao_codeman
 


 

No. 4



โพสกระทู้ ( 24 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณมากค่ะ ^^ หาย error ตรงนั้นแล้ว แต่ มันมา error ส่วน นี้ ต่อ

error

คือ ในความคิดของเนย คือเนยอยากให้ if ข้อมูลที่กรอก ตรงกับ ฐานข้อมูล then ก็เข้าสูระบบได้ ไปฟอร์มถัดไป
Else MSg กรอกข้อมูลไม่ถูกต้อง
** ประมาณนี้นะค่ะ แต่เนย เขียน code ไม่ถูกนะค่ะ

รบกวนพี่ๆช่วยดูให้ที นะค่ะ


ขอบคุณมากค่ะ ใกล้จะผ่านแย้ว ^^
Date : 2010-02-07 08:34:17 By : powergurn
 


 

No. 5



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


1.dr มาจากไหน (แก้เป็น dt.Rows.Count > 0)

2.fill ใส่ dt แล้วทำไมไป new มันอีกล่ะ (เอาออกเถอะอายเขา)
Date : 2010-02-07 10:29:19 By : tungman
 


 

No. 6



โพสกระทู้ ( 24 )
บทความ ( 0 )



สถานะออฟไลน์


2.fill ใส่ dt แล้วทำไมไป new มันอีกล่ะ (เอาออกเถอะอายเขา) <<<<< ขอโทดทีค่ะ
พอดี มือใหม่ หัดเขียน นะค่ะ ไม่ค่อยมีความรู้เรื่อง vb.net มากเท่าที่ควร อาจจะเขียนไป ตามที่เจอในเนต พยายาม เอามาปรับเปลี่ยนแล้วค่ะ

ถ้าพี่ๆ พอจะทราบ พอทำได้ รบกวน สงเคราะห์ หน่อยนะค่ะ รู้ค่ะ ว่า อาย แต่ด้านได้ อายก็โง่ ต่อไป !!
Date : 2010-02-07 20:23:13 By : powergurn
 


 

No. 7



โพสกระทู้ ( 24 )
บทความ ( 0 )



สถานะออฟไลน์


ทำได้แล้วค่ะ login ผ่านแล้ว ขอบคุณพี่ๆที่คอยแนะนำ และ ช่วยแก้ไขมากนะค่ะ ขอบคุรค่ะ
Date : 2010-02-07 20:52:35 By : powergurn
 


 

No. 8



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ขอ code Login .NET ที่ใช้กับ Windows Application ไปเช็คกับฐานข้อมูล (Ms Access 2000)
Date : 2011-08-20 20:59:20 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ฟอร์ม login vb.net เชื่อมกับฐานข้อมูล Sql Server 2008 (.NET +SQL Server 2008)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่