• الإعلانات

    • فيصل الحربي

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

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

mhd_alkafaf

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

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

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

السمعه بالموقع

7 عادي

عن mhd_alkafaf

  • الرتبة
    عضو
  • تاريخ الميلاد 05/07/1979

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : العراق
  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

    شكرا على الكتاب تم التحميل