مشكلة في إضافة البيانات الى الdb

#11 يناير 2005 في 21:17 صاحب الموضوع

بدأت بعمل موقع صغير بـالـ asp لمعرفة خصائص هذه اللغة ولكن للاسف عندي مشكلة في إضافة بيانات إلى الـdb فأرجو ممن لديهم خبرة في هذه اللغة مساعدتي في تصحيح هذا الكود

<%@ Language=VBScript %>
<%
Dim name,birthday_day, birthday_month, birthday_year, nationality, cardid, status
dim city, pobox, education, phone, mobile, email, zipcode 
name = Request.Form("name")
birthday_day = Request.Form("birthday_day")
birthday_month = Request.Form("birthday_month")
birthday_year = Request.Form("birthday_year")
nationality = Request.Form("nationality")
cardid = Request.Form("cardid")
status = Request.Form("status")
education = Request.Form("education")
phone = Request.Form("phone")
mobile = Request.Form("mobile")
email = Request.Form("email")
zipcode = Request.Form("zipcode")
city = Request.Form("city")
pobox = Request.Form("pobox")

dim Conn
dim Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("db.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from newstud", Conn, 1,3
Rs.AddNew
Rs("name")=name
Rs("birthday_day")=birthday_day
Rs("birthday_month")=birthday_month
Rs("birthday_year")=birthday_year
Rs("nationality")=nationality
Rs("cardid")=cardid
Rs("status")=status
Rs("education")=education
Rs"phone")=phone
Rs("mobile")=mobile
Rs("email")=email
Rs("zipcode")=zipcode
Rs("city")=city
Rs("pobox")=pobox

Rs.update

set Rs = nothing
set Conn = nothing
%>

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

أرجو مساعدتي

وشكرا

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 2 يناير 2005 في 07:38

إذَاخَلوت بِريبَة في ظُلمةٍِ , والنَفسُ داعِيةٌٍ الى الطغيَان,فاخشَ مِن نظرِِ الإلهِ وقُل لهَا: إنًّ الذي خَلق الظَلام يراني

#22 يناير 2005 في 07:52

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

<%
'خواص الاتصال
 Set cn=createObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/testproj/dbName.mdb")
'فتح الاتصال
 cn.Open(ConnStr)

'إنشاء كائن ريكوردسيت
Set Rs=CreateObject("ADODB.RecordSet")
Rs.Open "SELECT * from newstud", Conn, 3,3

'إضافةحقول جديده
Rs.addnew
'قلل من حجم الكود بقراءة الحقول مباشره بدل من وضعه قيمتها فى متغير
Rs("name")=Request.Form("name")
Rs("birthday_day")=Request.Form("birthday_day")
Rs("birthday_month")=Request.Form("birthday_month")
Rs("birthday_year")=Request.Form("birthday_year")
Rs("nationality")=Request.Form("nationality")
Rs("cardid")=Request.Form("cardid")
Rs("status")= Request.Form("status")
Rs("education")= Request.Form("education")
Rs"phone")= Request.Form("phone")
Rs("mobile")= Request.Form("mobile")
Rs("email")= Request.Form("email")
Rs("zipcode")= Request.Form("zipcode")
Rs("city")= Request.Form("city")
Rs("pobox")= Request.Form("pobox")
'قم بتحديث الحقول
Rs.update
'غلق الريكوردسيت
Rs.close
'إزالة الكائنات من ذاكرة التطبيق
set Rs = nothing
set Cn = nothing
%>

فى حال تكرار ادخال البيانات فلا يفضل غلق الاتصال ثم اعادة فتحه من جديد بل يوضع داخل ال Application Object

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 2 يناير 2005 في 13:12

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#32 يناير 2005 في 12:36

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

هل هذا يعني وجود مشكلة في الـ db عندي أم في الـ iis ؟؟

في انتظار المزيد من المساعدة لحل هذه المشكلة

وشكرا

إذَاخَلوت بِريبَة في ظُلمةٍِ , والنَفسُ داعِيةٌٍ الى الطغيَان,فاخشَ مِن نظرِِ الإلهِ وقُل لهَا: إنًّ الذي خَلق الظَلام يراني

#42 يناير 2005 في 13:16

هل اخبرتنى كيف قمت باختبار الكود؟

عليك بوضع قاعدة البيانات و صفحات الموقع فى مجلد testproj ثم إنشاء virtural directory يحمل نفس الاسم مثلاً يشير إلى هذا المجلد ثم اختبار الموقع من المتصفح كالاتى :

http://localhost/testproj/default.html

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#52 يناير 2005 في 16:36

قمت بعمل الـ virtual address من قبل وقمت باختبار الموقع من المتصفح بالطريقة المذكورة ولم تنجح العملية ابدا....

مجلد العمل مرفق ارجو الاطلاع عليه ولفت نظري الى الاخطاء الموجودة فيه

آمل مساعدتك

test.zip

إذَاخَلوت بِريبَة في ظُلمةٍِ , والنَفسُ داعِيةٌٍ الى الطغيَان,فاخشَ مِن نظرِِ الإلهِ وقُل لهَا: إنًّ الذي خَلق الظَلام يراني

#62 يناير 2005 في 19:29

قمت بتجريب الكود الاتى

<% 
Set Conn = createObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/testproj/dbName.mdb")
Conn.Open(ConnStr)

Set Rs = CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from newstud", Conn, 3,3
Rs.AddNew

Rs("name")=Request.Form("name")
'Rs("birthday_day")= Request.Form("birthday_day")
'Rs("birthday_month")=Request.Form("birthday_month")
'Rs("birthday_year")=Request.Form("birthday_year")
'Rs("nationality")=Request.Form("nationality")
'Rs("cardid")=Request.Form("cardid")
'Rs("status")=Request.Form("status")
'Rs("education")=Request.Form("education")
'Rs("phone")= Request.Form("phone")
'Rs("mobile")= Request.Form("mobile")
'Rs("email")=Request.Form("email")
'Rs("zipcode")=Request.Form("zipcode")
'Rs("city")=Request.Form("city")
'Rs("pobox")=Request.Form("pobox")

Rs.update

Rs.Close
Conn.Close
set Rs = nothing
set Conn = nothing
%>

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

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 2 يناير 2005 في 19:35

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#73 يناير 2005 في 13:02

شكرا أخي طارق على المساعدة

والحمدلله انحلت المشكلة عندي :)

المشكلة كانت في نفس قاعدة البيانات فعملت db جديدة ونجحت عندي الاضافة

جزاك الله خير

إذَاخَلوت بِريبَة في ظُلمةٍِ , والنَفسُ داعِيةٌٍ الى الطغيَان,فاخشَ مِن نظرِِ الإلهِ وقُل لهَا: إنًّ الذي خَلق الظَلام يراني

#83 يناير 2005 في 13:38

الحمد لله على حلك لمشكله و لكن اين كانت المشكله تحديداً

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#93 يناير 2005 في 21:43

المشكلة كانت في وجود خطأ في كتابة field واحد في قاعدة البيانات :rolleyes:

إذَاخَلوت بِريبَة في ظُلمةٍِ , والنَفسُ داعِيةٌٍ الى الطغيَان,فاخشَ مِن نظرِِ الإلهِ وقُل لهَا: إنًّ الذي خَلق الظَلام يراني

مشكلة في إضافة البيانات الى الdb

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

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