[dubai.eig]

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

بعد اذنك هذا كود يطلع لي اسامي كروت الصوت في جهازي

بس موب ضابط

كود :

  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim objSearcher As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_SoundDevice")
       Dim objCollection As System.Management.ManagementObjectCollection = objSearcher.Get()

       For Each obj As System.Management.ManagementObject In objCollection
           ComboBox1.Items.Add(obj.GetPropertyValue("Caption").ToString())
       Next
   End Sub

انا اريد الكود يطلع لي اسامي كروت الصوت يعني 

ComboBox1 
يطلع لي الكرت اللي في ال Playback
   

,
ComboBox2 

يطلع لي الكرت اللي في ال Recording
   


وشكرا لك

[مصطفى العراقي]

سلام عليكم شكرا لهذه الفكره الجميله لدي المشروع الموجود في الرابط عندما اضغط على تعديل واقوم بتعديل الارقام او اي تكست واضغط على حفظ التعديل تضهر لي رسالة الخطأ الخطأ الاتيه
failed to convert parameter valuefrom a string to a Int32

رابط المشروع
http://up.top4top.net/downloadf-84p16w1-rar.html

[hassan]

(25-03-16, 11:03 AM)0theghost0 كتب : قاعدة البيانات Accesss 2016

اخي اين تريد وضع نتائج البحث + الرجاء ارفاق قاعدة البيانات لان انا لا املك Accesss 2016  لا املك سوا 2010 

شكرا لكم

[0theghost0]

السلام عليكم

القاعدة في المرفقات

ضع بها اي شيء يدويا

البحث يكون

txtbox هنا نكتب مانريد البحث عنه مثل ( الاسم , الرقم الشخصي , رقم السيارة , رقم الهاتف )
datagridview هنا تظهر البيانات

[hassan]

(26-03-16, 06:32 PM)0theghost0 كتب : السلام عليكم

القاعدة في المرفقات

ضع بها اي شيء يدويا

البحث يكون

txtbox هنا نكتب مانريد البحث عنه مثل ( الاسم , الرقم الشخصي , رقم السيارة , رقم الهاتف )
datagridview هنا تظهر البيانات

اخي قاعدة بيانات تحتوي على 4 جداول اي جدول تريد البحث فيه الرجاء التوضيح 


+

هاذا الموضوع نفس طلبك باضبط 
http://vb4arb.com/vb/thread-15185.html

لو تعرف ترتيب الاكواد ما يحتاج اعمل لك مشروع لاكن لو ما استفدت 

راح اعمل لك مشروع


شكرا لك

[0theghost0]

السلام عليكم فكرة البحث الى في الرابط مش شغالة عندي 100% راح اعطيك الكود الى حصلته واتمنى التعديل عليك عندك القاعدة والباقي فقط محتاج الى الكود يكون صحيح بلا اخطاء لو سمحت انا شغال على vb.net 2015 بعض الاكواد القديمة لايدعمها

---

هذا هو الكود

كود :

Imports System.Data.OleDb
Public Class Form8

    Sub FillLstv()
        ListView1.Items.Clear()
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        Dim da As New OleDbDataAdapter("Select * from Rent where Cus_Name Like '%" & TextBox1.Text.Trim() & "%' or Cus_Private_Number Like '%" & TextBox2.Text.Trim() & "%'", cn)

        Dim dt As New DataTable
        da.Fill(dt)

        For Each dr As DataRow In dt.Rows
            Dim itm As New ListViewItem(dr("Cus_Name").ToString())
            itm.SubItems.Add(dr("Cus_Private_Number").ToString())
            itm.SubItems.Add(dr("Cus_Address").ToString())
            itm.SubItems.Add(dr("Cus_Telephone_Number").ToString())
            itm.SubItems.Add(dr("Equ_Name").ToString())
            itm.SubItems.Add(dr("Equ_Qantity").ToString())
            itm.SubItems.Add(dr("Equ_Price").ToString())
            itm.SubItems.Add(dr("Rent_Date").ToString())
            ListView1.Items.Add(itm)
        Next
    End Sub
    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FillLstv()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FillLstv()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        FillLstv()
    End Sub
End Class

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

[hassan]

(27-03-16, 06:33 AM)0theghost0 كتب : السلام عليكم فكرة البحث الى في الرابط مش شغالة عندي 100% راح اعطيك الكود الى حصلته واتمنى التعديل عليك عندك القاعدة والباقي فقط محتاج الى الكود يكون صحيح بلا اخطاء لو سمحت انا شغال على vb.net 2015 بعض الاكواد القديمة لايدعمها

---

هذا هو الكود

كود :

Imports System.Data.OleDb
Public Class Form8

   Sub FillLstv()
       ListView1.Items.Clear()
       Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
       Dim da As New OleDbDataAdapter("Select * from Rent where Cus_Name Like '%" & TextBox1.Text.Trim() & "%' or Cus_Private_Number Like '%" & TextBox2.Text.Trim() & "%'", cn)

       Dim dt As New DataTable
       da.Fill(dt)

       For Each dr As DataRow In dt.Rows
           Dim itm As New ListViewItem(dr("Cus_Name").ToString())
           itm.SubItems.Add(dr("Cus_Private_Number").ToString())
           itm.SubItems.Add(dr("Cus_Address").ToString())
           itm.SubItems.Add(dr("Cus_Telephone_Number").ToString())
           itm.SubItems.Add(dr("Equ_Name").ToString())
           itm.SubItems.Add(dr("Equ_Qantity").ToString())
           itm.SubItems.Add(dr("Equ_Price").ToString())
           itm.SubItems.Add(dr("Rent_Date").ToString())
           ListView1.Items.Add(itm)
       Next
   End Sub
   Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       FillLstv()
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       FillLstv()
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       FillLstv()
   End Sub
End Class

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

اخي عملت لك مشروع بحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف

الكود الي ذكرته انت حاولت اعدل عليه لاكن ما جاب نتائج دقيقه 

عملت لك هاذا المشروع في المرفقات 

على حسب طلبك 


شكرا لك

[Adrees]

(25-03-16, 03:24 PM)مصطفى العراقي كتب : سلام عليكم شكرا لهذه الفكره الجميله لدي المشروع الموجود في الرابط عندما اضغط على تعديل واقوم بتعديل الارقام او اي تكست واضغط على حفظ التعديل تضهر لي رسالة الخطأ الخطأ الاتيه
failed to convert parameter valuefrom a string to  a Int32

رابط المشروع
http://up.top4top.net/downloadf-84p16w1-rar.html

ضع الكود التالي بهذه الطريقة

PHP كود :

cmd.Parameters.Add("@number_list", OleDbType.Integer).Value = CInt(TextBox4.Text) 


[Muna]

ممكن تساعدوني بدي كود لعبة x-o بلغة #c بين كمبيوتر وشخص والكمبيوتر بلعب ع اساس معرفته بخطوات الفوز يعني مو عشوائي

---

يا ريت تساعدوني ضرووري مطلوب مني بمادة ذكاء الصناعي

[startqw17]

مساء الخير .. لدي مشكلة عند العرض كريستالر ريبوت ... مع العلم شغال فى مشروع اخر ..
رسالة الخطاء
... An error occurred creating the form. See Exception.InnerException for details. The error is: The type initializer for 'CrystalDecisions.Shared.SharedUtils' th