الأخ الثلج يقصد هذا السطر:
حيث أن التسمية مختلفة عما سبق تسميتهEMall_LiveSupportEmployeesSessions
وجاري إكمال تطبيق
الأخ الثلج يقصد هذا السطر:
حيث أن التسمية مختلفة عما سبق تسميتهEMall_LiveSupportEmployeesSessions
وجاري إكمال تطبيق
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
حدثت معي بعض الأخطاء..
أتمنى منك أخي أحمد إرفاق الكود متكاملاً..
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
تقريباً هذا هو الكود الكامل مع إصلاح مايلزم، لكن تبقت مشكلة واحدة معلمة باللون الأحمر، حيث لا يوجد متغير سابق يصفها..
كود:'تعريف متغير الاتصال Dim Con As SqlClient.SqlConnection = New SqlClient.SqlConnection 'تعريف نص الاتصال Dim ConStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True" 'اسناد نص الاتصال لمتغير الاتصال Con.ConnectionString = ConStr 'تعريف متغير نسند له جملة ال SQL Dim SQLStr As String = "" 'تعريف الكومند والذي بواسطته سنقوم بتنفيذ جملة السكويل على القاعدة في خطوة لاحقه Dim Cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand Dim Adap As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter 'جلب اسم موظف الدعم الفني المتواجد حالياً والذي سيتم تحويل هذا الزبون له 'جلب الموظفين الاون لاين Dim dsEmployeesSessions As New DataSet SQLStr = "select ID,EmployeeID from LiveSupportEmployeesSessions where IsOnLine Like 'Y'" Cmd.CommandText = SQLStr Cmd.Connection = Con Con.Open() Adap.SelectCommand = Cmd Adap.Fill(dsEmployeesSessions) Con.Close() If dsEmployeesSessions.Tables(0).Rows.Count = 0 Then ErrorLabel.Text = "لايوجد موظفين دعم فني متصلين حاليا" Exit Sub End If ViewState("EmployeesSessionsID") = dsEmployeesSessions.Tables(0).Rows(0)(0) ViewState("EmployeeIDV") = dsEmployeesSessions.Tables(0).Rows(0)(1) Dim IEm As Integer = Nothing For IEm = dsEmployeesSessions.Tables(0).Rows.Count - 1 To 0 Step -1 'جلب عدد المحادثات التي يجريها هذا الموظف الان Dim dsConvNumber As New DataSet SQLStr = "select LiveSupportConversationsSessions.ID,LiveGuestSupportConversationsSessions.ID from LiveSupportConversationsSessions,LiveGuestSupportConversationsSessions where LiveSupportConversationsSessions.IsActive Like 'Y' and LiveGuestSupportConversationsSessions.IsActive Like 'Y' and LiveSupportConversationsSessions.EmployeeID=" & dsEmployeesSessions.Tables(0).Rows(IEm)(0) & " and LiveGuestSupportConversationsSessions.EmployeeID=" & dsEmployeesSessions.Tables(0).Rows(IEm)(0) Cmd.CommandText = SQLStr Cmd.Connection = Con Con.Open() Adap.SelectCommand = Cmd Adap.Fill(dsConvNumber) Con.Close() ViewState("ConvNumber" & IEm) = dsConvNumber.Tables(0).Rows.Count ViewState("EmployeesSessionsID" & IEm) = dsEmployeesSessions.Tables(0).Rows(IEm)(0) ViewState("EmployeeIDV" & IEm) = dsEmployeesSessions.Tables(0).Rows(IEm)(1) If ViewState("ConvNumber" & IEm) < ViewState("ConvNumber" & IEm - 1) Then ViewState("EmployeesSessionsID") = dsEmployeesSessions.Tables(0).Rows(IEm)(0) ViewState("EmployeeIDV") = dsEmployeesSessions.Tables(0).Rows(IEm)(1) End If Next Dim EmployeesSessionsIDV As Long = ViewState("EmployeesSessionsID") Dim EmployeeIDV As Long = ViewState("EmployeeIDV") 'انشاء ملف المحادثه Dim rInt As Random = New Random Dim RandomInt As String = rInt.Next(1, 1000000000).ToString Dim FileName As String = RandomInt & "-" & Date.Now.ToString("mm-HH-dd-MM-yyyy") & ".htm" Dim dsPublicInfo As New DataSet 'انشاء ملف ووضع فيه معلومات البطاقات Dim FPath As String = dsPublicInfo.Tables(0).Rows(0)(1) & "livesupport" & "\" & FileName Dim FilseSa As IO.FileStream = IO.File.Create(FPath) FilseSa.Close() 'جلب رقم اخر محادثة تمت في جدول محادثات الزوار Dim dsLastConvInGTable As New DataSet SQLStr = "select MAX(ID) from LiveGuestSupportConversationsSessions" Cmd.CommandText = SQLStr Cmd.Connection = Con Con.Open() Adap.SelectCommand = Cmd Adap.Fill(dsLastConvInGTable) Con.Close() 'انشاء اسم عشوائي للمستخدم Dim GuestNameV As String = "زائر" & dsLastConvInGTable.Tables(0).Rows(0)(0) 'زرع معلومات الجلسة الجديدة في قاعدة البيانات SQLStr = "insert into LiveGuestSupportConversationsSessions(EmployeesSessionsID,EmployeeID,GuestName,StartSessionTim e,EndSessionTime,ConversationFileName,IsActive) Values(" & EmployeesSessionsIDV & "," & EmployeeIDV & ",'" + GuestNameV + "','" + Date.Now.ToString("hh:mm:ss - dd/MM/yyyy") + "','0','" + FileName + "','Y')" Cmd.CommandText = SQLStr Cmd.Connection = Con Con.Open() Cmd.ExecuteNonQuery() Con.Close() 'جلب المعلومات الموجوده في الملف Dim HtmlPageCodeV As String = Nothing Dim ExistCodeV As New IO.StreamReader(FPath) HtmlPageCodeV = ExistCodeV.ReadToEnd() ExistCodeV.Close() 'اضافة الكود على صفحة المحادثه HtmlPageCodeV &= "<html'>" HtmlPageCodeV &= "<head>" HtmlPageCodeV &= "<META http-equiv='Content-Type' content='text/html; charset=UTF-8'>" HtmlPageCodeV &= "</head>" HtmlPageCodeV &= "<body>" HtmlPageCodeV &= "<br>" & Date.Now.ToString("hh:mm:ss - dd/MM/yyyy") HtmlPageCodeV &= "</body></html>" 'زرع معلومات المحادقه في بداية الملف Dim ReadHtmlFileV As New IO.StreamWriter(FPath) ReadHtmlFileV.Write(HtmlPageCodeV) ReadHtmlFileV.Close() 'تحويل المستخدم لصفحة المحادثة مع رقم الجلسة Response.Redirect("live-conversation.aspx?id=" & SessionIdV)
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
صحيح في اختلاف بأسامي الـ column
isactive لازم تكون isonline
واسامي الجداول اللي ذكرها أخي aps2asp
غيرتها عندي لكن تخوفت بعض الشيء أن اقوم بتغيير مقصدك من الكود فأحببت أن أدعه لك لكي تقوم بوضع نقاطك ولماستك عليه
وشكراً أستاذي احمد
__________________
Eng.Fedail
Computer and Electronics Engineer
والله الكود يحتاج مراجعة، ولأنا لم نفهم آلية عمل البرنامج، فمن الصعب وضع حلول من رؤوسنا
أتمنى أخي أحمد أن تضع لنا الكود كاملاً، فنحن اجتهدنا ولكن لكونا مازلنا في البداية نحتاج توضيح أكثر وأن يكون الكود ملائم للشرح وتحملنا
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
حياكم الله اخي الثلج واخي asp2asp
الكود موجود عندي في مشروع اتوقع اني فعلا ممكن اكون سميت اشياء في قاعدة البيانات وفي الكود كانت التسميه تختلف يمكن يكون حدث هذا
بخصوص التسميات ياليت تعدلوها انتم يعني المسالة مافيها اجتهاد التسمية الغير موجوده في قاعدة البيانات معناتها انا مسميها غلط بالكود
اوك اذا كان صعب عليكم انكم تتابعوا المشروع بهذه الطريقة رايح اعمله وانزله بالكود كامل مع قاعدة البيانات وانتم تدرسوها واذا في اي ملاحظة نتكلم عنها ان شاء الله
فقط اعطوني يومين اجهزه لان عندي الان في مشروع كامل وهو جزء من المشروع رايح اعمله كمشروع مستقل ان شاء الله
__________________
@_@
في الانتظار أخي أحمد.. وجزاك الله خيرا ..
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
أخ أحمد عندي كم سؤل لاهنت
وش خزنا هنا بالملف غير التاريخ لم نخزن اي محادثه والتاريخ بالأصل مخزن بأسم الملفDim HtmlPageCodeV As String = Nothing
Dim ExistCodeV As New IO.StreamReader(FPath)
HtmlPageCodeV = ExistCodeV.ReadToEnd()
ExistCodeV.Close()
'اضافة الكود على صفحة المحادثه
HtmlPageCodeV &= "<html'>"
HtmlPageCodeV &= "<head>"
HtmlPageCodeV &= "<META http-equiv='Content-Type' content='text/html; charset=UTF-8'>"
HtmlPageCodeV &= "</head>"
HtmlPageCodeV &= "<body>"
HtmlPageCodeV &= "<br>" & Date.Now.ToString("hh:mm:ss - dd/MM/yyyy")
HtmlPageCodeV &= "</body></html>"
'زرع معلومات المحادقه في بداية الملف
Dim ReadHtmlFileV As New IO.StreamWriter(FPath)
ReadHtmlFileV.Write(HtmlPageCodeV)
ReadHtmlFileV.Close()
ماني شايف تخزين اسم عشوائي كل اللي اشوفه رقم اعلى جلسه مع زائر'انشاء اسم عشوائي للمستخدم
Dim GuestNameV As String = "زائر" & dsLastConvInGTable.Tables(0).Rows(0)(0)
بحاول اتابع الكود واخبرك بالنتائج لكن ماني قادر أكمل لأن الجداول فارغه
__________________
Eng.Fedail
Computer and Electronics Engineer
هلا اخوي الثلج
ماخزنا سوا التاريخ فقط وهو الي بيكون في بداية ملف المحادثة وبعده يكون المحادثات التي تجري وهذه المحادثات رح تتخزن في الصفحة الثانيه اما الان بيكون محتوى الملف فقط التاريخوش خزنا هنا بالملف غير التاريخ لم نخزن اي محادثه والتاريخ بالأصل مخزن بأسم الملف
صح موجود التاريخ باسم الملف لكن هذا في داخل الملف نفسه لكي يظهر للمستخدم والموظف تاريخ ووقت بداية المحادثة بينهم
صح اخوي كلمة اسم عشوائي كنت اعني بها كلمة (زائر) بعدها رقم الجلسةماني شايف تخزين اسم عشوائي كل اللي اشوفه رقم اعلى جلسه مع زائر
وليس رقم عشوائي او نص عشوائي كما فعلنا باسم الملف
اذا في شي مو مفهوم بلغني اخوي
__________________
@_@
تسلم أخوي أحمد بس كيف نقدر نجرب عمل البرنامج اذا لم يكن هنالك موظف دعم داخل ولم يكن هنالك جلسات هل بأمكانك أكمال المشروع وصفحة دخول الدعم لكي نستطيع اكمل المشروع
__________________
Eng.Fedail
Computer and Electronics Engineer
الأخ أحمد وعدني أن يتم خلال هذين اليومين طرح المشروع كاملاً لفهم آلية عمله، ثم يشرح أجزاء البرنامج...
تحياتي للجميع، وبانتظار الأستاذ أحمد ..
__________________
بداية للمشاريع التجارية
ASP.NET,ASP 3.0
المدونة الشخصية : asp2asp.com
عدنا والعود أحمد...
نعم اخي سوف نكمل ان شاء الله ومثل ما قال اخي asp2asp سوف انزل البرنامج كامل مع الشرح ان شاء الله تعالى بس اجهزه لكم وانزله بعدين نكمل شرح باذن الله تعالىالمشاركة الأصلية كتبت بواسطة الثلج
__________________
@_@