<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم مكتبة اكواد C#.NET]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 21:56:00 +0000 MyBB <![CDATA[كود جلب جميع أسماء النسخ الاحتياطية لقواعد البيانات بمساراتها (مع شرح كتابة كود واحد]]> https://vb4arb.com/vb/showthread.php?tid=44710 Mon, 09 Jan 2023 23:33:59 +0000 rabia al hamdani]]> https://vb4arb.com/vb/showthread.php?tid=44710 السلام عليكم ورحمة الله وبركاته

#كود_جلب_جميع_أسماء_النسخ_الاحتياطية_لقواعد_البيانات_بمساراتها

#مع_شرح_كتابة_كود_واحد_فقط_للتنقل_واستعراض_بيانات_النسخ_الاحتياطية_وتعديلها_في_واجهة_واحدة_فقط .

[صورة مرفقة: d983d988d8af-d8acd984d8a8-d8a3d8b3d985d8...a7d8aa.png]

*- أعزائنا المبرمجين المحترفين من بعد ما قدمنا لكم في منشور سابق كود عمل نسخه أحتياطية لقاعدة البيانات حيث يمكنك الاطلاع عليه
من خلال الرابط التالي >>
كود إنشاء نسخة أحتياطية من قاعدة البيانات أكسس بلغات الدوت_نت (C# – VB)

*- أعزائنا المهندسين أحببنا أن نقدم لكم كود جلب أسماء ومسارات النسخ الاحتياطيه لقاعدة البيانات ، والذي ستحتاجه لأستعراض البيانات والجداول منهن وأسترجاع اي واحدة منهن حسب أختيار المستخدم كود بلغه #C >>
كود جلب جميع أسماء النسخ الاحتياطية لقواعد البيانات بمساراتها (مع شرح كتابة كود واحد فقط للتنقل واستعراض بيانات النسخ الاحتياطية وتعديلها في واجهة واحدة فقط)

*- لمن أراد نفس الكود بلغة الفجوال بيسك علق بــ #مهتم VB Code من هنا

*- بعد الاطلاع على الكود يمكنك مشاهده شرح كيفيه كتابه كود برمجي واحد فقط للتنقل بين قاعدة البيانات الاصلية والنسخ الاحتياطية

(إستعراض البيانات والجداول -التعديل عليها (إضافة بيانات – تعديل بيانات – حذف بيانات)) في واجهة Form واحدة فقط .

[b]خطوة بخطوة[/b]

[b][/b]

[b][b]اسأل المولى ان قد وفقني في افادتكم في هذة المعلومات[/b][/b]

[b][b]وفق الله الجميع[/b][/b]

]]> السلام عليكم ورحمة الله وبركاته

#كود_جلب_جميع_أسماء_النسخ_الاحتياطية_لقواعد_البيانات_بمساراتها

#مع_شرح_كتابة_كود_واحد_فقط_للتنقل_واستعراض_بيانات_النسخ_الاحتياطية_وتعديلها_في_واجهة_واحدة_فقط .

(إستعراض البيانات والجداول -التعديل عليها (إضافة بيانات – تعديل بيانات – حذف بيانات)) في واجهة Form واحدة فقط .

[b]خطوة بخطوة[/b]

[b][/b]

[b][b]اسأل المولى ان قد وفقني في افادتكم في هذة المعلومات[/b][/b]

