مرحبا..
حاب أاتصفح الريكورد من الداتابيس (السكول سيفير)
المشكلة أني أقدر أجيب الريكورد الاول ، بس البقية مو قادر.. ممكن تقدر تساعودني..
لأني أبغي أسوي Next,Previous Button
شكراً
Public Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
Dim sql As String
sql = "Select * from Customer"
Dim cmd As New SqlCommand
Dim da As SqlDataAdapter
conn.Open()
cmd = New SqlCommand(sql, conn)
Dim ds As New DataSet
da = New SqlDataAdapter(cmd)
da.Fill(ds, "Customer")
Dim row_number As Integer = -1
Dim dbmaxnumrows As Integer = ds.Tables("Customer").Rows.Count - 1
If row_number <> dbmaxnumrows Then
row_number = row_number + 1
TextBox1.Text = ds.Tables("Customer").Rows(row_number).Item("Cust_name")
TextBox2.Text = ds.Tables("Customer").Rows(row_number).Item("custid")
End If
End Sub