كود بحث

#15 أغسطس 2011 في 04:37 صاحب الموضوع

كود للبحث

--------------------------------------------------------------------------------

السلام عليكم ورحمة الله وبركانه

اخوتى الكرام

اهنئكم بقدوم شهر رمضان

وادعوا الله ان يتقبل صيامنا وقيامنا

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

وان يجعلها سنة خير وعز ونصر للاسلام والمسلمين ..

اخوتى الكرام

عملت اتصال بين قاعدة بيانات اكسس 2003 وفيجول بيسك 2005ووضعت ازرار تنقل كما هو الاتى

Private Sub جدول1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles جدول1BindingNavigatorSaveItem.Click

Me.Validate()

Me.جدول1BindingSource.EndEdit()

Me.جدول1TableAdapter.Update(Me.SsDataSet.جدول1)

End Sub

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

'TODO: This line of code loads data into the 'SsDataSet.جدول1' table. You can move, or remove it, as needed.

Me.جدول1TableAdapter.Fill(Me.SsDataSet.جدول1)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PictureBox1.Visible = True

End Sub

Private Sub جدول1DataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles جدول1DataGridView.CellContentClick

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

جدول1BindingSource.Filter = " [المعرف] LIKE '%" & Trim(TextBox3.Text) & "%'"

End Sub

المطلوب

عندى زر وتكست

اريد عمل بحث

اريد اكتب كلمة في التكست فيعرض النتيجة في الداتا قرايد

جزاكم الله خيرا

تم تعديل هذه المشاركة بواسطة & الأمل & في 5 أغسطس 2011 في 04:38

#25 أغسطس 2011 في 13:57

وعليكم السلام ورحمة الله وبركاته ، وكل عام والمسلمين بخير ، اعاده الله علينا وعليكم بالخير والعافية

في الكوماند يوضع الكود التالي فقط

اسم الجدول table1

اسم الحقل المراد البحث فيه feild1

اسم التكست الخاص بالبحث TextBox1

جملة الاتصال conn

 Dim dp As New OleDbDataAdapter("SELECT * From table1 where feild1 like '%" & TextBox1.Text & "%' ", Conn)
        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds, "table1")

DataGridView1.DataSource = ds.Tables(0)

        dp.Dispose()

تم تعديل هذه المشاركة بواسطة محمدvb في 5 أغسطس 2011 في 13:58

#37 أغسطس 2011 في 07:36

جزاك الله خيرا

اخى الكريم

الله يرضى عليك

ممكن كود الاضافة /كودللتعديل/الحذف لنفس الكود السابق

(في نفس الفورم من خلال ادخال البيانات في 4/5/6تكست بوكس والعرض يكون في تكست بوكس1/2/3 )

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

ولكن كودالاضافة والتعديل كان كل منهما في فورم

وحاولت ان اكتب الكود في نفس الفورم ولكن محاولاتى باءت بالفشل

جزاكم الله خيرا

#47 أغسطس 2011 في 12:39

& الأمل & كتب:
جزاك الله خيرا
اخى الكريم
الله يرضى عليك
ممكن كود الاضافة /كودللتعديل/الحذف لنفس الكود السابق
(في نفس الفورم من خلال ادخال البيانات في 4/5/6تكست بوكس والعرض يكون في تكست بوكس1/2/3 )
حيث اتى اطلعت على شرح لاحدالاخوة واستفدت منه
ولكن كودالاضافة والتعديل كان كل منهما في فورم
وحاولت ان اكتب الكود في نفس الفورم ولكن محاولاتى باءت بالفشل
جزاكم الله خيرا

كود الاضافة

Dim Cmd As New OleDbCommand("INSERT INTO table1 (feild1,feild2,feild3) VALUES (@feild1,@feild2,@feild3)", conn)
            Cmd.Parameters.AddWithValue("@feild1", TextBox4.Text)
            Cmd.Parameters.AddWithValue("@feild2", TextBox5.Text)
            Cmd.Parameters.AddWithValue("@feild3", TextBox6.Text)

Conn.open
            Cmd.ExecuteNonQuery()
Cmd.Dispose()
            conn.Close()
            MsgBox("Insert Done")

كود التعديل

Dim Cmd As New OleDbCommand("UPDATE table1 set feild1=@feild1,feild2=@feild2,feild3=@feild3 where feild1=@feild1", conn)
        Cmd.Parameters.AddWithValue("@feild1", TextBox1.Text)

            Cmd.Parameters.AddWithValue("@feild1", TextBox4.Text)
            Cmd.Parameters.AddWithValue("@feild2", TextBox5.Text)
            Cmd.Parameters.AddWithValue("@feild3", TextBox6.Text)

        conn.Open()

            Cmd.ExecuteNonQuery()