[b][b]وفق الله الجميع[/b][/b]

]]> <![CDATA[كود إنشاء نسخة أحتياطية من قاعدة البيانات أكسس بلغات الدوت_نت (C# – VB)]]> https://vb4arb.com/vb/showthread.php?tid=44709 Mon, 09 Jan 2023 23:27:17 +0000 rabia al hamdani]]> https://vb4arb.com/vb/showthread.php?tid=44709 السلام عليكم ورحمة الله وبركاته

#كود_إنشاء_نسخة_أحتياطية_من_قاعدة_البيانات_أكسس #بلغات_الدوت_نت

[صورة مرفقة: d983d988d8af-d8a5d986d8b4d8a7d8a1-d986d8...png?w=1400]

– أعزائنا #المبرمجين #المحترفين أحببنا أن نقدم لكم كود إنشاء نسخة أحتياطية من قاعدة البيانات أكسس يقوم بنسخ قاعدة البيانات وأنشاء مجلد جديد للنسخ الاحتياطية لقواعد البيانات ولصق النسخة الاحتياطية بتاريخ اليوم والساعة،
الكود :-
            // مسار مجلد النظام
            string sourcePath = System.IO.Path.GetDirectoryName(Application.ExecutablePath);
            // مسار مجلد النسخ الاحتياطية
            string destinationPath = Path.Combine(System.IO.Path.GetDirectoryName(Application.ExecutablePath),
                “DataBase sys”);
            // أسم ملف قاعدة البيانات الاساسية مع الامتداد
            string sourceFileName = “Name_DataBase_sys.accdb”;
            // أسم ملف قاعدة البيانات النسخة الاحتياطية مع الامتداد
            string destinationFileName = DateTime.Now.ToString(“dd_MM_yyyy_hh_mm_ss”)+”_DataBase” + “.accdb”; // Don’t mind this. I did this because I needed to name the copied files with respect to time.
            // كود دمج مسار مجلد النظام مع ملف قاعدة البيانات الاساسية
            string sourceFile = System.IO.Path.Combine(sourcePath, sourceFileName);
            // كود دمج مسار مجلد النسخ الاحتياطية مع ملف النسخة الاحتياطية
            string destinationFile = System.IO.Path.Combine(destinationPath, destinationFileName);
            // إذا لم يكون موجود “DataBase sys” كود إنشاء المجلد
            if (!System.IO.Directory.Exists(destinationPath))
            {
                System.IO.Directory.CreateDirectory(destinationPath);
            }
            // كود نسخ ملف قاعدة البيانات وحفظه كنسخة أحتياطية
            System.IO.File.Copy(sourceFile, destinationFile, true);

– لمن أراد نفس الكود بلغة الفجوال بيسك علق بــ #مهتم VB Code في منشور الفيس بوك من  هنا
[url=https://www.facebook.com/rabiprog/posts/pfbid02CAL9UhPrykij6nuNk3gs5drhD7xNSWBjnm2PaxCAc3bvYyHjDpcdSimbiVbqD6o2l][/url]

اسأل المولى ان قد وفقني في افادتكم في هذة المعلومات

وفق الله الجميع

]]> السلام عليكم ورحمة الله وبركاته

#كود_إنشاء_نسخة_أحتياطية_من_قاعدة_البيانات_أكسس #بلغات_الدوت_نت

اسأل المولى ان قد وفقني في افادتكم في هذة المعلومات

وفق الله الجميع

]]> <![CDATA[سؤال مهم اريد المساعدة على حله]]> https://vb4arb.com/vb/showthread.php?tid=42579 Thu, 29 Sep 2022 10:36:50 +0000 mohammed saleh]]> https://vb4arb.com/vb/showthread.php?tid=42579 اريد المساعدة في عمل زر Button عند تحريك الماوس علية يقوم بالتحرك والهرب في اطراف الفورم ويغير لون خلفية الفورم ولا يمكنك من الضغط علية ]]> اريد المساعدة في عمل زر Button عند تحريك الماوس علية يقوم بالتحرك والهرب في اطراف الفورم ويغير لون خلفية الفورم ولا يمكنك من الضغط علية ]]> <![CDATA[شرح برنامج صانع الاكواد بلغة السي شارب والتعامل مع الاجراءات المخزنة مجاني]]> https://vb4arb.com/vb/showthread.php?tid=41239 Sat, 23 Apr 2022 02:41:46 +0000 Algarous]]> https://vb4arb.com/vb/showthread.php?tid=41239 وهو برنامج مجاني و سهل الاستخدام
في الرابط التالي شرح للبرنامج .. وسوف تجد البرنامج في الجزء الاول من فيديو الشرح :

