رمز Code:
Imports System.Data
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim sqlstr As String = "select * from apointment where car_number='" + TextBox1.Text + "'"
con.ConnectionString = str
cmd.CommandText = sqlstr
cmd.Connection = con
con.Open()
myReader = cmd.ExecuteReader()
While myReader.Read
Label5.Text = myReader.GetValue(myReader.GetOrdinal("car_number" ))
Label6.Text = myReader.GetValue(myReader.GetOrdinal("car_name"))
Label7.Text = myReader.GetValue(myReader.GetOrdinal("person_name "))
Label8.Text = myReader.GetValue(myReader.GetOrdinal("apointment_ date"))
End While
con.Close()

Catch ex As Exception
MsgBox("هذا الملف غير موجود")
MsgBox(ex.Message)
End Try
End Sub


Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

End Sub
End Class