[المستكاوي]

السلام عليكم ورحمة الله وبركاته 


كيف يمكن عرض السجل الثاني من الجدول في 
        TextBox4.Text = dt.Item("year1")
        TextBox5.Text = dt.Item("score")

مع الشكر


الكود المستخدم 

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SQL As String = "Data Source=USER-PC;Initial Catalog=Administration;Connect Timeout=30;User ID=max;Password=07111"

        Dim conn As New SqlConnection(SQL)

        Dim cmd As New SqlCommand

        conn.Open()

        cmd.Connection = conn

        cmd.CommandText = "select * from all_employees where emp ='" & TextBox6.Text & "'"

        cmd.CommandType = CommandType.Text

        Dim dt As SqlDataReader = cmd.ExecuteReader()

        dt.Read()

        TextBox1.Text = dt.Item("emp")

        TextBox2.Text = dt.Item("year1")

        TextBox3.Text = dt.Item("score")

        TextBox4.Text = dt.Item("year1")

        TextBox5.Text = dt.Item("score")

        TextBox6.Text = dt.Item("emp")

        conn.Dispose()

    End Sub

End Class