السلام عليكم
عندي قاعدة بيانات بالأكسس وابغا اربطها بالوب عن طريق الـ ASP
اتمنى اجد الطريقة الصحيحة عندك سواءا اردت عرض جميع المعلومات على الـ ASP او اردت ظهور حقول معينة.
شكرا لكم.
السلام عليكم
عندي قاعدة بيانات بالأكسس وابغا اربطها بالوب عن طريق الـ ASP
اتمنى اجد الطريقة الصحيحة عندك سواءا اردت عرض جميع المعلومات على الـ ASP او اردت ظهور حقول معينة.
شكرا لكم.
__________________
Fire Bird
كود:<%@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>
شكرا عزيزي
لكن هل هي نفس الطريقة لقاعدة بيانات الـ SQL ؟؟؟
__________________
Fire Bird
العفو أخوي ،لا شكر على واجب
نفس الطريقة مع أختلاف بسيط
طريقة الربط
أو ال 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