ألسلام عليكم ورحمه الله وبركاته
عندي مشكلة في عملية البحث في قواعد البيانات فدائما يعطيني خطا في ان قواعد البيانات مغلقة في هذا الكود
Dim dr As SqlDataReader = cmd.ExecuteReader
وهذا الكود كامل ولاادري اين الخطا اتمنى مساعدتي
عندي مشكلة في عملية البحث في قواعد البيانات فدائما يعطيني خطا في ان قواعد البيانات مغلقة في هذا الكود
Dim dr As SqlDataReader = cmd.ExecuteReader
وهذا الكود كامل ولاادري اين الخطا اتمنى مساعدتي
كود :
Private Sub btnQueri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueri.Click
' فتح واغلاق الاتصال بقاعدة البيانات
If sqlcon.State = ConnectionState.Open Then
sqlcon.Close()
End If
sqlStatment = ""
SQL1 = ""
Dim firtCont As Boolean = True
If txtQuery.Text <> "" Then
If firtCont = False Then
sqlStatment = sqlStatment & "Emp.IDNumEmp like '%" & txtQuery.Text & "'%"
Else
firtCont = False
sqlStatment = sqlStatment & "Emp.IDNumEmp like '%" & txtQuery.Text & "'%"
End If
End If
Class1.sqlcon.Open()
SQL1 = "Select * From Emp Where " & sqlStatment
Dim cmd As New SqlCommand(SQL1)
cmd.Connection = sqlcon
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
txtid.Text = dr.Item("IDNumEmp")
txtname.Text = dr.Item("name")
Class1.sqlcon.Close()
Else
labelerror.BackColor = Color.Red
labelerror.ForeColor = Color.White
labelerror.Text = "الجسل غير موجود "
End If
End Sub