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

#130 أكتوبر 2011 في 14:32 صاحب الموضوع

الاخوة الاعزاء في هذا المنتدى الرائع

اود منكم ان تعلموني بكيفية عرض نتيجة البحث في فورم جديدة تظهر بالشكل المرفق مع هذا السؤال وهل الكود التالي صحيح ام بحاجة الى تعديل....؟؟؟؟

وبارك الله فيكم جميعا

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

Try

Me.ProductsTableAdapter.FillBy_Company_Name(Me.HbcDataSet.products)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

Dim parent As Form = Me.FindForm

Dim popup As Form4 = New Form4()

popup.Location = New Point(parent.Left + Button1.Left - 500, parent.Top + Button1.Bottom + Button1.Height + 115)

popup.Show()

End Sub

belal_musallam كتب:
الاخوة الاعزاء في هذا المنتدى الرائع
اود منكم ان تعلموني بكيفية عرض نتيجة البحث في فورم جديدة تظهر بالشكل المرفق مع هذا السؤال وهل الكود التالي صحيح ام بحاجة الى تعديل....؟؟؟؟
وبارك الله فيكم جميعا
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.ProductsTableAdapter.FillBy_Company_Name(Me.HbcDataSet.products)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Dim parent As Form = Me.FindForm
Dim popup As Form4 = New Form4()
popup.Location = New Point(parent.Left + Button1.Left - 500, parent.Top + Button1.Bottom + Button1.Height + 115)
popup.Show()
End Sub

ملاحظة

اود توضيح امر اخر وهو ان البيانات المعروضة في الصورة المرفقة هي بيانات الجدول كاملة وليست نتيجة البحث وهذا للتوضيح فقط....

المرفقات

#230 أكتوبر 2011 في 17:25

هو موضوع سهل على فكره بس انا مش متذكر الكود ده حاليا بس يوجد مكان كنت قرأت فيه مجموعة اكواد ممكن تلاقيه فيه هنا

#330 أكتوبر 2011 في 21:51

السلام عليكم اخي الكريم

هذا مثال على طلبك

بالتوفيق

Search.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#431 أكتوبر 2011 في 12:05

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

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

لقد اطلعت على المثال المرفق في ردك وكان يعمل 100% وعندما حاولت ان اطبقه على برنامجي لم يعمل

ارجو منك سعة الصدر وان تتحملني للاخر وتراعي انني مبتديء في هذا الموضوع

سوف ارفق لك الكود الذي اتعامل معه وهو عمل اتصال غير بمجي بقاعدة البيانات وانما wizard واتمنى منك ان تعلمني كيف يمكنني ان اوافق بين هذا الكود والكود الموضح في مثالك المرفق

هذا هو كود برنامجي

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

Try

Me.ProductsTableAdapter.FillBy_Company_Name(Me.HbcDataSet.products)

Catch ex As System.Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

وهذا هو كود مثالك المرفق

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\arabteam.mdb"

Dim conn As New OleDbConnection(str)

Dim dataset1 As New DataSet

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

End Sub

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

If TextBox1.Text = "" Then

MsgBox("الرجاء ادخال كلمة البحث")

Exit Sub

End If

Try

Dim Sql As String = "Select * From products where id = '" & TextBox1.Text & "'"

conn.Open()

dataset1.Clear()

Dim ad As New OleDbDataAdapter(Sql, conn)

ad.Fill(dataset1, "products")

Form2.dg1.DataSource = dataset1

Form2.dg1.DataMember = "products"

conn.Close()

Form2.ShowDialog()

Catch ex As Exception

MsgBox("لم يتم العثور على نتيجة")

Exit Sub

End Try

End Sub

End Class

وبارك الله فيك على سعة صدرك

#531 أكتوبر 2011 في 13:15

اخي العزيز هذا مثال على طلبك وهو بالمعالج

بالنسبة للكود الذي كتبته قبل سوف يتم شرحه لك اليوم باذن الله

اتركك مع المثال

بالتوفيق

Search with Wizred.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#631 أكتوبر 2011 في 13:17

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

اخي بلال ارى انك قمت بتعبئة الجدول من قاعدة البيانات والسؤال كيف سيتعرف على الشركة المراد البحث عن منتجاتها؟!! ارى ان تضيف وسيطا ليتم تمرير اسم الشركه, من ثم قم باستدعاء FillByCompany

