مشكلة في اضافة بيانات باللغة العربية الى قاعدة البيانات

السلام عليكم

اولا أخي الكريم محمد لا علاقة لنسخة الاكسس بالموضوع ، ولكن يجب عليك اولا أن تربط قاعدة البيانات بالصفحة وذلك عن طريقين اما استخدام الـODBC او بتحديد مكان ملف MDB داخل الجهاز مثال c:ASPASP.mdb

بالنسبة للعربية فيجب كتابة

sesion.codepage = 1256

اما بخصوص اكواد الحذف والاضافة وغيرها فهي تعتمد على الـSQL واعتقد ماشاء الله خبرتك فيها كافية :)

أتمنى أنني استطعت أن أجيب ولو بالقليل

تحياتي

اخي العزيز شكرا لك للمساعده

لقد قمت بتعديل الكود الى 1256 من 1252 وانحلت المشكله

بالنسبة للاضافة والتعديل انا عارف انها SQL وخبرتي بها كويسه بس المشكله الان كالتالي

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

انا استخدم هذا السكربت لتح قاعدة البيانات

dim Conn,Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("aspdata.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
DO   
i=i+1
SQL = "SELECT   ind, Name, Email, CodeLanguage, CodeKind, CodeDescribtion, CodeLink ,CodeDate  FROM name WHERE (ind = " & i & ")"
Rs.Open SQL, Conn, 1, 3
if Rs.EOF then exit do %>

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

وبعدها اغنهي الدواره واغلق قاعدة البيانات

Loop 
%>

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

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

وشكرا لك

اخي محمد ، الكود بده شوية تعديل :) الظاهر انت اخترت اطول الطرق للوصول الى روما:) ، الكود الخاص بك راح يهد السيرفر لو زادت الزيارات على الصفحة :)

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

<% 
dim Conn,Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("aspdata.mdb") & _
	   ";Driver={Microsoft Access Driver (*.mdb)};"
%>

و لكن الحلقة التكرارية تختلف قليلا لتصبح كالتالي

<%
SQL = "SELECT * FROM name"
Rs.Open SQL, Conn, 1, 3

do until rs.EOF
  Response.Write (Rs("CodeDescribtion"))
loop
%>

كما تلاحظ فهناك اختلاف بسيط و هي اننا حددنا البيانات التي نريدها بعبارة ال SQL و من ثم بدئنا حلقة تكرارية للحصول عليها

و عند الانتهاء يتم اغلاق الاتصال مع قاعدة البيانات

<% 
Rs.Close  
%>

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

SQL

و سنعيد كتابة المثال كالتالي

<% 
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("aspdata.mdb") & _
	   ";Driver={Microsoft Access Driver (*.mdb)};"
Conn.Execute "Delete from name where ind=2"
%>

يفترض ان يعمل هذا الكود مع انني الظاهر يمكن نسيت سطر ما و لكني اعتقد انه يفترض ان يعمل ، جربه و خبرني

لو رغبت بالاضافة الى قاعدة البيانات فيجب استبدال اخر سطر بالسطر التالي

<%
Conn.Execute "Insert Into Name(اسم حقل,اسم حقل,اسم حقل) Values(قيمة،قيمة،قيمة،قيمة)"
%>

مع ان الكود المستخدم هو فيجوال بيزك سكريبت و يشبه الفيجوال بيزك العادي الا انه يختلف قليلا كما ترى عن فيجوال بيزك ، و كان الكود و المفهو البرمجي كله في ال ASP اتى مقلوبا بالكامل :) ، و لكن تخيل انك تبرمج على نظام بيزك القديم qBasic في DOS عندما تتعامل مع ASP فهي تشابهه كثيرا في طريقة عمل البرنامج

الأخ الكريم / خضر .

لابد من وضع شرط داخل الحلقة للخروج منها ، وإلا سينهد السيرفر ;) ، طبعاً ، أنت عارفها بس ما كتبتها :)

do until rs.EOF
  Response.Write (Rs("CodeDescribtion"))
  rs.MoveNext()' هذا شرط أساسي 
loop
%>

شكرا على الملاحظة :) و الله نسيتها مع الخربطة في العمل، لان بدونها السيرفر راح يصير يرقص و يصفر :)

أذا حضر الماء بطل التيمم ;)

ياشباب حتزعلوني منكم :)

الان الكود الي انا كاتبه وانتم كاتبينه مافيه اي فرق ابدا بس في الدواره

يعني فتحت قاعدة البيانات

بعدين استخدمت جملة SQL والقصد من اختيرا الحقول هو حقل الترقيم التلقائي I اي هنا يقوم وممكن نستفني عنه لانه فيه اختبار اذا الحقول انتهت فانه سيخرج من الدواره

اوكيه الان ممكن تقول اذا هناك اي تعليق على هذا الكلام

بالنسبة للحذف او التعديل يا شباب الى الان لم تفهموا قصدي الان لما يحذف اقوله احذف بس يعني

طيب الشرط من وين اجيبه يعني اعطيه يحذف لما يكون وين

اذا ما انفهم الموضوع ممكن ترسلوا مثال للحذف وان بعدين حشرحه :)