شرح برنامج صانع الاكواد بلغة السي شارب والتعامل مع الاجراءات المخزنة مجاني الجزء الاول - YouTube]]> وهو برنامج مجاني و سهل الاستخدام
في الرابط التالي شرح للبرنامج .. وسوف تجد البرنامج في الجزء الاول من فيديو الشرح :

شرح برنامج صانع الاكواد بلغة السي شارب والتعامل مع الاجراءات المخزنة مجاني الجزء الاول - YouTube]]> <![CDATA[ارجو المساعدة فى تحويل هذا الكود الى السى شارب]]> https://vb4arb.com/vb/showthread.php?tid=38114 Mon, 22 Mar 2021 23:55:09 +0000 omar5]]> https://vb4arb.com/vb/showthread.php?tid=38114 Imports Microsoft.Win32
Imports System.Security.AccessControl
Public Class Form1
'Public Sub Get_Info()

' Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
' Dim diskId As String 'Digital ID
' Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
' Dim diskModel As String 'serial number
' For Each cmicWmiObj As ManagementObject In cmicWmi.Get
' diskId = cmicWmiObj("signature")
' diskSerialNumber = cmicWmiObj("serialnumber")
' diskModel = cmicWmiObj("Model")
' Next
'End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

TxtWnd.Text = My.Computer.Info.OSFullName
TxtMname.Text = System.Environment.MachineName
TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim diskId As String 'Digital ID
Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
Dim diskModel As String 'serial number
For Each cmicWmiObj As ManagementObject In cmicWmi.Get
diskId = cmicWmiObj("signature")
diskSerialNumber = cmicWmiObj("serialnumber")
diskModel = cmicWmiObj("Model")
Next

TextBox1.Text = diskSerialNumber
TextBox2.Text = diskId
TextBox4.Text = Val(TextBox2.Text) * 13 + 1225 - 1650
TextBox4.Text = TextBox4.Text * 17

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox3.Text = TextBox4.Text Then
MsgBox("تمت عملية تفعيل البرنامج بنجاح")
Dim x As String
x = TextBox3.Text
Dim Activekey As RegistryKey
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
If Activekey Is Nothing Then
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
Activekey.CreateSubKey("FoxSoftware")
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
Activekey.SetValue("System_key", x)
Activekey.Close()
End If
Else
MsgBox("رقم التفعيل الذي ادخلته غير صحيح الرجاء مراجعة قسم المبيعات")
Application.Exit()
End If
End Sub
End Class]]> Imports Microsoft.Win32
Imports System.Security.AccessControl
Public Class Form1
'Public Sub Get_Info()

' Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
' Dim diskId As String 'Digital ID
' Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
' Dim diskModel As String 'serial number
' For Each cmicWmiObj As ManagementObject In cmicWmi.Get
' diskId = cmicWmiObj("signature")
' diskSerialNumber = cmicWmiObj("serialnumber")
' diskModel = cmicWmiObj("Model")
' Next
'End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

TxtWnd.Text = My.Computer.Info.OSFullName
TxtMname.Text = System.Environment.MachineName
TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim diskId As String 'Digital ID
Dim diskSerialNumber As String 'This we will call it the serial number for the time being.
Dim diskModel As String 'serial number
For Each cmicWmiObj As ManagementObject In cmicWmi.Get
diskId = cmicWmiObj("signature")
diskSerialNumber = cmicWmiObj("serialnumber")
diskModel = cmicWmiObj("Model")
Next

