بارك الله فيك على الموضوع والردود المفيده
بعد اذنك هذا كود يطلع لي اسامي كروت الصوت في جهازي
بس موب ضابط
كود :
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
[
attachment=9916]
,
ComboBox2
يطلع لي الكرت اللي في ال Recording
[
attachment=9917]
وشكرا لك
سلام عليكم شكرا لهذه الفكره الجميله لدي المشروع الموجود في الرابط عندما اضغط على تعديل واقوم بتعديل الارقام او اي تكست واضغط على حفظ التعديل تضهر لي رسالة الخطأ الخطأ الاتيه
failed to convert parameter valuefrom a string to a Int32
رابط المشروع
http://up.top4top.net/downloadf-84p16w1-rar.html
(25-03-16, 11:03 AM)0theghost0 كتب : [ -> ]قاعدة البيانات Accesss 2016
اخي اين تريد وضع نتائج البحث + الرجاء ارفاق قاعدة البيانات لان انا لا املك Accesss 2016 لا املك سوا 2010
شكرا لكم
السلام عليكم
القاعدة في المرفقات
ضع بها اي شيء يدويا
البحث يكون
txtbox هنا نكتب مانريد البحث عنه مثل ( الاسم , الرقم الشخصي , رقم السيارة , رقم الهاتف )
datagridview هنا تظهر البيانات
(26-03-16, 06:32 PM)0theghost0 كتب : [ -> ]السلام عليكم
القاعدة في المرفقات
ضع بها اي شيء يدويا
البحث يكون
txtbox هنا نكتب مانريد البحث عنه مثل ( الاسم , الرقم الشخصي , رقم السيارة , رقم الهاتف )
datagridview هنا تظهر البيانات
اخي قاعدة بيانات تحتوي على 4 جداول اي جدول تريد البحث فيه الرجاء التوضيح
+
هاذا الموضوع نفس طلبك باضبط
http://vb4arb.com/vb/thread-15185.html
لو تعرف ترتيب الاكواد ما يحتاج اعمل لك مشروع لاكن لو ما استفدت
راح اعمل لك مشروع
شكرا لك
السلام عليكم فكرة البحث الى في الرابط مش شغالة عندي 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
اتمنى التعديل عليه بحيث استطيع البحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف
(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
اتمنى التعديل عليه بحيث استطيع البحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف
اخي عملت لك مشروع بحث بالاسم والرقم الشخصي و رقم السيارة ورقم الهاتف
الكود الي ذكرته انت حاولت اعدل عليه لاكن ما جاب نتائج دقيقه
عملت لك هاذا المشروع في المرفقات
على حسب طلبك
شكرا لك
(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)
ممكن تساعدوني بدي كود لعبة x-o بلغة #c بين كمبيوتر وشخص والكمبيوتر بلعب ع اساس معرفته بخطوات الفوز يعني مو عشوائي
يا ريت تساعدوني ضرووري مطلوب مني بمادة ذكاء الصناعي
مساء الخير .. لدي مشكلة عند العرض كريستالر ريبوت ... مع العلم شغال فى مشروع اخر ..
رسالة الخطاء
... An error occurred creating the form. See Exception.InnerException for details. The error is: The type initializer for 'CrystalDecisions.Shared.SharedUtils' th