设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1729|回复: 2
打印 上一主题 下一主题

VB.Net自学之路之窗体登录主要代码分享

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2022-8-1 13:49:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
vb.net登录主要代码分享Dim SqlConn As SqlConnection, SqlCMD As SqlCommand, SqlDR As SqlDataReader
Dim ConnectionString As String = $"Server={Server};Database={DataBase};UID={UID}WD={PWD}"
Try
    Dim SqlStr As String = $"select * from users where UID = '{strUID}' and PWD = '{strPWD}'"
    SqlConn = New SqlConnection(ConnectionString)
    SqlConn.Open()
    SqlCMD = New SqlCommand(SqlStr, SqlConn)
    SqlDR = SqlCMD.ExecuteReader
    If SqlDR.HasRows Then
        SqlDR.Read()
        'UID = SqlDR("UID").ToString.Trim
        'do something……
    Else
        MsgBox("用户名或密码错误,请重新输入!")
        'do something……
    End If
    SqlDR.Close()
    SqlConn.Close()
Catch ex As Exception
    MsgBox(ex.Message)
Finally
    releaseObject(SqlCMD)
    releaseObject(SqlConn)
End Try



分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2022-8-4 12:49:59 来自手机 | 只看该作者
不错
回复

使用道具 举报

3#
发表于 2022-8-13 16:00:18 | 只看该作者
可以先看看todaynew的一些帖子,少走一些弯路。@tmtony 话说,老汉好像很久没来论坛了,在鼓捣啥了呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:39 , Processed in 0.076036 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表