vb.net 连接数据库及rs.MoveFirst() rs.MoveNext() rs.MoveLast() 用法

登陆框代码：

 1 '登陆框
 2 Public Class 登陆
 3 
 4     Private Sub okbtn_Click(ByVal sender As System.Object, ByVal e As 
 5 
 6 System.EventArgs) Handles okbtn.Click
 7         If (Trim(usertext.Text) = "" Or Trim(passwordtext.Text) = "") 
 8 
 9 Then
10             MsgBox("用户名或密码不能为空", vbOKOnly, "提示") : Exit Sub
11         Else
12             Call connect()
13         End If
14     End Sub
15 
16     Public Sub connect()
17         Dim pass As Boolean
18         pass = False
19         Dim conn As New ADODB.Connection
20         Dim rs As New ADODB.Recordset
21         Dim constr As String
22         Dim i As Integer
23         Dim sql As String
24         constr = "driver={SQL Server};server=PC-201105311336
25 
26 \SQLEXPRESS;Uid=sa;Pwd=123456;Database=jiaxiaoai" '无源连接
27         'constr = "dsn=sqlserver;Uid=sa;Pwd=123456;Database=jiaxiaoai" 
28 
29 '有源连接
30         conn.Open(constr)
31         sql = "select * from sysname"
32         'rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, 
33 
34 ADODB.LockTypeEnum.adLockReadOnly)
35         rs.Open(sql, conn, 1, 1)
36         If conn.State = 1 Then
37             For i = 1 To rs.RecordCount
38                 If rs(0).Value = usertext.Text And rs(1).Value = 
39 
40 passwordtext.Text Then
41                     pass = True
42                 Else
43                     If rs.EOF = True Then
44                         Exit For
45                         rs.MoveNext()
46                     End If
47                 End If
48             Next
49             If pass = True Then
50                 Me.Hide()
51                 显示学生信息.Show()'重点
52             Else
53                 MsgBox("用户名或密码错误")
54             End If
55         Else
56             MsgBox("连接失败:state=" & conn.State)
57         End If
58 
59     End Sub
60 
61     Private Sub 登陆_Load(ByVal sender As Object, ByVal e As 
62 
63 System.EventArgs) Handles MyBase.Load
64         usertext.Text = ""
65         passwordtext.Text = ""
66     End Sub
67 
68     Private Sub cancelbtn_Click(ByVal sender As System.Object, ByVal e 
69 
70 As System.EventArgs) Handles cancelbtn.Click
71         Close()
72 
73     End Sub
74 
75 End Class

学生信息提示框：

 1 '学生信息显示框
 2 Public Class 显示学生信息
 3     Dim rs As New ADODB.Recordset '定义一个全局变量
 4 
 5     Public Sub connect()
 6         Dim conn As New ADODB.Connection
 7         Dim constr As String
 8         Dim sql As String
 9         constr = "driver={SQL Server};server=PC-201105311336
10 
11 \SQLEXPRESS;Uid=sa;Pwd=123456;Database=jiaxiaoai" '无源连接
12         conn.Open(constr)
13         sql = "select * from student"
14         rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, 
15 
16 ADODB.LockTypeEnum.adLockReadOnly)
17     End Sub
18 
19     Private Sub firstbtn_Click(ByVal sender As System.Object, ByVal e 
20 
21 As System.EventArgs) Handles firstbtn.Click
22         rs.MoveFirst()
23         xuehaotext.Text = rs(0).Value
24         nametext.Text = rs(1).Value
25         sextext.Text = Str(rs(2).Value)
26         scoretext.Text = Str(rs(3).Value)
27     End Sub
28 
29     Private Sub upbtn_Click(ByVal sender As System.Object, ByVal e As 
30 
31 System.EventArgs) Handles upbtn.Click
32         rs.MovePrevious()
33         If rs.BOF = True Then
34             rs.MoveFirst()
35         End If
36         xuehaotext.Text = rs(0).Value
37         nametext.Text = rs(1).Value
38         sextext.Text = Str(rs(2).Value)
39         scoretext.Text = Str(rs(3).Value)
40 
41     End Sub
42 
43     Private Sub downbtn_Click(ByVal sender As System.Object, ByVal e As 
44 
45 System.EventArgs) Handles downbtn.Click
46         rs.MoveNext()
47         If rs.EOF = True Then
48             rs.MoveLast()
49         End If
50         xuehaotext.Text = rs(0).Value
51         nametext.Text = rs(1).Value
52         sextext.Text = Str(rs(2).Value)
53         scoretext.Text = Str(rs(3).Value)
54 
55     End Sub
56 
57     Private Sub endbtn_Click(ByVal sender As System.Object, ByVal e As 
58 
59 System.EventArgs) Handles endbtn.Click
60         rs.MoveLast()
61         xuehaotext.Text = rs(0).Value
62         nametext.Text = rs(1).Value
63         sextext.Text = Str(rs(2).Value)
64         scoretext.Text = Str(rs(3).Value)
65 
66     End Sub
67 
68     Private Sub 显示学生信息_Load(ByVal sender As Object, ByVal e As 
69 
70 System.EventArgs) Handles MyBase.Load '窗口初始化函数（重点）
71         Call connect()
72         rs.MoveFirst()
73         xuehaotext.Text = rs(0).Value
74         nametext.Text = rs(1).Value
75         sextext.Text = Str(rs(2).Value)
76         scoretext.Text = Str(rs(3).Value)
77     End Sub
78 End Class

转载于:https://www.cnblogs.com/jiaxiaoai/archive/2011/08/01/2123891.html