mhd_alkafaf

السلام عليكم ورحمة الله حل المس\الة بسيط اليك الكود التالي لحل المشكلة "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

بارك الله بك اخ مصطفى موضوع مفيد

مشكور اخي بارك الله فيكم مشاركة مفيدة

مشكور اخي على الكتاب

السلام عليكم روحمة الله الاخ العزيز الموضوع سهل, صراحة انا لم اكن اعرف الاجابة قبل سؤالك) الحل: 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 ارجو ان تكون اجابتي مفيدة لك

بارك الله بكم على الجهود الممتازة

شكرا جزيلا ولكني لا اعرف اين انسخ هذا الكود 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

السلام عليكم اخي العزيز بارك الله بك الموضوع بسيط, حيث يمكنك كتابة برنامج بسيط كما قال الاخ طارق يحلل النص فاذا اتت الكلمة المادة (1) مثلا يضعها في متغير رقم المادة وكل النص الذي بعدها يوضع في متغير اخر وهو نص المادة الى ان تاتي كلمة المادة (2) مثلا وبعدها تستخدم امر اضافة قيد الى قاعدة البيانات. وهكذا تاخذ كل النص الى ان تصل الى نهاية النص. المطلوب منك الان كتابة ذلك البرنامج ونحن بالخدمة لاي استفسار

الاخ العزيز عماد مشكو الشكر الجزيل على المساعدة ساجرب الذي تفضلت به مع جزيل الشكر

السلام عليكم ايها الاحبة ورحمة الله قمت بربط قاعدة بيانات SQL Server باستخدام الكود عن طريق VB10, وقد عملت والحمد لله. لكن عند محاولتي اضافة سجل جديد للبيانات لم اتمكن من معرفة كيفية خزن السجل الجديد.

مشكور يا مبدع على المجهود الكبير لكن هل من الممكن حفظ هذا الفديو ؟؟

مشكور يا مبدع على المجهود الكبير لكن هل من الممكن حفظ هذا الفديو ؟؟

مشكور اخي احمد الشكر الجزيل على المساهمة المفيدة, فقد قمت بتجربتها وافادتني كثيرا لكنك لم تذكر شيئ عن انشاء قاعدة البيانات باستخدام SLQ قمت بعملها بصعوبة قليلة لاني لم اقم بها من قبل على العموم موضوع جيد بارك الله بك اخي العزيز اتمنى منك الاستمرار في المشوار

مشكور احمد على المجهود تم التحميل

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