04-12-14, 11:20 AM
السلام عليكم ورحمة الله وبركاته
كيف يمكن عرض السجل الثاني من الجدول في
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