• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ssayed111

اعضاء جدد
  • عدد المشاركات

    31
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة ssayed111

  1. السلام عليكم ورحمة الله وبركاته  لدي جدول بيانات الفواتير بقاعدة بيانات اوراكل وبنفس الشبكة قاعدة بيانات sql server  وتطبيق بvb.net احتاج نقل بيانات من الجدول الموجود بأوراكل بحيث  انقل بيانات كل فاتورة جديدة   دون تكرار  فما افضل وسيلة لذلك دون تكرار مع العلم أني  صلاحيتي على اوراكل الاطلاع فقط على فيو قاعدة الجدول المذكور وليس لدي امكانية لأكثر من ذلك كما ان الفيو هذا ليس له مفتاح اساسي وانما  حيث انه به فواتير اكثر من فرع (رقم الفرع+رقم الفاتورة)    
  2. صفحات razor على iis10

    لدي صفحه من نوع razor تعمل على الفيجوال استوديو 2015 بشكل جيد المشكلة تظهر عند العمل على iis  تظهر هذه الرساله كبدايه لرسالة الخطأ ارجو حل للمشكلة HTTP Error 404.3 - Not Found The page you are requesting cannot be served because of the extension configuration. If the page is a script, add a handler. If the file should be downloaded, add a MIME map.
  3. صفحات razor على iis10

    لدي صفحه من نوع razor تعمل على الفيجوال استوديو 2015 بشكل جيد المشكلة تظهر عند العمل على iis  تظهر هذه الرساله كبدايه لرسالة الخطأ ارجو حل للمشكلة HTTP Error 404.3 - Not Found The page you are requesting cannot be served because of the extension configuration. If the page is a script, add a handler. If the file should be downloaded, add a MIME map.
  4. السلام عليكم ورحمة الله وبركاته  لدي aaray نوع integer  If fill_ds("SELECT [dp_id] FROM [user_dp_id] where id =1", dsu, con4) Then Dim arrint(dsu.Tables(0).Rows.Count) As Integer Dim iCnt As Integer For iCnt = 0 To dsu.Tables(0).Rows.Count - 1 arrint(iCnt) = dsu.Tables(0).Rows(iCnt)("dp_id") Next Dim s = "SELECT [F2],name,id FROM [tb1] where id in (arrint() ) and gdate='" & Now.ToString("yyyy/MM/dd") & "' order by id" لدي مشكلة في جملة الاستعلام SELECT [F2],name,id FROM [tb1] where id in (arrint() ) and gdate='" & Now.ToString("yyyy/MM/dd") & "' order by id عند  where id in (arrint() )  فما هي الطريقة السليمة
  5. https://codecanyon.net/item/socialkit-the-ultimate-social-networking-platform/8493571 ارجو من لديه خبرة في تجربة هذا الاسكربت افادتي هل يوجد به اللغة العربية هل استطيع التعديل عليه مثلا ( تفعيل حسابات المستخدمين ببريد المؤسسة فقط ) هل يوجد افضل منه
  6. الاسكربت يعمل على جهازي بشكل جيد لكن عند رفعه على موقع godaddy يظهر خطأ   500 Internal Server Error وعند حذفي ملف htaccess من الهوست جودادي تفتح صفحة تسجيل الدخول ولكن لا يمكنني دخول صفحة الهوم تظهر رساله انها غير موجوده هذا هو رابط الملف http://www.mediafire.com/file/jvu2j5nvvanlj2z/.htaccess.rar ارجو من سبق له التعامل مع مث هذه المشكلة افادتنا   
  7.   السلام عليكم ورحمة الله وبركاتهارجو من الزملاء الكرام توضيح فكرة اضافة صفحة عند استخدام اداة PrintDocumentوكيفية تحديد صفحه معينه وتوجيه جزء من النص لها مثلا في حالة طباعة داتا جريد على اكثر من صفحهاحتاج مثلا طباعة عنوان في الصفحه الاولى وطباعة جمله للصفحه الثانيه او الأخيره مثلابصفه عامه افهم كيف اتعامل مع صفحه واحده من حيث الكتابه في موقع معين لكن عندما احتاج أكثر من صفحهفإنني لا افهم آليه عملها او التعامل معها برمجيالذا ارجو توضيح فكرة عملها بصفه عامة (من حيث طريقة وموقع اضافة e.HasMorePages = True )وخاصةمثلا عند الحاجه في التعامل مع مثل هذا الكود ( لا يهمني هذا الكود تحديدا بقدر احتياجي لفهم الفكرة) اذا احتاج اكثر من صفحه    Dim CellTopPos As Integer = PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Top For Row = 0 To DataGridView1.RowCount - 1 Dim CellLeftPos As Integer = PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Left For Cell = 0 To DataGridView1.ColumnCount - 1 Dim CellValue As String = DataGridView1.Rows(Row).Cells(Cell).Value.ToString() Dim CellWidth = DataGridView1.Rows(Row).Cells(Cell).Size.Width + 50 Dim CellHeight = DataGridView1.Rows(Row).Cells(Cell).Size.Height Dim Brush As New SolidBrush(Color.Black) e.Graphics.DrawString(CellValue, New Font("Century Gothic", 10), Brush, CellLeftPos, CellTopPos) e.Graphics.DrawRectangle(Pens.Black, CellLeftPos, CellTopPos, CellWidth, CellHeight) CellLeftPos += CellWidth Next CellTopPos += DataGridView1.Rows(Row).Cells(0).Size.Height  
  8. السلام عليكم ورحمة الله وبركاته الاعضاء الكرام كيف استطيع ان اسجل الصوت من الميك واشغل الصوت بنفس الوقت بحيث ما اتحدث به في الميك يخرج من سماعة الكمبيوتر وقت التحدث  لا احتاج لحفظ الصوت على الجهاز على هيئة ملف ويف او خلاقه اتمنى منكم المساعدة في ذلك من خلالvb.net
  9. السلام عليكم ورحمة الله وبركاته جهاز العمل لدي به SQL Server2005        بينما جهازي الخاص به      SQL Server2012         وكثيرا ما تطرني الظروف لنقل قاعدة البيانات لجهازي لاستكمال بعض الاعمال تواجهني رسالة خطأ عند عمل attach فما الحل    
  10. السلام عليكم ورحمة الله وبركاته في المثال المرفق كود لطباعة الداتا جريد ارجو المساعدة على تطويره بحيث يطبع لون خلفية الصف او الخلية  print_dg.rar
  11. السلام عليكم ورحمة الله وبركاته لدي مشروع فيجوال 2013 واريد ان اصنع ملف تنصيب شامل النت فرام وورك وباقي ملفات البرنامج . في السابق كنت اعمل على فيجوال 2008 وكنت استطيع ان اصنع ملف تنصيب به شامل النت فرام وورك والكريستال ريبورت وخلافه اما في الاصدار الجديد لا يمكنني ذلك
  12. السلام عليكم ورحمة الله وبركاته هل استطيع عمل محادثة فديوا او صوتيه بحيث ارسل ملف الصوت الى قاعدة البيانات ومنها يتسلمه الصرف الآخر وذلك بدون تقطيع خاصه على الشبكه الداخليه  
  13. السلام عليكم ورحمة الله وبركاته ارجوا من الاعضاء الكرام  شرح طريقة استخدام الاداة فى تنفيذ هذا الكود con.Close()   con.Open()   Dim dataset12 As New DataSet   Dim dataadap12 As New OleDbDataAdapter("select * from tab_duc where ID_main=" & ID_MAIN.Text & " ", con)         dataadap12.Fill(dataset12)   If dataset12.Tables(0).Rows.Count > 0 Then   For i = 0 To dataset12.Tables(0).Rows.Count - 1     DataGridView1.Rows.Add()   DataGridView1.Rows(i).Cells(0).Value = dataset12.Tables(0).Rows(i).Item("id")   DataGridView1.Rows(i).Cells(1).Value = dataset12.Tables(0).Rows(i).Item("k_duc") next end if
  14. السلام عليكم ::: اية رأيك تستخدم الداتا جريد وتعمل العمود الاول الاسماء والثاني من نوع زر وبذلك تتمكن من وضع الشرط حسب الاسم ان كانت الفكرة تناسبك انا مستعد لمساعدتك اما طلبك استخدم الخاصية text بمغنى Button1.text="محمد"
  15. ابحث عن داله استطيع بها معرفة ايام الشهر الهجري من تقويم ميكروسفت لاتمكن من عمل دالة لطرح التاريخ الهجري
  16. تعجز  الكلمات على شكرك فأـنت حللت لى مشكلة كبيرة كل ما استطيع قوله جزاك الله عني كل خير في الدنيا والآخرة  وبارك لك في علمك
  17.  السلام عليكم ورخمة الله وبركاته__ __ لدي سيرفر شبكة محليه به جدول فواتير هل من الممكت ان اجعل به حق تاريخ يأخذ من السيفر التاريخ الذي تم اضافة السجل او الفاتورة أقصد ان يقوم السيكوال سيرفر نفسه باضافة الحقل اتوماتيك وفت اضافة السجل كما في الترقيم التلقائي اما عن طريق الفجوال فلا استطيع من امنع المستخدم من التلاعب بتاريخ الجهاز (جهاز العميل) ومنع المستخدم من تغيير التاريخ غير عمليه دائما
  18. كيف يمكنني ان اعبئ عمود في الداتا جريد بجميع الصور في مجلد معين والعمود الآخر اسم الصورة ان امكن ولكم جزيل الشكر
  19. كيف استخدم هذا الكود

    ممكن لو تكرمت تعرفني ايه شكل الكود في حالة where   وازاي اقدر استدعيه
  20. Public Sub FILLCOMBOBOXITEMS1(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object)         On Error Resume Next         Dim I As Integer         Dim DS As New DataSet         Dim str As String = "SELECT DISTINCT " & FIELD & " FROM " & TABLE         Dim ADP As New SqlDataAdapter(str, con)         DS.Clear()         ADP.Fill(DS, "TBL")         COMBO.Items.Clear()         For I = 0 To DS.Tables("TBL").Rows.Count - 1             COMBO.Items.Add(DS.Tables("TBL").Rows(I).Item(0))         Next I         ADP.Dispose()     End Sub   الاعضاء الكرام لدي هذا الكود في الموديول ارجو منكم تفضلا توضيح كيف استخدمه في فورم لتعبئة combobox1 مثلا ولكم جزيل الشكر cod.txt
  21. كيف استخدم هذا الكود

    بارك الله فيك وجعله في ميزان حسناتك
  22. احاول استخدام هذا الكود في تفعيل الاتصال بسطح المكتب Microsoft.Win32.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Remote Assistance", "fAllowToGetHelp", "1") Microsoft.Win32.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server", "fDenyTSConnections", "0") المشكة عند استخدامه تتغير القيم في الريجستري فعلا دوت تفعيل سطح المكتب البعيد والغريب عند تعديل نفس القيم ولكن يدويا تفعل خاصية سطح المكتب البعيد انا في حاجة ماسة لاستخدام التغيير برمجيا ارجو المساعدة مع العلم اني جربت تشغيل المشروع كمسؤل <requestedExecutionLevel level="highestAvailable" uiAccess="false" /> ولم تصلح
  23. ارجو من الاعضاء الكرام طريقة  لتركب جهازين سيرف على شبكة واحدة لدي جهاز بهه اس كيو ال 2005  وتتصل به ثلاث اجهزة اخرى  كعميل في الشبكة واريد ان اركب معه جهاز آخر بيحيث لو تعطل الأول ولم اتمكن أخذ منه نسخة احتياطية  كتلف الهارد يكون الجهاز الأخر يحمل قاعدة البيانات  وتكون البيانات عليه محدثة (ملحوظة .....السيرفر يحمل قاعدة بيانات لبرنامج مبيعات من تصميمي  لذلك اريد ان يكون الجهاز ين  محدثين بنفس البيانات  تحسبا لتعطل احدهما)  بحثت بالانترنت  واظن ان طلبي هو عمل استنساخ ولكن عند البحث عن طريقته تشتت في انواعه  وشروحات كثيرة ولم  احصل على طلبي ارجوا مساعدتي
  24. اخواني اريد كود يتحكم في النص المدخل في خلية معينه الداتا جريد مثل هذا الكود في التكست بوكس الذي يحدد النص بأرقام ولكن اريده في الداتا جريد ومع توضيح الحدث Select Case e.KeyChar Case "0" To "9", ControlChars.Back e.Handled = False Case Else e.Handled = True End Select
  25. بسم الله الرحمن الرحيماخواني كنت قد صممت برنامج يعمل على اس كيو ال من فترة ويعمل على شبكة محليه وكان يعمل بشكل جيد ولكن المشكلة انه : عند ادخال الموقع ضمن شبكة بروكسي سيرفر طبعا لغينا السويتشات العادية بسوتشاتcisco جديده واصبحنا نضع بروكسي سيرفر في المتصفح ورقم بورت كي نتمكن من فتح النت وعندما ندخل النت لابد من كتابة اسم مستخدم وكلمة مرور لكل موظف لتتصفح المشكلة انه في الوضع الجديد كل الاجهزة التي كانت تعمل على الرنامج اصبحت لا تعمل ما هو المطلوب تعديله لكي يمكن الاتصال في الشبكة الجديدة مع العلم ان جملة الاتصال القديمة هي Dim str As String = ("Data Source =employ-dell;Initial Catalog=emplo;User ID=sa;Password=123456") اجوا منكم التوضيح ولكم جزيل الشكر