النتائج 1 إلى 4 من 4

الموضوع: قاعدة بيانات والـ ASP

  1. 29-01-2002 #1
    عضو نشيط
    Fire Bird
    تاريخ التسجيل
    Mar 2000
    المشاركات
    60


    السلام عليكم

    عندي قاعدة بيانات بالأكسس وابغا اربطها بالوب عن طريق الـ ASP

    اتمنى اجد الطريقة الصحيحة عندك سواءا اردت عرض جميع المعلومات على الـ ASP او اردت ظهور حقول معينة.

    شكرا لكم.






    __________________
    Fire Bird
    Fire Bird غير متواجد حالياً

  2. 29-01-2002 #2
    عضو نشيط
    Mr.ASP
    تاريخ التسجيل
    Apr 2001
    المشاركات
    177


    كود:
    <%@Language=VbScript CodePage=1256%>
<HTML>
<head>
	<title>   ربط قاعدة بيانات أكسس  بصفحة ASP  </title>
</head>
<BODY>
<%
Const dbFilePath="db/database.mdb"
Dim ConnStr
Dim ADO,RS
Dim SQL
'   لقاعدة بيانات أكسس  97
ConnStr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath (dbFilePath) &";"
'   لقاعدة بيانات أكسس 2000
ConnStr="Provider= Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath (dbFilePath) &";"

Set ADO=Server.CreateOpject ("ADODB.Connection")
ADO.Open ConnStr,"User ID","User PassWord"
SQL="Select * From Table_Name;"
'  Table_Name= أسم الجدول
' * = جميع الأعمدة في الجدول
' لأختيار أعمدة معينة:
' SQL="Select ColName_1,ColName_2,ColName_3 From Table_Name;"
'ColName_1 , ColName_2 ,ColName_3   أسماء الأعمدة
' لأختيار حقول معينة:
'SQL="Select * From Table_Name Where Criteria "
'Criteria:
'	ColName Condition	SearchString Or Number Or Date
'أمثلة:
'SQL="Select * From Table_Name Where title Like '%ASP%' ;"
'SQL="Select * From Table_Name Where inputDate >Now()-7;"
'SQL="Select * From Table_Name Where ID >=10;"
'SQL="Select * From Table_Name Where ID in (1,2,3,4,5,6);"


Set RS=ADO.Execute(SQL)
Response.Write (" <TABLE>")
If RS.EOF Then
	Response.Write ( "<TR><TD>  لا يوجد بيانات للعرض ....  </TD></TD>")
Else
	Response.Write ("<TR>")
	Response.Write ("<TD> االعود الأول  </TD>")
	Response.Write ("<TD>  العمود الثاني </TD>")
	Response.Write ("<TD> العمود الثالث  </TD>")
	Response.Write ("</TR>")
	do while not RS.EOF
		Response.Write ("<TR>")
		Response.Write ("<TD>" & RS("ColName_1").value & "<TD>")
		Response.Write ("<TD>" & RS("ColName_2").value & "<TD>")
		Response.Write ("<TD>" & RS("ColName_3").value & "<TD>")
		Response.Write ("</TR>")
		'ColName_1 , ColName_2 ,ColName_3   أسماء الأعمدة
		Rs.MoveNext
	Loop
	Response.Write ("</Table>")
End if

ADO.Close
Set RS=Nothing
Set ADO=Nothing
%>

</BODY>
</HTML>






    Mr.ASP غير متواجد حالياً
  3. 10-02-2002 #3
    عضو نشيط
    Fire Bird
    تاريخ التسجيل
    Mar 2000
    المشاركات
    60


    شكرا عزيزي

    لكن هل هي نفس الطريقة لقاعدة بيانات الـ SQL ؟؟؟






    __________________
    Fire Bird
    Fire Bird غير متواجد حالياً
  4. 11-02-2002 #4
    عضو نشيط
    Mr.ASP
    تاريخ التسجيل
    Apr 2001
    المشاركات
    177


    العفو أخوي ،لا شكر على واجب

    نفس الطريقة مع أختلاف بسيط
    طريقة الربط
    أو ال ConnectionString
    الي تساوي المتغير
    ConnStr
    في الكود أعلاه
    كود:
    Access 97
DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=FullDataBasePath ;

Access 2000
Provider= Microsoft.Jet.OLEDB.4.0; Data Source =FullDataBasePath ;

System DSN
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword;

File DSN
FILEDSN=c:\somepath\mydb.dsn;Uid=myUsername;Pwd=myPassword;

MsSQL
           Provider=sqloledb;
           Data Source=myServerName;
           Initial Catalog=myDatabaseName;
           User Id=myUsername;
           Password=myPassword;
    و لمعرفة المزيد
    http://www.able-consulting.com/ADO_Conn.htm






    Mr.ASP غير متواجد حالياً




« سؤال لخبراء ASP | إلى جميع الأعضاء ... ! »

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

قوانين المنتدى


أضف موقعك هنا | اضافة محتوى فريد لموقعك