• الإعلانات

    • فيصل الحربي

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

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

mhd_alkafaf

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

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

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

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

  1. عداد تنازلى بالداتا جريد فيو

    السلام عليكم ورحمة الله حل المس\الة بسيط اليك الكود التالي لحل المشكلة "Update table1 SET days = days - 1" وهذا مقطع البرنامج الذي تحتاج للتعديل والعرض Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim QueryStr = "Update table1 SET days = days - 1"        Conn.Open()        Dim DataAdapter1 As New OleDbDataAdapter(QueryStr, Conn)        Dim DataSet1 As New DataSet        DataAdapter1.Fill(DataSet1, "Table1")        Conn.Close()        Showtable()    End Sub    Private Sub Showtable()        Conn.Open()        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)        Dim DataSet1 As New DataSet        DataAdapter1.Fill(DataSet1, "Table1")        Conn.Close()        DataGridView1.DataSource = DataSet1.Tables("Table1")    End Sub
  2. انتقل من ++C إلى جافا بسلاسة

    بارك الله بك اخ مصطفى موضوع مفيد
  3. مشكور اخي بارك الله فيكم مشاركة مفيدة
  4. مشكور اخي على الكتاب
  5. السلام عليكم روحمة الله الاخ العزيز الموضوع سهل, صراحة انا لم اكن اعرف الاجابة قبل سؤالك) الحل: 1- عندفتح الملف للكتابة يوجد باراميتر اختياري, اذا كان true, تصبح العملية اضافة للملف النصي, واذا كان false تكون العملية كتابة فوق ما موجود, والقيمة الافتراضية هي false. 2- لماذا تستعمل حلقة تكرار لتكتب حرف حرف تستطيع كتابة محتويات صندوق النصوص دفعة واحدة وكما في الكود التالي: 'Imports System.Data.OleDb Public Class Form1 ' Dim CON As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; data source=|datadirectory|\savewordapp.mdb") Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim reault = MsgBox("Are you sure you want to save this text?", MsgBoxStyle.YesNo, "Save") If reault = MsgBoxResult.Yes Then 'Dim CMD As OleDbCommand 'CMD = New OleDbCommand("INSERT INTO words ( NewWord ) VALUES ('" & TextBox1.Text & "')", CON) 'CON.Open() 'CMD.ExecuteNonQuery() 'CON.Close() TextBox1.Focus() Dim myWriter As New System.IO.StreamWriter("savewordapp.txt", True) myWriter.WriteLine(TextBox1.Text) 'For Each item As String In Me.TextBox1.Text 'myWriter.WriteLine(item) 'Next myWriter.Flush() myWriter.Close() myWriter.Dispose() Else Exit Sub End If End Sub End Class ارجو ان تكون اجابتي مفيدة لك
  6. كتاب لتعليم SQL 2008

    بارك الله بكم على الجهود الممتازة
  7. شكرا جزيلا ولكني لا اعرف اين انسخ هذا الكود Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("MyExecutable", "C:\MyExecutable.exe") regKey.Close() [code] السلام عليكم يمكن وضع هذا الكود في بدأ التحميل [code] Private Sub Form_Load() set WSHShell = CreateObject("WScript.Shell") WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".EXE", App.Path & "\" & App.EXEName & ".EXE" End Sub
  8. السلام عليكم اخي العزيز بارك الله بك الموضوع بسيط, حيث يمكنك كتابة برنامج بسيط كما قال الاخ طارق يحلل النص فاذا اتت الكلمة المادة (1) مثلا يضعها في متغير رقم المادة وكل النص الذي بعدها يوضع في متغير اخر وهو نص المادة الى ان تاتي كلمة المادة (2) مثلا وبعدها تستخدم امر اضافة قيد الى قاعدة البيانات. وهكذا تاخذ كل النص الى ان تصل الى نهاية النص. المطلوب منك الان كتابة ذلك البرنامج ونحن بالخدمة لاي استفسار
  9. الاخ العزيز عماد مشكو الشكر الجزيل على المساعدة ساجرب الذي تفضلت به مع جزيل الشكر
  10. السلام عليكم ايها الاحبة ورحمة الله قمت بربط قاعدة بيانات SQL Server باستخدام الكود عن طريق VB10, وقد عملت والحمد لله. لكن عند محاولتي اضافة سجل جديد للبيانات لم اتمكن من معرفة كيفية خزن السجل الجديد.
  11. VB.NET & DataBases

    مشكور يا مبدع على المجهود الكبير لكن هل من الممكن حفظ هذا الفديو ؟؟
  12. VB.NET & DataBases

    مشكور يا مبدع على المجهود الكبير لكن هل من الممكن حفظ هذا الفديو ؟؟
  13. مشكور اخي احمد الشكر الجزيل على المساهمة المفيدة, فقد قمت بتجربتها وافادتني كثيرا لكنك لم تذكر شيئ عن انشاء قاعدة البيانات باستخدام SLQ قمت بعملها بصعوبة قليلة لاني لم اقم بها من قبل على العموم موضوع جيد بارك الله بك اخي العزيز اتمنى منك الاستمرار في المشوار
  14. مشكور احمد على المجهود تم التحميل
  15. كتاب VB.NET 2010

    شكرا على الكتاب تم التحميل
  16. إنشاء قاعدة بيانات sql server برمجيا بواسطة vb.net

    موضوع مفيد تسلم اخي بارك الله بك ممكن رقم اصدار الفجوال الذي تتكلم عنه؟؟
  17. ارسال اشارة عن طريق Serial Port

    السلام عليكم موضوع جميل وقد اعجبني جدا وفقكم الله لكل خير
  18. السلام عليكم اخ علاوي اين المشكلة التي تواجهك؟؟؟ ممكن التوضيح
  19. السلام عليكم اخ نبيل عدلت البرنامح الاول بواسطة فجوال بيسك 2005 ارجو ان ينال رضاك بالمناسبة توجد طرق كثيرة لهذا البرنامج وهذه واحدة منها WindowsApplication1.rar
  20. السلام عليكم اخواني في المنتدى اريد ان اعرف كيفية تفعيل وايقاف عمل منافذ USB من خلال كتابة كود بلغة فجوال بيسك 6.
  21. السلام عليكم اخواني في المنتدى قمت بتجربة في تصميم ويب سيرفر بسيط واردت تشغيلة من حاسبة اخرى مرتبطة عن طريق الشيكة المحلية, لكني لم استطع. فارجو المساعدة في ارشادي الى عمل ذلك, علما اني استخدمت لغة ASP.Net VB2005.net ولكم جزيل الشكر والتقدير
  22. تشغيل وب سيرفر عن طريق الشبكة المحلية

    السلام عليكم ورحمة الله الاخ المبدع حسام الشامي بارك الله بك ووفقك لكل ما فيه الخير والصلاح وسدد الله خطواتك فقد حللت مشكلتي فجزاك الله خير جزاء المحسنين فقد اكتشف الاخ حسام انه تنصيب IIS على حاسبتي غير كامل. حيث كان ينقصه ASP.Net والان الموقع يعمل والحمد لله بفضل من الله ومساعدة الاخ حسام
  23. تشغيل وب سيرفر عن طريق الشبكة المحلية

    هو هذا يا اخ حسام بالمناسبة يبدو انك اونلاين الان هل نستطيع التكلم عبر الجات؟
  24. تشغيل وب سيرفر عن طريق الشبكة المحلية

    السلام عليكم اخي اليك الكود الذي يظهر <%@ page language="VB" autoeventwireup="false" inherits="Default2, App_Web_ck8bu3b8" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" > <head runat="server"> <title>E_Learning</title> </head> <body dir="ltr" bgcolor="#ccff9b"> <form id="form1" runat="server"> <div estyle="text-align: right" style="text-align: left" dir="ltr"> <img id="_x0000_i1025" dir="ltr" align="middle" height="171" src="Images\Title.jpg" width="1320" /> <hr dir="ltr" style="width: 1317px" />                                                                              <asp:imagemap id="Menu" imageurl="~/Images/Mainmenu.jpg" width="390px" Height="35" hotspotmode="Navigate" alternatetext="Menu choices" runat="Server" > <asp:RectangleHotSpot bottom="35" right="87" NavigateUrl ="~/Default.aspx" alternatetext="Main Menu"> </asp:RectangleHotSpot> <asp:RectangleHotSpot left="88" bottom="35" right="260" NavigateUrl ="~/Intro.aspx" alternatetext="Data Security"> </asp:RectangleHotSpot> <asp:RectangleHotSpot left="261" bottom="35" right="390" NavigateUrl ="~/AboutUs.aspx" alternatetext="About us"> </asp:RectangleHotSpot> </asp:imagemap>
  25. تشغيل وب سيرفر عن طريق الشبكة المحلية

    السلام عليكم اخواني ورحمة الله مشكور اخي حسام على المساعدة وتستمر معاناتي الى الان لم اعرف السبب وراء عدم اشتغال الموقع بصورة صحيحة, على الرغم من اني جربت كل الحلول المطروحة الى الان, وعلى الرغم من ان الموقع قد عمل بشكل طبيعي في حاسبات اخرى. فهل يوجد سبب في المتصفح مثلاً, او SQL Server جزاكم الله خير جزاء المحسنين