TextBox1.Text = diskSerialNumber
TextBox2.Text = diskId
TextBox4.Text = Val(TextBox2.Text) * 13 + 1225 - 1650
TextBox4.Text = TextBox4.Text * 17

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox3.Text = TextBox4.Text Then
MsgBox("تمت عملية تفعيل البرنامج بنجاح")
Dim x As String
x = TextBox3.Text
Dim Activekey As RegistryKey
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
If Activekey Is Nothing Then
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
Activekey.CreateSubKey("FoxSoftware")
Activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\FoxSoftware", True)
Activekey.SetValue("System_key", x)
Activekey.Close()
End If
Else
MsgBox("رقم التفعيل الذي ادخلته غير صحيح الرجاء مراجعة قسم المبيعات")
Application.Exit()
End If
End Sub
End Class]]> <![CDATA[معلومة لطيفة : فتح المجلد المتحوي لملف مع اختيار الملف]]> https://vb4arb.com/vb/showthread.php?tid=36923 Mon, 16 Nov 2020 12:48:43 +0000 Anas Mahmoud]]> https://vb4arb.com/vb/showthread.php?tid=36923 السلام عليكم ورحمة الله وبركاته اعضاء المنتدى الكرام

هناك بعض البرامج بعد تثبيتها تقوم بفتح مسار البرنامج او الملف في ال Explorer مع تحديد الملف
او حتى في IDM عند طلب مجلد الملف الذي تم تحميله يقوم البرنامج بفتح المجلد مع تحديد الملف

الطريقة ببساطة تعتمد على فتح Explorer مع تمرير سطر اوامر /select, مع اسم الملف وسيقوم الاكسبلورر بعمل المطلوب

للتجربة افتح نافذة Run ( من لوحة المفاتيح : زر الويندوز + R ) واكتب التالي ثم اضغط ok :

PHP كود :
explorer.exe /select, "E:\x.pdf" 

غير مسار الملف الى ملف موجود فعلا قبل ان تضغط ok

هذه هي الطريقة بكل بساطة ،
الان بالكود سننفذ ذلك باستخدام Process.Start ،

كود الدالة هو :

كود :
public bool ExploreFile(string filePath) {

    if (!System.IO.File.Exists(filePath)) {

        return false;

    }

    //Clean up file path so it can be navigated OK

    filePath = System.IO.Path.GetFullPath(filePath);

    System.Diagnostics.Process.Start("explorer.exe", string.Format("/select,\"{0}\"", filePath));

    return true;

}

ليست من كتابتي الموضوع اخذته من هنا : https://stackoverflow.com/a/13680458

مرجع وسائط اكسبلورر : https://ss64.com/nt/explorer.html]]> السلام عليكم ورحمة الله وبركاته اعضاء المنتدى الكرام

هناك بعض البرامج بعد تثبيتها تقوم بفتح مسار البرنامج او الملف في ال Explorer مع تحديد الملف
او حتى في IDM عند طلب مجلد الملف الذي تم تحميله يقوم البرنامج بفتح المجلد مع تحديد الملف

الطريقة ببساطة تعتمد على فتح Explorer مع تمرير سطر اوامر /select, مع اسم الملف وسيقوم الاكسبلورر بعمل المطلوب

للتجربة افتح نافذة Run ( من لوحة المفاتيح : زر الويندوز + R ) واكتب التالي ثم اضغط ok :

PHP كود :
explorer.exe /select, "E:\x.pdf" 

كود :
public bool ExploreFile(string filePath) {

    if (!System.IO.File.Exists(filePath)) {

        return false;

    }

    //Clean up file path so it can be navigated OK

    filePath = System.IO.Path.GetFullPath(filePath);

    System.Diagnostics.Process.Start("explorer.exe", string.Format("/select,\"{0}\"", filePath));

    return true;

}

ليست من كتابتي الموضوع اخذته من هنا : https://stackoverflow.com/a/13680458

مرجع وسائط اكسبلورر : https://ss64.com/nt/explorer.html]]> <![CDATA[السماح بنسخة واحدة تعمل من البرنامج]]> https://vb4arb.com/vb/showthread.php?tid=36272 Mon, 31 Aug 2020 09:47:34 +0000 Anas Mahmoud]]> https://vb4arb.com/vb/showthread.php?tid=36272 السلام عليكم اعضاء المنتدى الكريم

كان احد الاخوة قد سأل عن طريقة لجعل برنامج C# يمنع تشغيل اكثر من نسخة منه في نفس الوقت

