End
End If
End SubEnd ClassEnd Namespace
vb.net做登录页面你测试一下吧 。
用vb.net做一个系统的登录界面，如何与access相连接？Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath()"汽车出租管理系统.mdb"Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(str)
Try
con.Open()
Dim b As String = "Select * FromTable1 Where 用户名='"UsernameTextBox.Text"' And 密码 = '"PasswordTextBox.Text"' "And 是否管理员 = '"True "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(b, con)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then'判断一条记录为真
Form1.Show()
Me.Hide()
Else
MessageBox.Show("输入信息有误！", "提示")
PasswordTextBox.Text = ""
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
关于vb.net做登录页面和用vb编写登录界面代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读

• 

  月经结束了性生活出血 月经结束后性生活出血的原因
• 

  国足和印度0-0战平,你觉得中印足球的差距在哪里？
• 

  精忠岳飞里面王贵怎么死的
• 

  不甚的意思 不甚是什么意思
• 

  爱普生l1300打印机清零软件-epson1300打印机请确认打印机已
• 

  怪物猎人崛起斩斧开荒怎么玩 怪物猎人崛起斩斧开刃
• 

  卫嬿婉凌云彻有孩子吗
• 

  [练习] 微信朋友圈点赞 -测试用例的编写
• 

  为什么越喝茶越感觉口干舌燥
• 

  浅谈UDI（美国UDI知多少「知识汇集」）
• 

  乒乓球桌标准尺寸推荐
• 

  吉林小程序商城代理平台，吉林小程序开发
• 

  苹果成功的关键因素，苹果成功的最大因素是不是因为有一个app应用商店
• 

  14+7管控措施是什么意思
• 

  面试时该如何给自己加分 面试时要学会克服紧张
• 

  椒盐虾蛄——补充蛋白质利心血
• 

  空调改装板故障05代码
• 

  线程堆栈大小的使用介绍
• 

  thinkphp搜索红色，php搜索框
• 

  佳能闪光灯使用技巧 佳能的闪光灯宝典

• 包含postgresql连接失败的词条
• 成都gis保温罩定做，成都gis保温罩定做厂家
• erp指物料管理系统对吗，erp物料管理系统的功能
• 没撬棍怎么拆电脑电池，没有撬片怎么拆电脑
• linux重启nfs命令 linux 启动nfs
• 手机什么软件可以做ppt，手机什么软件可以做四维图
• 团队竞技游戏手机画面设置，团队竞技怎么切换视角
• 游戏开发物语最强，游戏开发物语最强8人用不用转职
• python直线检测函数 python判断点在直线的哪一侧