معاناتي مع ربط قواعد البيانات

اسف هذا هو الكود الذي تم الربط فية

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

<%

Dim Cnn

Dim RS

Set Cnn = Server.CreateObject( "ADODB.Connection" )

set rs = Server.CreateObject("ADODB.Recordset")

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/project.mdb") & ";"

Dim MySQL

MySQL="Select * From tech_news"

set RS= Cnn.Execute(MySql)

Response.Write "العنوان:" & RS("subject")

Response.write "التاريخ:" & Rs("add_dat")

Response.Write "الموضوع:" & RS("body")

Cnn.Close

Set Cnn = Nothing

RS.Close

Set RS = Nothing

%>

ـــــــــــــــــــــــــــــــــــــــــــــــ

اخي انا أظن أن سبب المشكلة هو Cnn.close و set cnn=nothing إذا استخدمت بعدها أي جملة لن تعمل و ستظهر لك تلك الرسالة

لذا ينصح أن تضعها آخر الصفحة ..

اتمنى أن تنجح و تكتمل فرحتك في ربط قواعد البيانات .. (f)

كما ذكر اخي محمد فيجب دائما أن تكون الـconn في النهاية وعودا حميدا أخي محمد :)

بالنسبة للسؤال الثاني فيجب حفظ الملف بصيغة shtml كي تظهر النتائج

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

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

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

هو :

<%

set Conn=server.createObject("ADODB.Connection")
ps="provider=microsoft.jet.OLEDB.4.0; data source="
ps=ps & server.MapPath("project.mdb")
conn.open ps

 	set rs=server.createobject("ADODB.Recordset")
......
......
.....

وقبل هذا اجعل جدولك داخل ملف باسم:

database مثلا

والله الموفق

(f)

شكراً لكم وجزاكم الله خيراً

حقيقتاً عاجز عن الشكر

ابشركم تم الربط , والأن حان وقت إظهار جميع البيانات من قاعدة البيانات وإن شاء الله أُوفق ...