تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] رمضان مبارك يا اخوتي اريد كود بحث عن الاسم لقد اتعبني البحث
#1
السلام عليكم
رمضان مبارك
الى اهل الخبرة انا جديد في البرمجة الفيجوال بيسك
ابخث على كود البحث عن الاسماء مع اظهار صورة ايضا قي داتا قريديو


الملفات المرفقة
.rar   saad1.rar (الحجم : 438.72 ك ب / التحميلات : 15)
الرد
تم الشكر بواسطة: asemshahen5
#2
وعليك السلام ورحمة الله وبركاته
ورمضان مبارك عليك وعلينا وعلى كل المسلمين

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

كود جملة ا لاتصال لديك كان :

كود :
 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\saad.mdb")

وقد قمت بتعديله ليشير الى مسار حفظ ملف قاعدة البيانات 

كود :
 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\saad1\saad1\saad\saad.mdb")

لانني قمت بتنزيل مشروعك على قسم D:\ في جهازي


كود البحث لديك كان

كود :
 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from T1 where الاسم و اللقب like '%" & TextBox9.Text & "%'", conn)
[size=small][font=Monaco, Consolas, Courier, monospace]       Table1DataGridView.DataSource = dt.DefaultView[/font][/size]
    da.Fill(dt)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub


وقد عدلته الى التالي:

كود :
 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from " & Me.SaadDataSet.Table1.TableName & " where [الاسم و اللقب] like '%" & TextBox9.Text & "%';", conn)
            da.Fill(dt)
            Table1DataGridView.DataSource = dt.DefaultView
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub


باختصار
تم تغيير جملة الاتصال
 وتم وضع الحقل المسمى الاسم واللقب  بين قوسين [] 

