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

سؤال

مغلق
بدأه The king في 10 مارس 2002 · 2 رد · 388 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لو سمحتم اي شخص يشرح هذا الكود:

<%<% 
on error resume next
	dim con

		set con=server.createObject("ADODB.Connection")
		con.open("orders")
		sql="insert into type(type) values('"
		sql=sql & request.form("type") & "')"
		con.execute(sql)
		con.close


response.redirect("newtype.htm")
%>

وكيف اعدل فيه إذا كان اسم الداتابيس -food- والجدول -kinds- والحقل -kind-

#2

تحية لك أخي ..

أنا حبيت أوضح ان سؤالك في ال ASP و ليس ال PHP و ثانيا كشرح للموضوع السابق :

أولا قمنا بتعريف كائن الاتصال و أسندناه للقيمة con

ثم قمنا بفتح قاعدة بيانات اسمها food كما أردت أنت باستخدام الجملة : [/l] [l]con.open("food")[/l]

ثم استخدمنا لغة الاستعلام sql كجملة لادخال بيانات في جدول kinds في العمود kind و التي ستكون قيمتها قادمة اليها من حقل في صفحة اخرى و اسم الحقل type كالتالي :

[l]

sql="insert into kinds(kind) values('"

sql=sql & request.form("type") & "')"

[/l]

ثم قمنا بتنفيذ الاستعلام و تخزين البيانات في القاعدة باستخدام con.execute(sql)

ثم قمنا بانهاء جلسة الاتصال باستخدام con.close

[l]

on error resume next

dim con

set con=server.createObject("ADODB.Connection")

con.open("food")

sql="insert into kinds(kind) values('"

sql=sql & request.form("type") & "')"

con.execute(sql)

con.close

response.redirect("default.asp")

%>

[/l]

هذا ما لدي و أتمنى أن أكون وفقت في الشرح

You can fly while you can touch the sky

#3

اسف على الخربطة بالأعلى مثل ما يقولون خلل فني ..

تحية لك أخي ..

أنا حبيت أوضح ان سؤالك في ال ASP و ليس ال PHP و ثانيا كشرح للموضوع السابق :

أولا قمنا بتعريف كائن الاتصال و أسندناه للقيمة con

ثم قمنا بفتح قاعدة بيانات اسمها food كما أردت أنت باستخدام الجملة :

[l]con.opec("food")[/l]

و جملة on error resume next تقوم بالتجاوز عن الخطأ حال حدوثه ..

ثم استخدمنا لغة الاستعلام sql كجملة لادخال بيانات في جدول kinds في العمود kind و التي ستكون قيمتها قادمة اليها من حقل في صفحة اخرى و اسم الحقل type كالتالي :

[l]

sql="insert into kinds(kind) values('"

sql=sql & request.form("type") & "')"

[/l]

ثم قمنا بتنفيذ الاستعلام و تخزين البيانات في القاعدة باستخدام con.execute(sql)

ثم قمنا بانهاء جلسة الاتصال باستخدام con.close

[l]

on error resume next

dim con

set con=server.createObject("ADODB.Connection")

con.open("food")

sql="insert into kinds(kind) values('"

sql=sql & request.form("type") & "')"

con.execute(sql)

con.close

[/l]

أما هذه الجملة فتقوم بالنتقال بك للصفحة التي حددتها ..

response.redirect("default.asp")

%>

هذا ما لدي و أتمنى أن أكون وفقت في الشرح

You can fly while you can touch the sky

هذا الموضوع مغلق.

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