Cmd.Dispose()
            conn.Close()
            MsgBox("Update Done")

كود الحذف


Dim Cmd As New OleDbCommand("DELETE FROM table1 where feild1=@feild1", conn)
        Cmd.Parameters.AddWithValue("@feild1", TextBox4.Text)
        conn.Open()

           Cmd.ExecuteNonQuery()
Cmd.Dispose()
            conn.Close()
            MsgBox("Delete Done")

تم تعديل هذه المشاركة بواسطة محمدvb في 7 أغسطس 2011 في 23:09

#57 أغسطس 2011 في 14:50

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

اخي محمد عندي انتقاد بسيط في كود التعديل, لماذا قمت بتعديل ال field1 اصلا هو المستخدم في جملة الشرط!!

.:: Wish to become better and better ::.

#67 أغسطس 2011 في 16:00

اخى الكريم

جزاك الله خيرا

ممكن شرح للكود لان كود البحث مشى معى

والاكواد الباقية لم تضبط معى

SqlCommand هل هى OleDbDataAdapter

هنا SqlCommand ( Cmd)

جعله الله في ميزان اعمالكم

#77 أغسطس 2011 في 18:12

& الأمل &

Sql يقابلها OleDb

مثلا (SqlCommand) يقابلها (OleDbCommand)

أيضاً (SqlDataAdapter) يقابلها (OleDbDataAdapter)

بمعنى آخر فقط كلمة (Sql) تستبدل بـ (OleDb)

وللمعلومية (Sql) لقواعد البيانات (SQLSERVER)

و (OleDb) لقواعد البيانات (ACCESS)

على العموم تم تعديل المشاركة بالأعلى ليتناسب مع العمل على أكسس

#87 أغسطس 2011 في 22:21

اخى الكريم مازال الخطا موجود

في

INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)", conn)

زفي كل من

Cmd

======

Dim Cmd As New OleDbCommand INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)", conn)

Cmd.Parameters.AddWithValue("@First", TextBox4.Text)

Cmd.Parameters.AddWithValue("@second", TextBox5.Text)

Cmd.Parameters.AddWithValue("@third", TextBox6.Text)

Conn.Open()

Cmd.ExecuteNonQuery()

Cmd.Dispose()

Conn.Close()

MsgBox("Insert Done")

علما اخى الكريم ان كود الاتصال هو

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source =" & Application.StartupPath & "\dd.mdb"

Dim Conn As New OleDbConnection(ConStr)

Dim DataSet1 As New DataSet

Dim SQLstr As String = "SELECT * FROM Table1"

جزاكم الله خيرا وزادكم علما

#97 أغسطس 2011 في 23:12

& الأمل & كتب:
اخى الكريم مازال الخطا موجود
في
INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)", conn)
زفي كل من
Cmd
======
Dim Cmd As New OleDbCommand INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)", conn)
Cmd.Parameters.AddWithValue("@First", TextBox4.Text)
Cmd.Parameters.AddWithValue("@second", TextBox5.Text)
Cmd.Parameters.AddWithValue("@third", TextBox6.Text)
Conn.Open()
Cmd.ExecuteNonQuery()
Cmd.Dispose()
Conn.Close()
MsgBox("Insert Done")
علما اخى الكريم ان كود الاتصال هو
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\dd.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM Table1"
جزاكم الله خيرا وزادكم علما

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

وأيضاً هنا كود الحفظ تم تعديله ليصبح بهذه الطريقة

Dim Cmd As New OleDbCommand("INSERT INTO table1 (First,second,third) VALUES (@First,@second,@third)", conn) 

        Cmd.Parameters.AddWithValue("@First", TextBox4.Text)
        Cmd.Parameters.AddWithValue("@second", TextBox5.Text)
        Cmd.Parameters.AddWithValue("@third", TextBox6.Text)

        Conn.Open()
        Cmd.ExecuteNonQuery()
        Cmd.Dispose()
        Conn.Close()
        MsgBox("Insert Done")

#108 أغسطس 2011 في 03:57

اخى الكريم

مازالت هناك مشكلة

هذا هو المشروع

جزاك الله خيرا

قاعدة + البحث.rar

#118 أغسطس 2011 في 05:16

شفت المثال المشكلة في اسماء الحقول (First And second And third)

هنالك اسماء محجوزة لا يجب التعدي عليها فاليجوال بيسك لا يقبلها

