أخ أحمد حاوت أني اكمل ما قدرت في تناقضات كثيرة بالأسماء أتمنى منك مراجعة الأستدعائات من القاعده
ومراجعة تعريفات المتغيرات
اقتباس:
| Dim constring As String = ConfigurationManager.ConnectionStrings("live-support").ConnectionString
Dim con As New Data.SqlClient.SqlConnection(constring)
Dim dsEmployeesSessions As New Data.DataSet
Dim SQLStr As String = "select ID,EmployeeID from LiveSupportEmployeesSessions where IsOnLine Like 'Y'"
Dim cmd As New Data.SqlClient.SqlCommand
Dim adap As New Data.SqlClient.SqlDataAdapter
Cmd.CommandText = SQLStr
cmd.Connection = Con
Con.Open()
Adap.SelectCommand = Cmd
Adap.Fill(dsEmployeesSessions)
Con.Close()
If dsEmployeesSessions.Tables(0).Rows.Count = 0 Then
lblerror.Text = "لايوجد موظفين دعم فني متصلين حاليا"
Exit Sub
End If |
بخصوص الكود الأول هذا هو معدل مع وضع تعريف الاتصال في ملف الكونفغ