اتمنى يكون هذا الحل صحيح
الرد
#3
(24-04-20, 07:38 PM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
ورمضان مبارك عليك وعلينا وعلى كل المسلمين

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

كود جملة ا لاتصال لديك كان :

كود :
 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\saad.mdb")

وقد قمت بتعديله ليشير الى مسار حفظ ملف قاعدة البيانات 

كود :
 Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\saad1\saad1\saad\saad.mdb")

لانني قمت بتنزيل مشروعك على قسم D:\ في جهازي


كود البحث لديك كان

كود :
 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from T1 where الاسم و اللقب like '%" & TextBox9.Text & "%'", conn)
[size=small][font=Monaco, Consolas, Courier, monospace]       Table1DataGridView.DataSource = dt.DefaultView[/font][/size]
    da.Fill(dt)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub


وقد عدلته الى التالي:

كود :
 Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        Try
            Dim dt As New DataTable
            Dim da As New OleDbDataAdapter
            If conn.State = ConnectionState.Closed Then

                conn.Open()
            End If
            da = New OleDbDataAdapter("select * from " & Me.SaadDataSet.Table1.TableName & " where [الاسم و اللقب] like '%" & TextBox9.Text & "%';", conn)
            da.Fill(dt)
            Table1DataGridView.DataSource = dt.DefaultView
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        ' conn.Open()
        'Try
        'Dim cmdselect As New OleDbCommand
        'cmdselect.Connection = conn
        'cmdselect.CommandText = " select from Table1 where الاسم و اللقب = '%" + TextBox2.Text + "%' OR Number = '" + TextBox1.Text + "'"
        'Dim re As OleDbDataReader
        're = cmdselect.ExecuteReader
        'If re.Read Then
        'TextBox1.Text = re(0).ToString
        'TextBox1.Text = re(1).ToString
        'TextBox1.Text = re(2).ToString
        'TextBox1.Text = re(3).ToString
        'TextBox1.Text = re(4).ToString
        'TextBox1.Text = re(5).ToString
        'TextBox1.Text = re(6).ToString
        'TextBox1.Text = re(7).ToString
        'Else
        'MsgBox(" عقوا الاسم او الرقم غير موجود ")
        'End If

        'Catch ex As Exception
        'MsgBox(ex.Message.ToString)
        'End Try
        'conn.Close()
    End Sub


باختصار
تم تغيير جملة الاتصال
 وتم وضع الحقل المسمى الاسم واللقب  بين قوسين [] 

اتمنى يكون هذا الحل صحيح

 جزاك الله خير يا اخي ربي يحفظك
البرنامج شغال 100/100
يخصني كيفية عرض الصورة الخاصة بالشخص
الرد
#4
السلام عليكم ورحمة الله وبركاته
اخي رشيد احب ان الفت انتباهك الى شيئ مهم وهو ان لاتسمي اسماء الحقول في قاعدة البيانات باللغة العربية تفاديا لمشاكل جمل الاستعلام
بالنسبة لمشروعك اعدت انشاء مشروعك بكل اكواده من حفظ وتعديل وحذف مع اضافة الصورة والتنقلات والترقيم الكيفي Max Id
وطريقة الاتصال (الوضع المنفصل Indirect Connection) وكذلك اعدت انشاء قاعدة البيانات 
يمكنك تغيير تسمبات اللايبل واسماء الاعمدة في الداتا غرايد الى اللغة العربية هذا شانك وكذلك طريقة التصميم والالوان
اليك مشروعك
ملاحظة نسيت تغيير جملة الاتصال يجب تغييرها ال احد الكودين التاليين حسب نسخة الاكسس
اكسس 2003
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Saad1.mdb;persist security info=false;")
اكسس 2007 فما فوق
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Saad1.mdb;persist security info=false;")


الملفات المرفقة
.zip   SaadNew.zip (الحجم : 123.19 ك ب / التحميلات : 6)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#5
(24-04-20, 11:58 PM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته
اخي رشيد احب ان الفت انتباهك الى شيئ مهم وهو ان لاتسمي اسماء الحقول في قاعدة البيانات باللغة العربية تفاديا لمشاكل جمل الاستعلام
بالنسبة لمشروعك اعدت انشاء مشروعك بكل اكواده من حفظ وتعديل وحذف مع اضافة الصورة والتنقلات والترقيم الكيفي Max Id
وطريقة الاتصال (الوضع المنفصل Indirect Connection) وكذلك اعدت انشاء قاعدة البيانات 
يمكنك تغيير تسمبات اللايبل واسماء الاعمدة في الداتا غرايد الى اللغة العربية هذا شانك وكذلك طريقة التصميم والالوان
اليك مشروعك

اولا صح فطورك اخي ابراهيم و اشكرك على تعاونك معي لكن حاولت فتح المشروع فلم يشتغل
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#6
السلام عليكم
اخي انا متأسف لك ولكل من يقوم بتحميل المثال كوني تركت كود مسار الاتصال على حاله 
قم بتغيير هذا السطر وهو جملة الاتصال من هذا :
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\IBRAHIM\Desktop\vbArab\SaadNew\SaadNew\bin\Debug\Saad1.mdb;persist security info=false;")

استبدله بهذا السطر اكسس 2003
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Saad1.mdb;persist security info=false;")
او ههكذا ان كانت نسخة الاكسس 2007 فما فوق
كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Saad1.mdb;persist security info=false;")


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







الرد
#7
(25-04-20, 02:17 AM)ابراهيم ايبو كتب : السلام عليكم
اخي انا متأسف لك ولكل من يقوم بتحميل المثال كوني تركت كود مسار الاتصال على حاله 
قم بتغيير هذا السطر وهو جملة الاتصال من هذا :
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\IBRAHIM\Desktop\vbArab\SaadNew\SaadNew\bin\Debug\Saad1.mdb;persist security info=false;")

استبدله بهذا السطر اكسس 2003
كود :
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Saad1.mdb;persist security info=false;")
او ههكذا ان كانت نسخة الاكسس 2007 فما فوق
كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Saad1.mdb;persist security info=false;")
جزاك الله خبر اخي ابراهيم
بقي لي زر الطباعة وبقي لي ان اضع قورم ثاني لمراجعة لتسجيل مبلغ الاشتراكات الشهرية او السنوية

اريد اخي ابراهيم برمجة زر طباعة يطبع جدول الموجودة datagridiew
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#8
السلام عليكم ورحمة الله وبركاته
اخي رشيد يجب ان تتعلم وتبحث بنفسك وتجهد قليلا ... والله لمصلحتك وحتى تتقدم في البرمجة
بالنسبة لزر الطباعة الامر متعلق بنسخة الكريستال ريبورت التي مثبتها على جهازك 
وبعد عمل ذلك ستحتاج عند العميل نفس نسخة الكريستال runtime
المهم سأضع لك رابط من لشرح كيفية انشاء تقرير من حوالي 8 فيديوهات تابعها اولا ثم جرب مافهمته على مثال صغير
وبعد قم بانشاء نسخة احتياطية من برنامجك للعودة اليها في حال حدثت معك اخطاء عند برمجة التقارير
اتمنى ان تعي ما ارمي له من أجلك ادخل في تحدي مع نفسك وتسلح بالصبر والاصرار وستنجح بإذن الله
اليك الرابط

https://www.youtube.com/watch?v=T_1CJZTl...c_YuLGUUvR
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو ليلى , ابو ليلى , asemshahen5
#9
(25-04-20, 11:28 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي رشيد يجب ان تتعلم وتبحث بنفسك وتجهد قليلا ... والله لمصلحتك وحتى تتقدم في البرمجة
بالنسبة لزر الطباعة الامر متعلق بنسخة الكريستال ريبورت التي مثبتها على جهازك 
وبعد عمل ذلك ستحتاج عند العميل نفس نسخة الكريستال runtime
المهم سأضع لك رابط من لشرح كيفية انشاء تقرير من حوالي 8 فيديوهات تابعها اولا ثم جرب مافهمته على مثال صغير
وبعد قم بانشاء نسخة احتياطية من برنامجك للعودة اليها في حال حدثت معك اخطاء عند برمجة التقارير
اتمنى ان تعي ما ارمي له من أجلك ادخل في تدي مع نفسك وتسلح بالصبر والاصرار وستنجح بإذن الله
اليك الرابط

https://www.youtube.com/watch?v=T_1CJZTl...c_YuLGUUvR
صح فطورك اخي ابراهيم
كلامك اخي كله في الصميم جاري متابعة الدورة وعند اي طارئ جاري طلب المساعدة
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث بتاريخ اليوم في الدتا جريد فيو mazentq 3 61 منذ 53 دقيقة مضت
آخر رد: rochdi191
  [كود] اريد كود رسالة تنبيه datagridview فارغة sidi bibi 3 75 , 05:45 AM
آخر رد: sidi bibi
  [VB.NET] اريد اضافة امر الغاء الامر او العملية اي عملية داخل الفروم بشكل كامل Ahmed TEAM YEMEN 8 180 25-05-20, 08:51 PM
آخر رد: Ahmed TEAM YEMEN
  اريد تحريك الجمل أو الشرائح واحدة تلو الاخرى hamed.34552 0 36 25-05-20, 03:16 PM
آخر رد: hamed.34552
  جزئية بسيطة في الداتاسيت اريد ان اعرف كيف تتعاملون معها ابو محمد محمد محمد 4 79 16-05-20, 08:48 AM
آخر رد: عبدالله الدوسري
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 76 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري
  [VB.NET] إظهار جدول آخر يحمل البيانات عن طريق البحث من خلية في داتاغريد Alhootti1 2 102 06-05-20, 04:46 AM
آخر رد: Alhootti1
  [سؤال] ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم rachidclo 1 106 03-05-20, 09:21 AM
آخر رد: b4getws
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 31 1,165 02-05-20, 08:47 PM
آخر رد: علي سالم
  [سؤال] اريد طريقة اظافة شريط متحرك للفورم vb2010 الرجل الطيب 2 4,638 02-05-20, 05:46 PM
آخر رد: habeb4all

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم