登录验证的多种方式举例，希望可以贴代码！

<form></form>//通过form表单提交的验证称为表单验证。windows验证就看http://www.cnblogs.com/fish-li/archive/2012/05/07/2486840.html#_label0。
角色验证就比如你在操作某个文件时，提示你没有权限。证书验证比如网银中大量使用到的，用过就明白。

♂张耕明 发表于 2012-10-23 14:13
这不是我要的答案，你理解错了！

那你再给我说具体点

丁艳姣 发表于 2012-10-23 14:08
这个是不是你想要的答案

这不是我要的答案，你理解错了！

这个是不是你想要的答案


数据库SQL验证方式

第一: 导入空间imports System.Data.SqlCilent
第二: 定义封装
dim con as SqlConnection
dim com as SqlCommand
dim dr  as SqlDataReader
第三: 定义连接方式与加载数据库
dim str as string="Integrated Security=false;uid=sa;database=VBTest;server=10.4.7.20"
第四: 实现连接
con = New SqlConnection(str)
        com = New SqlCommand("select * from 人员表", con)
        con.Open()
        dr = com.ExecuteReader
        While dr.Read
            MsgBox(dr.GetString(0))
        End While
        dr.Close()
        con.Close()


SQL Server2000 数据库本地验证方式

第一: 导入空间imports System.Data.SqlCilent
第二: 定义封装
dim con as SqlConnection
dim com as SqlCommand
dim dr  as SqlDataReader
第三: 定义连接方式与加载数据库
        Dim str As String = "database=VBTest;server=10.4.7.20;Integrated Security=true"
第四: 实现连接
con = New SqlConnection(str)
        com = New SqlCommand("select * from 人员表", con)
        con.Open()
        dr = com.ExecuteReader
        While dr.Read() '读数据
            MsgBox(dr(0))
        End While
        dr.Close()
        con.Close()



Access 数据库带密码验证方式

第一: 导入空间imports System.Data.OleDb
第二: 定义封装
   Dim acon As OleDbConnection
      Dim acom As OleDbCommand
     Dim adr As OleDbDataReader
第三: 定义连接方式与加载数据库
   Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:VBTest.mdb; Jet OLEDB:Database Password=123"
第四: 实现连接
acon = New OleDbConnection(str)
        acom = New OleDbCommand("select * from 人员表", acon)
        Try
            acon.Open()
            MsgBox("Ok")
            adr = acom.ExecuteReader
            While adr.Read
                MsgBox(adr(0))
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        adr.Close()
        acon.Close()

Access 数据库不带密码验证方式

第一: 导入空间imports System.Data.OleDb
第二: 定义封装
   Dim acon As OleDbConnection
      Dim acom As OleDbCommand
     Dim adr As OleDbDataReader
第三: 定义连接方式与加载数据库
   Dim str As String = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:VBTest1.mdb"
第四: 实现连接
acon = New OleDbConnection(str)
        acom = New OleDbCommand("select * from 人员表", acon)
        Try
            acon.Open()
            MsgBox("Ok")
            adr = acom.ExecuteReader
            While adr.Read
                MsgBox(adr(0))
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        adr.Close()
        acon.Close()

那就不懂了。抱歉

chens2865 发表于 2012-10-23 10:07
这个无非就是从数据库中查数据嘛！因为代码量很大， 这里就不贴出来了。这个很简单滴。详细请看下杨中科老 ...

你肯定是没看清楚，我就例举一下这几种验证吧。分别是：表单验证、windows验证、角色验证、证书验证

这个无非就是从数据库中查数据嘛！因为代码量很大， 这里就不贴出来了。这个很简单滴。详细请看下杨中科老师的视频关于ADO.NET部分你自然就明白了.