تم تعديل هذه المشاركة بواسطة VB Helper في 31 أكتوبر 2011 في 13:18

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

#731 أكتوبر 2011 في 15:07

السلام عليكم

اخي بلال الكود الذي استخدمته في المثال الاول عبارة عن كود منفصل او بما يسمى الوضع المنفصل

بحيث في كل مرة يتم تشغيل البرنامج يقوم البرنامج بعمل اتصال مع قاعدة البيانات واجراء العمليات من اضافة وتعديل و حذف و استعلام بعدها يتم اغلاق الاتصال

عند انتهاء العملية مع العلم ان البرنامج مازال يعمل (الاتصال بقاعدة البيانات فقط عند الحاجة لعمل اي عملية التي تم ذكرها

اما المعالج Wizred فهو يسمى بوضع المتصل بما انه البرنامج منذ تشغيله ولتحى اغلاقه تضل قاعدة البيانات متصله معه ويتم تطبيق العمليات الاربع بشكل مباشر على قاعدة البيانات

ولا داعي لطلب الاتصال لان الاتصال مفتوح مع قاعدة البيانات ويتم انهاء الاتصال كما ذكرت مع اغلاق او انهاء البرنامج

ارجو ان اكون وفيت الشرح لك اخي بلال

واي استفسار اخر انا جاهز

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#831 أكتوبر 2011 في 16:36

عبدالرحمن المرشود كتب:
السلام عليكم
اخي بلال الكود الذي استخدمته في المثال الاول عبارة عن كود منفصل او بما يسمى الوضع المنفصل
بحيث في كل مرة يتم تشغيل البرنامج يقوم البرنامج بعمل اتصال مع قاعدة البيانات واجراء العمليات من اضافة وتعديل و حذف و استعلام بعدها يتم اغلاق الاتصال
عند انتهاء العملية مع العلم ان البرنامج مازال يعمل (الاتصال بقاعدة البيانات فقط عند الحاجة لعمل اي عملية التي تم ذكرها
اما المعالج Wizred فهو يسمى بوضع المتصل بما انه البرنامج منذ تشغيله ولتحى اغلاقه تضل قاعدة البيانات متصله معه ويتم تطبيق العمليات الاربع بشكل مباشر على قاعدة البيانات
ولا داعي لطلب الاتصال لان الاتصال مفتوح مع قاعدة البيانات ويتم انهاء الاتصال كما ذكرت مع اغلاق او انهاء البرنامج
ارجو ان اكون وفيت الشرح لك اخي بلال
واي استفسار اخر انا جاهز
بالتوفيق

بارك الله في كل من الاخوة vb he;per والاخ عبدالرحمن على هذا المجهود الرائع

واود منكم مجددا انتاخذوني بسعة صدركم

لقد قمت بعمل البرنامج واواجه بعض المشاكل واود ان ارفق لكم هذا البرنامج لتقومو بفحصه وحل المشاكل العالقة فيه وهي :

1- اول ما يشتغل البرنامج يفتح على فورم 3 وهي فورم قد قمت بحذفها ولا اعلم لماذا يقوم بفتح البرنامج عليها

2- البرنامج هو في فورم 1،2،4 فقط اما فورم 5،6 فاني انوي استخدامهما في المستقبل بعد التاكد من عمل البرنامج بشكل سلمي 100% وعندها افكر في ايجاد طرق اخرى للبحث والتعديل والتطوير في البرنامج

3- ارجو التاكد من الاضافة والبحث والتعديل والحذف حيث انني الاحظ انه يضيف في قاعدة البيانات واحيانا لايضيف وهذا الامر ينطبق على الحذف والتعديل وبقية الامور

4-اود منكم مساعدتي بخصوص كيفية ربط navigator بنتيجة البحث بحيث يظهر في نتيجة البحث عدد السجلات التي وجدها

5-كيفية عمل زر يقوم بتحديث بيانات الجدول

6-كيفية عمل زر لترتيب الجدول تصاعدي او تنازلي

7-ارجو ابلاغي هل البرنامج بهذا الوضع بمعنى هل انا اسير في الطريق الصحيح ام انني ضللت الطريق في البرمجة واقوم بعمل خاطيء

ملاحظة

اود ان ارفق الملف مع السؤال ولكن الحجم اكثر من المسموح به

ارجو ابلاغي عن كيفية رفع الملف لتكون الصورة اكثر وضوحا وتتمكنوا من فهم مشكلتي اكثر واكثر

ارجو ابلاغب اذا كانت هناك امكانية لارسال الملف على الايميل

#931 أكتوبر 2011 في 18:52

belal_musallam كتب:
3- ارجو التاكد من الاضافة والبحث والتعديل والحذف حيث انني الاحظ انه يضيف في قاعدة البيانات واحيانا لايضيف وهذا الامر ينطبق على الحذف والتعديل وبقية الامور
4-اود منكم مساعدتي بخصوص كيفية ربط navigator بنتيجة البحث بحيث يظهر في نتيجة البحث عدد السجلات التي وجدها
5-كيفية عمل زر يقوم بتحديث بيانات الجدول
6-كيفية عمل زر لترتيب الجدول تصاعدي او تنازلي
7-ارجو ابلاغي هل البرنامج بهذا الوضع بمعنى هل انا اسير في الطريق الصحيح ام انني ضللت الطريق في البرمجة واقوم بعمل خاطيء
ملاحظة
اود ان ارفق الملف مع السؤال ولكن الحجم اكثر من المسموح به
ارجو ابلاغي عن كيفية رفع الملف لتكون الصورة اكثر وضوحا وتتمكنوا من فهم مشكلتي اكثر واكثر
ارجو ابلاغب اذا كانت هناك امكانية لارسال الملف على الايميل

aaltra5@yahoo.com هذا ايميلي انا جاهز للمساعدة

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#101 نوفمبر 2011 في 09:53

عبدالرحمن المرشود كتب:
aaltra5@yahoo.com هذا ايميلي انا جاهز للمساعدة
بالتوفيق

بااااااااااااااااااااااااااااااااااااارك الله فيييييييييييييييييييييييييييييك

وجعله الله في ميزان حسناتك وفي صحيفة اعمالك

سوف اقوم بارسال الملف اليك على الايميل

Test project.part1.rar

#111 نوفمبر 2011 في 13:47

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

اخي عبدالرحمن ارجو التواصل عبر المنتدى لتعم الفائدة .. بالتوفيق ..

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

#121 نوفمبر 2011 في 19:00

VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي عبدالرحمن ارجو التواصل عبر المنتدى لتعم الفائدة .. بالتوفيق ..

اخي العزيز vb helper باذن الله سوف يتم مشاركة الاخطاء التي توجد في برنامج الاخ بلال ونحن لا نبخل على اخواننا العرب بالمعلومات

وسوف يم الرد بالشكل المطلوب باذن الله

تكرم عيونك

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#133 نوفمبر 2011 في 19:12

السلام عليكم

كل عام والجميع بالف خير بمناسبة عيد الاضحى

اخي بلال كما وعدتك هذا مثال كامل على ما طلبت وارجو ان تعم الفائدة على الجميع في هذا المنتدى

هذا المثال بالمرفقات

ملاحظة البحث يتم اما بلكلمة كاملة او بحرف حسب الطلب

بالتوفيق

test program1.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#149 نوفمبر 2011 في 11:52

عبدالرحمن المرشود كتب:
السلام عليكم
كل عام والجميع بالف خير بمناسبة عيد الاضحى
اخي بلال كما وعدتك هذا مثال كامل على ما طلبت وارجو ان تعم الفائدة على الجميع في هذا المنتدى
هذا المثال بالمرفقات
ملاحظة البحث يتم اما بلكلمة كاملة او بحرف حسب الطلب
بالتوفيق

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

واسال الله جل في علاه ان يجمعنا على جبل عرفات وفي المسجد الاقصى هذا في الدنيا وان يجمعنا بالحبيب المصطفى في جنات النعيم.............. اللهم امين

قبل كل شيء شكرا لك ييا اخ عبدالرحمن وسوف اقوم بفحص البرنامج والرد عليك قريبا...

وبارك الله فيك

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

المرفقات

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

عدد الزوار حالياً