الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفيه الاسترجاع من جدول و طرحها في جدول اخر

بدأه Elayan في 26 ديسمبر 2011 · 14 رد · 512 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اود الاستفسار عن غرض معين

انا اعمل على مشروع تخرجي

لتسهيل الاستفسار عليكم

انا لدي عدة جداول

يوجد جدول مهم لدي وهو جدول الزبون , أود أن اقوم بسحب أرقام الزبائن ( الـ Primary Key) من جدول الزبون , و ادخالها في جدول اخر .... باستخدام البرمجه ( كودينج ) تحت بيئه الفي بي , مع العلم بأنه لا يوجد في التصميم أي شيء يدل على الـ PK للزبون .... يعني اود ان يأخذه من جدول و يزرعه في جدول .... هل تستطيعون مساعدتي ؟

#2

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

اخي جرب الكود التالي

Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("Insert Into Table1...",conn)
conn.Open()
cmd.ExecuteNonQuery()
cmd = New SqlCommand("Select Max(PK) From Table1",conn)
Dim returnValue As Object = cmd.ExecuteScalar()
cmd = New SqlCommand("Insert Into Table2 Values(@PK,....)",conn)
cmd.Parameters.AddWithValue("PK",returnValue)
cmd.ExecuteNonQuery()
conn.Close()
1

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

#3

راح اجرب و ارد لك خبر ضديقي

#4

طيب اخوي بدي اسالك : انا المشروع عندي .... لما زبون يختار الطلب و يطلبه بيثبت معلوماته بجدول الزبائن و بيعطيه رقم PK تلقائياً ...... و بيربطه مع جداول تانيه ( الطلبات) ع رقمه بس هاي عن طريقي انا

يعني افسر لك اكثر

يملأ الزبون معلوماته و يثبته االنظام بجدول الزبائن

الزبون اختار نوعين بيتزا ... بيتزا حجم صغير و بيتزا كبير ..... يتم تثبيتهم في جدول اسمو البيتزا .... جدول البيتزا موجود فيه ارتباط ما بين جدول البيتزا و جدول الزبائن ... يعين PK للزبون مربوط مع جدول البيتزا .....

الان لما تم عملية تثبيت طلب الزبون ( اليتزا و نوعها و عددها ... الخ , ) اريد كود يجلب رقم الزبون هذا من جدول الزبائن و يضعه في جدول البيتزا .... حتى اقدر احدد مين ياللي طلب البيتزا هاي

اتمنى تكون وضحت الصورة

#5

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

اخي ذكرت هذا سابقا, اولا عليك جلب رقم الزبون بالاستعلام التالي

Select ID From Customers Where Name='???'

حيث اسم الزبون يأتي من اي اداة ادخال, بعدها قم باضافة بيانات الطلبات مع الاستفادة من رقم الزبون المرجع من الاستعلام السابق

1

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

#6

طيب اخوي في امكانيه توضحلي الامور بشكل ادق لو ما فيها غلبه و بكون ممنون الك :)

#7

بصراحه اخي حاولت اني اعمل مثل ما قلت لي ما زبط معي ما عرفت ساويها

#8

أخوي انا حاولت اعمل لها Stored Procedure

وطلع معيا الناتج التالي

فهل هي صحيحه ؟

ALTER PROCEDURE dbo.SelectCustomer
@Customer_id as int
AS
INSERT INTO pizza
                         (c_id)
SELECT        c_id
FROM            customer
where c_id=@Customer_id
	RETURN
#9

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

اخي ايش الداعي من جملة الادراج داخل الاجراء رغم انه مخصص لجلب قيمة رقم الزبون, كان شرحي السابق على اساس عمل الكود في الـ Front-End وليس في الـ Back-End

1

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

#10

ما فهمت عليك يا اخي الكريم , ارجوك ساعدني باقل اقل من اسبوع على مشروع تخرجي

يعني عم أبحث عن طريقه لـ ادراج رقم الزبون داخل جدول البيتزا و السلطات ( يعني الطلبات ) ... و هي تقريبا اخر العقبات في مشروع تخرجي

#11

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

#12

شاهد اخي الكود الذي كتبته من خلال فهمي لـ شرحك

 ' بداية كود سحب رقم الزبون 
                    Dim conn As New SqlConnection("ConnectionString")
                    Dim custo As New SqlCommand("Insert Into pizza c_id", conn)
                    conn.Open()
                    custo.ExecuteNonQuery()
                    custo = New SqlCommand("Select Max(c_id) From customer", conn)
                    Dim returnValue As Object = custo.ExecuteScalar()
                    custo = New SqlCommand("Insert Into Pizza Values(@c_id)", conn)
                    custo.Parameters.AddWithValue("c_id", returnValue)
                    custo.ExecuteNonQuery()
                    conn.Close()
                    ' نهاية كود سحب رقم الزبون

و شاهد الخلل الذي ظهر لي

Format of the initialization string does not conform to specification starting at index 0.

علماً بأني وضعت هذا الكود قبل اجراء اي عملية اضافه قطعه بيتزا ... لأنني اريد ان اضيف رقم الزبون بجانب كل صف في جدول البيتزا

#13

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

اخي جرب الكود التالي

Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("Select c_id From Cutomer Where name='" & txtName.Text & "'",conn)
conn.Open()
Dim ID As Integet = Convert.ToInt32(cmd.ExecuteScalar())
conn.Close()

وبعدها يمكنك اضافة قيمة المتغير ID في جدول الطلبيات

1

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

#14

طيب كيف اعطيه امر اضافه الـ ID

؟

#15

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

اخي جرب الكود التالي

Dim conn As New SqlConnection("ConnectionString")
Dim cmd As New SqlCommand("insert into orders values(" & ID & ",....")",conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

وفي مكان النقط قم باكمال بيانات الطلبية

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

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

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

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…