بعد بحث وجدت الحل :

ضع هذا الكود في Program.cs قبل كل شيء في void Main :

كود :
           var mutex = new System.Threading.Mutex(true, "MyApp", out bool createdNew);

            if (!createdNew)

            {

                MessageBox.Show("البرنامج يعمل بالفعل");

                return;

            }

            mutex.ReleaseMutex();

هكذا :

5.jpg (الحجم : 165.31 ك ب / التحميلات : 251)

ال Mutex حسب ما فهمت هو مفهوم لادارة الوصول من خلال ال Threads المختلفة للاعضاء

ما يحدث هو ان نقوم بعمل Mutex جديد باسم مميز في نقطة انطلاق البرنامج void Main قبل استدعاء نسخة من فورم البداية ،

و اذا لم تكن هذه هي النسخة الاولى من هذا ال Mutex نقوم بعمل Return من void Main

طيب الاسم المميز الذي اخترناه في هذا الكود هو MyApp ،

الان هناك مشكله : اي برنامج تقوم بعمله باستخدام هذه الطريقة ايضا ونفس الاسم MyApp سيمنع من التشغيل ايضا اذا كان البرنامج الاخر يعمل ، لذلك يجب ان تقوم باستبدال MyApp الى اسم مميز للبرنامج

طريقة جميلة لعمل ذلك هو استخدام Guid البرنامج من داخل AssemblyInfo.cs :

.jpg

6.jpg (الحجم : 189.08 ك ب / التحميلات : 247)

ثم نضعه كاسم لل Mutex :

كود :
           var mutex = new System.Threading.Mutex(true, "3c8be03f-a0f4-417c-a2de-b010491733cc", out bool createdNew);

            if (!createdNew)

            {

                MessageBox.Show("البرنامج يعمل بالفعل");

                return;

            }

            mutex.ReleaseMutex();

الان برنامجي سيعمل مرة واحدة فقط في نفس الوقت Smile

المقال التالي فيه طريقة جيدة لعرض الفورم التي تعمل الان ايضا الى الامام بدلا من اظهار رسالة خطا :

http://sanity-free.org/143/csharp_dotnet...ation.html]]> السلام عليكم اعضاء المنتدى الكريم

كان احد الاخوة قد سأل عن طريقة لجعل برنامج C# يمنع تشغيل اكثر من نسخة منه في نفس الوقت

بعد بحث وجدت الحل :

ضع هذا الكود في Program.cs قبل كل شيء في void Main :

كود :
           var mutex = new System.Threading.Mutex(true, "MyApp", out bool createdNew);

            if (!createdNew)

            {

                MessageBox.Show("البرنامج يعمل بالفعل");

                return;

            }

            mutex.ReleaseMutex();

هكذا :

6.jpg (الحجم : 189.08 ك ب / التحميلات : 247)

ثم نضعه كاسم لل Mutex :

كود :
           var mutex = new System.Threading.Mutex(true, "3c8be03f-a0f4-417c-a2de-b010491733cc", out bool createdNew);

            if (!createdNew)

            {

                MessageBox.Show("البرنامج يعمل بالفعل");

                return;

            }

            mutex.ReleaseMutex();

الان برنامجي سيعمل مرة واحدة فقط في نفس الوقت Smile

المقال التالي فيه طريقة جيدة لعرض الفورم التي تعمل الان ايضا الى الامام بدلا من اظهار رسالة خطا :

http://sanity-free.org/143/csharp_dotnet...ation.html]]> <![CDATA[إغلاق الفورم عن طريق زر Esc و التعامل مع CancelButton]]> https://vb4arb.com/vb/showthread.php?tid=36202 Mon, 24 Aug 2020 07:44:13 +0000 Anas Mahmoud]]> https://vb4arb.com/vb/showthread.php?tid=36202 السلام عليكم ورحمة الله وبركاته اعضاء المنتدى الكرام

ندخل في الموضوع مباشرة

