vb 实现sqldatareader的应用代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 vb 实现sqldatareader的应用

作者:Dezai.CN / 发布于2011/8/7/ 1075

Public Sub connect()
 Dim pass As Boolean
 pass = False
 Dim conn As New SqlConnection
 Dim rs As New SqlCommand
 Dim dataread As SqlDataReader
 Dim constr As String
 'Dim i As Integer
 Dim sql As String
 constr = "server=PC-201105311336\SQLEXPRESS;Uid=sa;Pwd=123456;Database=jiaxiaoai" '无源连接
 conn = New SqlConnection(constr)
 conn.Open()
 sql = "select * from sysname"
 rs = New SqlCommand(sql, conn)
 dataread = rs.ExecuteReader()
 While (dataread.Read)
 If dataread(0).ToString = usertext.Text And dataread(1).ToString = passwordtext.Text Then
 pass = True
 End If
 End While
 If pass = True Then
 Me.Hide()
 显示学生信息.Show()
 Else
 MsgBox("用户名或密码错误")
 End If
 End Sub

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　sqldatareader　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)