الحل تغيير First مثلا لتصبح First1 وهكذا لبقية الحقول

فقط

#128 أغسطس 2011 في 12:18

الإضافة 

me.1BindingSource.addnew

الحذف

me.1BindingSource.removecurrent

التالي

me.1BindingSource.movenext

السابق

me.1BindingSource.moveprevious

#138 أغسطس 2011 في 15:00

جزاكم الله خيرا

اخى الكريم

محمدvb

اريد كود عند النقر على اضافة يضيف صف جديد لادخال البيانات

مازال هناك خطاء

الحفظ

يتم الحفظ لكن النتيجة تظهر بعد اغلاغ البرانامج ومن ثم فتحه

التعديل

هناك رسالة خطاء في الكود

Cmd.ExecuteNonQuery()

الحذف

يتم الحذف لكن النتيجة تظهر بعد اغلاغ البرانامج ومن ثم فتحه

اخى الكريم ryadh

هل تعنى استبدال

الكود

Me.BindingSource.addnew("@First1", TextBox1.Text)

بالكود

Cmd.Parameters.AddWithValue("@First1", TextBox1.Text)

جزاكم الله خيرا

هذا هو الملف

33.rar

#148 أغسطس 2011 في 16:46

& الأمل & كتب:
جزاكم الله خيرا
اخى الكريم
محمدvb
اريد كود عند النقر على اضافة يضيف صف جديد لادخال البيانات
الكود الخاص بالإضافة اي تهيئة التكستات يكون هكذا
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus
مازال هناك خطاء
الحفظ
يتم الحفظ لكن النتيجة تظهر بعد اغلاغ البرانامج ومن ثم فتحه
طبيعي جدا لاننا لم نقوم بمعالجة الامر
ببساطة عند تشغيل البرنامج يتم جلب بيانات الجدول ووضعها في داتاسيت1 ليتم التنقل بينها ،،،، وعند حفظ سجل جديد أو تعديل أو حذف سجل يتم على الجدول داخل قاعدة البيانات
وتبقى البيانات كما هي داخل الداتاسيت1 الخاصة بالتنقل بين السجلات،،،،، وعند الخروج من البرنامج والدخول له يتم جلب البيانات كامله ووضعها في الداتاسيت1 وبذلك تكون ظاهرة
البيانات،،،،،،،،،،،،،،،،،،، الحل يتم تحديث بيانات الداتاسيت1 ليتم جلب البيانات من جديد بعد كل عملية سواء حفظ او تعديل او حذف... بكذا وضحة الصورة
التعديل
هناك رسالة خطاء في الكود
Cmd.ExecuteNonQuery()
فيما يخص التعديل ورسالة الخطأ التي تظهر يجب تعديل مسميات الحقول في جملة السيلكت حيث اني وجدتها Feild1 و Feild2 يجب تعديلها للتتناسب مع حقول الجدول
الحذف
يتم الحذف لكن النتيجة تظهر بعد اغلاغ البرانامج ومن ثم فتحه
نفس موضوع الحفظ تم شرح الطريقة بالأعلى
جزاكم الله خيرا
هذا هو الملف

#159 أغسطس 2011 في 06:53

احوتى الكرام

اثابكم الله عنا خيرالجزاء

تم التوصل الى الحل بفضل الله ثم فضلكم

ولى عودة للاستفسار حول بغض الاكواد

كذلك لى استفسار

في حال ان عندى عدد من التكست بوكس (مثلا خمسة )متتالية كل منها يحورقم

المطلوب

كيف ارتب الارقام من الاصفر الى الاكبر

(ممكن يكون هناك تكست بوكس مثلا بعدد التكست الموجودةويكون الترتيب في هولاء )

جزاكم الله خيرا

#1612 أغسطس 2011 في 02:47

احوتى الكرام

جزاكم الله خيرا

وجدت خطا في كود التعديل

الكود

Dim n As String = Label1.Text

Dim SavInto As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\dd.mdb"

Dim Conn As New OleDbConnection(ConStr)

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "UPDATE Table1 SET First1 = '" & Trim(TextBox1.Text) & "' ,second1 = '" & _

Trim(TextBox2.Text) & "' , third1= '" & Trim(TextBox3.Text) & "' WHERE third1 ='" & n & "'"

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("تم التعديل والحفظ")

المشكلة عندما انغر على زر التعديل بعدتعديل البيانات

واغلق البرنامج وافتحه لايتم حفظ البيانات

ارجواجد حل للمشكلة

جزاكم الله خبرا

كود بحث

مواضيع مشابهة