الكود:

اضف الكود التالي في مشيد الفورم public Form1() بعد InitializeComponent()

كود :
           Button Esc = new Button();

            Esc.Click += (s, e) => Close();

            CancelButton = Esc;

شغل البرنامج واضغط على زر Esc تلاحظ انه يقوم بغلق الفورم فعلا
الى هنا انتهى الكود فعلا ، الباقي هو الشرح

الشرح:

طيب تعالو نفهم ماذا يحدث ؟

السر في الخاصية CancelButton الخاصة بالفورم ، والتي تضع فيها الزر التي يتم ضغطه عند الضغط على زر Esc من الكيبورد

إقتباس :
Form.CancelButton Property
Definition

Namespace:System.Windows.FormsAssembly:System.Windows.Forms.dll

Gets or sets the button control that is clicked when the user presses the ESC key.

لذلك قمنا باضافة زر وهمي وقمنا باضافة حدث Click له ليقوم بغلق الفورم
ثم اضفناه للخاصية CancelButton وبذلك عندما نضغط على الزر Esc يقوم بالضغط على هذا الزر الوهمي الذي يقوم باغلاق الفورم

فكرة جيدة اليس كذلك Big Grin

طيب الان لو انت عندك بالفعل زر وظيفته اغلاق الفورم ، كل ماعليك فعله ان تقوم باختيار هذا الزر للخاصية CancelButton الخاصة بالفورم .

.png

Untitled.png (الحجم : 12.25 ك ب / التحميلات : 187)

اتمنى التوفيق للجميع

.zip

EscClose c#.zip (الحجم : 32.45 ك ب / التحميلات : 80) ]]> السلام عليكم ورحمة الله وبركاته اعضاء المنتدى الكرام

ندخل في الموضوع مباشرة

الكود:

اضف الكود التالي في مشيد الفورم public Form1() بعد InitializeComponent()

كود :
           Button Esc = new Button();

            Esc.Click += (s, e) => Close();

            CancelButton = Esc;

إقتباس :
Form.CancelButton Property
Definition

Namespace:System.Windows.FormsAssembly:System.Windows.Forms.dll

Gets or sets the button control that is clicked when the user presses the ESC key.

Untitled.png (الحجم : 12.25 ك ب / التحميلات : 187)

اتمنى التوفيق للجميع

.zip

EscClose c#.zip (الحجم : 32.45 ك ب / التحميلات : 80) ]]> <![CDATA[اريد عند البحث فى الكمبوبوكس من اي مكان فى الكلمات يجلب لى المتشابهات]]> https://vb4arb.com/vb/showthread.php?tid=34859 Wed, 20 May 2020 12:37:20 +0000 حامد 2020]]> https://vb4arb.com/vb/showthread.php?tid=34859 السلام عليكم

عندى كمبوبوكس وبه اسماء منتجات او اسماء دول كما بالصورة

واريد عند كتابة اى كلمة فى اسم المنتج فى الاول او الوسط ياتى باسم المنتج

هو عندى بياتى بالمنتج لو كتبت اول الكلمة فقط

يتم البحث فقط بالكلمة الاولى

علما انى مفعل الخصيتين

SuggestAppend
ListItems

[صورة مرفقة: 15899779375341.jpg]

مثلا فى المثال اللى فى الصورة

لو كتبت كلمة ( جمهورية ) ياتى بالكلمات التى تبدأ ( جمهورية )
اما لو كتبت كلمة الكنغو لا ياتى بالدول التى بها كلمة الكنغو

اتمنى الاستفسار يكون واضع
الملف فى المرفقات اللى يقدر يعدل عليه
وشكرا جزيلا لكم

.rar

CompoBox.rar (الحجم : 163.18 ك ب / التحميلات : 80) ]]> السلام عليكم

عندى كمبوبوكس وبه اسماء منتجات او اسماء دول كما بالصورة

واريد عند كتابة اى كلمة فى اسم المنتج فى الاول او الوسط ياتى باسم المنتج

هو عندى بياتى بالمنتج لو كتبت اول الكلمة فقط

يتم البحث فقط بالكلمة الاولى

علما انى مفعل الخصيتين

SuggestAppend
ListItems

[صورة مرفقة: 15899779375341.jpg]

مثلا فى المثال اللى فى الصورة

لو كتبت كلمة ( جمهورية ) ياتى بالكلمات التى تبدأ ( جمهورية )
اما لو كتبت كلمة الكنغو لا ياتى بالدول التى بها كلمة الكنغو

اتمنى الاستفسار يكون واضع
الملف فى المرفقات اللى يقدر يعدل عليه
وشكرا جزيلا لكم

.rar

CompoBox.rar (الحجم : 163.18 ك ب / التحميلات : 80) ]]> <![CDATA[ربط ٢ كمبوبكس ببعض مع امكانية الحذف في كل مرة اختار فيها]]> https://vb4arb.com/vb/showthread.php?tid=34026 Sat, 28 Mar 2020 18:04:48 +0000 محمد عبده]]> https://vb4arb.com/vb/showthread.php?tid=34026 السلام عليكم... لدي مشروع جامعي صغير.. وهو عمل نظام فندق ولكن بدون ربطه بقواعد بيانات... الموضوع : وهو اني قمت بعمل 2 ComboBoxes الاول يحتوي على الادوار التي في الفندق ( الاول..الثاني.. الثالث.. وهكذا ) والكمبو الثاني يحتوي على ارقام الغرف المتواجدة في كل دور... اريد في كل يتم فيها الاختيار من الكمبو الاول دور معين يضهر في الكمبو الثاني الغرف الفاضية التي فيه فقط... مع العلم ان في كل مرة يتم الحجز فيها تنضاف بيانات النزيل الى الداتا جريد ويتم بعدها حذف الغرفة المحجوزة من الكمبو... .. كيف يتم ربط الكمبوبكسين مع بعض وكيف يتم تعبئة البيانات في الكمبوبومس بتاع الغرف.. ارجوو المساعدة وفي اقرب وقتم ارجوكم. ]]> السلام عليكم... لدي مشروع جامعي صغير.. وهو عمل نظام فندق ولكن بدون ربطه بقواعد بيانات... الموضوع : وهو اني قمت بعمل 2 ComboBoxes الاول يحتوي على الادوار التي في الفندق ( الاول..الثاني.. الثالث.. وهكذا ) والكمبو الثاني يحتوي على ارقام الغرف المتواجدة في كل دور... اريد في كل يتم فيها الاختيار من الكمبو الاول دور معين يضهر في الكمبو الثاني الغرف الفاضية التي فيه فقط... مع العلم ان في كل مرة يتم الحجز فيها تنضاف بيانات النزيل الى الداتا جريد ويتم بعدها حذف الغرفة المحجوزة من الكمبو... .. كيف يتم ربط الكمبوبكسين مع بعض وكيف يتم تعبئة البيانات في الكمبوبومس بتاع الغرف.. ارجوو المساعدة وفي اقرب وقتم ارجوكم. ]]> <![CDATA[ربط مشروع سي شارب بقاعدة بيانات ولكن بعد عمل المشروع]]> https://vb4arb.com/vb/showthread.php?tid=34025 Sat, 28 Mar 2020 17:54:00 +0000 محمد عبده]]> https://vb4arb.com/vb/showthread.php?tid=34025 <![CDATA[كيفية عمل مربعين للبحث في داتا جريد فيو]]> https://vb4arb.com/vb/showthread.php?tid=33586 Thu, 27 Feb 2020 09:40:22 +0000 tamerkr2007]]> https://vb4arb.com/vb/showthread.php?tid=33586 عندي استفسار حول كيفية عمل مربعين للبحث في داتا جريد فيو
textbox1.text البحث الاول للاسم
textbox2.text البحث الثاني لرقم الهاتف
data gridview

وان يكون البحث مترابط وان تعمل مربعين البحث بنفس الوقت

انا استخدمت هذا الكود

كود :
BindingSource bs = new BindingSource();

                bs.DataSource = dataGridView1.DataSource;

                bs.Filter = "name like '%" + textBox1.Text + "%' ";

                dataGridView1.DataSource = bs;

مع جزيل الشكر]]> عندي استفسار حول كيفية عمل مربعين للبحث في داتا جريد فيو
textbox1.text البحث الاول للاسم
textbox2.text البحث الثاني لرقم الهاتف
data gridview

وان يكون البحث مترابط وان تعمل مربعين البحث بنفس الوقت

انا استخدمت هذا الكود

كود :
BindingSource bs = new BindingSource();

                bs.DataSource = dataGridView1.DataSource;

                bs.Filter = "name like '%" + textBox1.Text + "%' ";

                dataGridView1.DataSource = bs;

مع جزيل الشكر]]> <![CDATA[مساعدة]]> https://vb4arb.com/vb/showthread.php?tid=32182 Tue, 19 Nov 2019 19:55:01 +0000 Queen Evil]]> https://vb4arb.com/vb/showthread.php?tid=32182

هذا كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
conn.Open()
Try
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into aa values ('" + Txtid.Text + "','" + Txt_no.Text + "','" + Txtname.Text + "','" + ComboBox1.Text + "','" + DateTimePicker1.Value + "','" + Txtst.Text + "','" + Txtpho.Text + "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تم إضافة الطالب")
Txtid.Clear()
Txtname.Clear()
Txt_no.Clear()
Txtst.Clear()
DateTimePicker1.Value = Now
Txtpho.Clear()
MsgBox("بيانات الطالب موجودة")
Catch ex As Exception
MsgBox(ex.Message.ToString)

End Try
conn.Close()
End Sub]]>

هذا كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
conn.Open()
Try
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into aa values ('" + Txtid.Text + "','" + Txt_no.Text + "','" + Txtname.Text + "','" + ComboBox1.Text + "','" + DateTimePicker1.Value + "','" + Txtst.Text + "','" + Txtpho.Text + "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تم إضافة الطالب")
Txtid.Clear()
Txtname.Clear()
Txt_no.Clear()
Txtst.Clear()
DateTimePicker1.Value = Now
Txtpho.Clear()
MsgBox("بيانات الطالب موجودة")
Catch ex As Exception
MsgBox(ex.Message.ToString)

End Try
conn.Close()
End Sub]]> <![CDATA[اخي بلا زحمة اريد كود ارفاق pdf او صورة الى قاعدة البيانات ونقلها من الملفات الى قاعد]]> https://vb4arb.com/vb/showthread.php?tid=30229 Tue, 09 Jul 2019 19:55:29 +0000 امير الشمري]]> https://vb4arb.com/vb/showthread.php?tid=30229 <![CDATA[أداة بها مجموعة من الدوال لعمليات التحكم بقواعد بيانات SQL]]> https://vb4arb.com/vb/showthread.php?tid=27537 Mon, 19 Nov 2018 18:38:55 +0000 محمد خالد رضوان]]> https://vb4arb.com/vb/showthread.php?tid=27537 للإضافة الأداة يرجى الذهاب إلى Project ثم Add Reference ثم تحديد مكان الأدة

في الكود نقوم باستنساخ Object من نوع QuickDB
يمكنكم اكتشاف الأداة بأنفسكم وإعلامي بإنطباعاتكم
تحياتي...

.rar

QuickDBManager.rar (الحجم : 6.62 ك ب / التحميلات : 498) ]]> للإضافة الأداة يرجى الذهاب إلى Project ثم Add Reference ثم تحديد مكان الأدة

في الكود نقوم باستنساخ Object من نوع QuickDB
يمكنكم اكتشاف الأداة بأنفسكم وإعلامي بإنطباعاتكم
تحياتي...

.rar

QuickDBManager.rar (الحجم : 6.62 ك ب / التحميلات : 498) ]]>