اتصال asp به پایگاه داده در access

**ahmadkavand** · یک شنبه 29 آذر 1388, 11:42 صبح

سلام
من هیچ کس نتونسته کمکم کنه.
آخه می خواستم برنامه asp رو به پایگاه داده اتصال بدم.ولی همش به مشکل می خورم
تو رو خدا کمکم کنید
دیگه دیوونه شدم.
این فایل html من هست.
<HTML>
<HEAD><TITLE>Login</TITLE></HEAD>
<BODY>
<form method="post" action=" 1.asp ">
First Name: <input type="text" name="Name" size="20"> 
Last Name : <input type="text" name="familly" size="20"> 
<input type="submit" value="Send">
</form>
</BODY>
</HTML>

می خواستم شما فایلASP رو برام بنویسید تا بتونم داده هام رو از این فایل HTML توی یه بانک که مثلا توی درایو C هست نشون بده.
کمکم کنید

**aryaei2000** · یک شنبه 29 آذر 1388, 19:56 عصر

برای اتصال به بانک اطلاعاتی اکسس شما به موارد زیر نیاز دارید:
1.فایلی جهت ذخیره مسیر و نام بانک اطلاعاتی config
2.دسترسی write , delete و read
3.موتور پردازشگر asp که بوسیله فایل config به بانک اطلاعاتی متصل شود و عملیات لازم را انجام دهد.

فایل config.asp



<%

'تعریف متغیرها

Dim strConn, ObjCon

'فعال کردن بافر

Response.Buffer = True

'### CONNECTION STRINGS CONFIGURATION ###

'تعریف چند متغیر  

tablpfx = "tbl"

dbFldr = "../db/"  

  'تعریف نام بانک اطلاعاتی و مسیر دهی  

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

                    strConn = strConn & Server.MapPath(dbFldr & "dbname.mdb") & ";"

                    

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

        objConn.CursorLocation = 3

        objConn.open strConn

%>

2.نحوه تعریف دسترسی ها در ویندوز:
https://barnamenevis.org/showthread.php?t=21245
3.موتور پردازشگر:



<!--#include virtual="config.asp"-->

<%

'اطمینان از عدم وجود مشکل برنامه نویسی

If Err.Number <> 0 then

    Response.Write "<font face='verdana' size='2'><br><b>The Error has occured!</b>"

    Response.Write "<br><br>Page: <b>config/config.asp</b>"

    Response.Write "<br><br>Error Number: <b>" & err.number & "</b>"

    Response.Write "<br><br>Error Description: <b>" & err.description & "</b>" 

    Response.End

End If

'چک کردن نوع درخواست فرم و اطمینان از مساوی بودن آن با مقدارpost (دقت کنید که در هر دو طرف تساوی از حروف کوچک استفاده شده) 

If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then

  Fname = Sq(Request.Form("Name"))

  Lname = Sq(Request.Form("Family"))

'اتصال به بانک اطلاعاتی و وارد کردن مقادیر  

  strsql = "INSERT INTO " & tablPfx & "[tablename] (Fname, Lname) values ('" & Fname & "', '" & Lnname & "');"

   ObjCon.Execute(strsql)

End If



'فیلتر کردن کوتیشن برای جلوگیری از اینجکشن

Function Sq(Inputstr)

 Inputstr = Replace(Inputstr, "'", "''")

End Finction

%>

**ahmadkavand** · دوشنبه 30 آذر 1388, 01:29 صبح

دستتون درد نکنه.اجرتون با بی بی رقیه
ولی یه خواهش دارم.منو ببخشید
اگه میشه جلوی هر خط برام به فارسی بنویسید که این خط چه کار می کنه. اون جاهایی رو هم که من می خوام پر کنم برام بنویسید
تو رو خدا می خوام یاد بگیرم
به خدا دعاتون می کنم حسابی
داداش عزیز شرمنده.ببخشید

**shavak** · دوشنبه 30 آذر 1388, 10:08 صبح

با سلام اگه خواستی یه توضیح کامل بدی با این ایمیل ارتباط برقرار کن من یه سورس کامل با توضیحات برات بفرستم داداش ما مخلص هرچی برنامه نویس هستیم اخه هرکاری بکینم واسه ایران عزیز مونه
منتظرم iran_arman_m@yahoo.com

**ahmadkavand** · دوشنبه 30 آذر 1388, 13:38 عصر

دستتون دردنکنه
براتون ایمیل زدم
خوشحال میشم اسم شریفتون رو بدونم یا اینکه ازتوت شماره داشته باشم.
منتظرتونم

**aryaei2000** · دوشنبه 30 آذر 1388, 21:41 عصر

بالای هر خط نوشتم.
موارد قرمز رنگ رو باید بر اساس مقادیر خودتون تغییر بدید.
موفق باشید.

**ahmadkavand** · سه شنبه 01 دی 1388, 09:04 صبح

سلام
مرسی الان میرم کار میکنم
یه سوال دیگه هم داشتم
*2.نحوه تعریف دسترسی ها در ویندوز رو برام یه توضیح بدید
ممنون

**ahmadkavand** · سه شنبه 01 دی 1388, 09:59 صبح

سلام
خط هشتم error میده
من جایی رو که باید پر می کردم،پر کردم

<%
Dim strConn, ObjCon
Response.Buffer = True
tablpfx = "tbl"
dbFldr = "C:\Inetpub\wwwroot\db1.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & Server.MapPath(dbFldr & "db1.mdb") & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.open strConn
%>
<%
If Err.Number <> 0 then
Response.Write " The Error has occured!"
Response.Write " Page: config/config.asp"
Response.Write " Error Number: " & err.number & ""
Response.Write " Error Description: " & err.description & ""
Response.End
End If

If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then
Fname = Sq(Request.Form("Name"))
Lname = Sq(Request.Form("Family"))

strsql = "INSERT INTO " & tablPfx & "[table1] (name, familly) values (' " & Fname & " ' , ' " & Lnname & " ');"
ObjCon.Execute(strsql)
End If

Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>

بانک اطلاعاتی من اسمش db1 و دارای دوتا ستون name,familly هست.
توی آدرسC:\Inetpub\wwwroot\db1.mdb
اگه میشه خودتون هم بررسی کنید ببینید که کجاهای برنامه مشکل داره
ممنون.دستتون درد نکنه

**aryaei2000** · سه شنبه 01 دی 1388, 19:13 عصر

با سلام
شما در وارد کردن مسیر دچار اشتباه شدید.
اگر میخواهید مسیرتون بصورت :\C:\Inetpub\wwwroot\db1.mdb باشه باید در خط هفتم Server.MapPath
را بردارید و یا متغیر dbFldr رو بدون C:\Inetpub\wwwroot\ مقدار دهی کنید.

**ahmadkavand** · چهارشنبه 02 دی 1388, 02:13 صبح

سلام مهندس خسته نباشی

طبق دستور 1 عمل کردم.یه error هم داشت که درستش کردم
ولی داده ها وارد بانک نمیشن.
توی فایلhtml داده هام رو وارد میکنم و send رو که میزنم، داده ها وارد جدول نمیشن یا اینکه داده ها رو وارد میکنم و بعد فایل asp رو اجرا میکنم،بازم داده ها وارد نمیشن

اینم برنامه اصلاح شده:

<%
Dim strConn, ObjCon
Response.Buffer = True
tablpfx = "tbl"
dbFldr = "C:\Inetpub\wwwroot\db1.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & (dbFldr ) & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.open strConn
%>
<%
If Err.Number <> 0 then
Response.Write " The Error has occured!"
Response.Write " Page: config/config.asp"
Response.Write " Error Number: " & err.number & ""
Response.Write " Error Description: " & err.description & ""
Response.End
End If
If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then
Fname = Sq(Request.Form("Name"))
Lname = Sq(Request.Form("Family"))
strsql = "INSERT INTO " & tablPfx & "[table1] (name, familly) values (' " & Fname & " ' , ' " & Lnname & " ');"
ObjCon.Execute(strsql)
End If
Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>

مرسی بدجور انداختمت تو زحمت.
دستت دردنکنه

**aryaei2000** · چهارشنبه 02 دی 1388, 18:58 عصر

شما تو خط 23 باید کروشه های دور table1 رو برداری.



strsql = "INSERT INTO " & tablPfx & "table1 (name, familly) values ('" & Fname & "' , '" & Lnname & "');"

یه امتحان بکن ببین مشکل رفع شده یا نه.

**ahmadkavand** · پنج شنبه 03 دی 1388, 01:09 صبح

سلام.خسته نباشید
بازم حل نشد.

دوباره دوتا فایل رو براتون می فرستم
html:
<HTML>
<HEAD><TITLE>Login</TITLE></HEAD>
<BODY>
<form method="post" action="config.asp" >
First Name: <input type="text" name="Name" size="20"> 
Last Name : <input type="text" name="familly" size="20"> 
<input type="submit" value="Send">
</form>
</BODY>
</HTML>

asp:

<%
Dim strConn, ObjCon
Response.Buffer = True
tablpfx = "tbl"
dbFldr = "C:\Inetpub\wwwroot\db1.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & (dbFldr ) & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3
objConn.open strConn
%>
<%
If Err.Number <> 0 then
Response.Write " The Error has occured!"
Response.Write " Page: config/config.asp"
Response.Write " Error Number: " & err.number & ""
Response.Write " Error Description: " & err.description & ""
Response.End
End If
If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then
Fname = Sq(Request.Form("Name"))
Lname = Sq(Request.Form("Family"))
strsql = "INSERT INTO " & tablPfx & " table1 (name, familly) values ('" & Fname & "' , '" & Lnname & "');"
ObjCon.Execute(strsql)
End If
Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>

ببخشید. دستتون درد نکنه

**aryaei2000** · پنج شنبه 03 دی 1388, 19:06 عصر

یه چند تا اشکال بود درست کردم.
asp



 

<%

Dim strConn, ObjCon

Response.Buffer = True

tablpfx = "tbl"

dbFldr = "C:\Inetpub\wwwroot\db1.mdb"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

strConn = strConn & (dbFldr ) & ";"

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

objConn.CursorLocation = 3

objConn.open strConn

%>

<%

If Err.Number <> 0 then

Response.Write "<font face='verdana' size='2'><br><b>The Error has occured!</b>"

Response.Write "<br><br>Page: <b>config/config.asp</b>"

Response.Write "<br><br>Error Number: <b>" & err.number & "</b>"

Response.Write "<br><br>Error Description: <b>" & err.description & "</b>" 

Response.End

End If

If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then

Fname = Sq(Request.Form("Name"))

Lname = Sq(Request.Form("Family"))

strsql = "INSERT INTO " & tablPfx & "table1 (name, familly) values ('" & Fname & "' , '" & Lname & "');"

ObjCon.Execute(strsql)

End If

 

Function Sq(Inputstr)

Inputstr = Replace(Inputstr , " ' " , " ' ' " )

End Function

Set rs = Nothing

Set objConn = Nothing

%>

اگر نکات زیر رو رعایت کنید ممنون میشم.
1.از دادن پستهای بی محتوا خودداری کنید.
2.کدهاتون رو بین تگ code قرار بدید.
موفق باشید

**ahmadkavand** · جمعه 04 دی 1388, 00:47 صبح

سلام
بازم چیزی add نشد توی بانک

مرسی

**aryaei2000** · جمعه 04 دی 1388, 11:03 صبح

شما مطمئنید که مقادیر name و familly در بانک اطلاعاتی نیز با همین نام درج شده اند؟
ضمنا همونطور که گفتم دسترسی write ,read, delete با ید تعریف شده باشند.
این خطوط رو هم



dbFldr = "C:\Inetpub\wwwroot\db1.mdb"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

strConn = strConn & (dbFldr ) & ";"

با این خطوط عوض کنید:





strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

strConn = strConn & Server.MapPath("cldb.mdb") & ";"

**ahmadkavand** · جمعه 04 دی 1388, 13:47 عصر

سلام
این کار رو کردم ولی جواب نداد
این objConn.Mode = adModeReadWrite رو هم اضافه کردم ولی دوباره add نشد.
شما توی سیستمتون این برنامه کار می کنه

ممنون

**ahmadkavand** · جمعه 04 دی 1388, 13:50 عصر

ببخشید اگه تشکر های من 0 هست
نمی دونم چه جور این کار رو کنم(یعنی جلوی تشکرهام پر بشه)

**ahmadkavand** · جمعه 04 دی 1388, 13:52 عصر

بانک دوتا ستون داره
name familly
با همین املا

**aryaei2000** · جمعه 04 دی 1388, 14:19 عصر

من همه اسامی رو بصورت مرجع در آوردم.
کار میکنه و مشکلی نداره.

**ahmadkavand** · شنبه 05 دی 1388, 15:18 عصر

سلام
خیلی رو برنامه فکر کردم، روش کار کردم ولی add نمی کنه

**aryaei2000** · شنبه 05 دی 1388, 19:06 عصر

مگه میشه؟
تو کامپیوتر من کار میکنه.
همونطور که گفتم شما باید محتوای فایلی که من گذاشتم رو در پوشه wwwroot استخراج کنید.
دسترسی ها رو هم به فایل بانک اطلاعاتی بدید.

**ahmadkavand** · دوشنبه 07 دی 1388, 10:07 صبح

سلام
یه سوال دارم.
وقتی که من فرمم رو پر کنم،وقتی که دکمهsend رو زدم باید اطلاعاتم برن توی بانک.درسته؟
یا نه از طریق دیگه ای
تشکر

**ahmadkavand** · دوشنبه 07 دی 1388, 10:08 صبح

این error یعنی چی؟
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

دستتون درد نکنه

**mahtab119** · سه شنبه 08 دی 1388, 08:57 صبح

سلام
منم دقيقا مشكل شما رادارم يعني همه كدها درسته اما در ديتابيس چيزي ثبت نمي شود

اگه راهنمايي كنيد ممنون ميشم

**ahmadkavand** · سه شنبه 08 دی 1388, 09:38 صبح

سلام.درسته؟

**ahmadkavand** · سه شنبه 08 دی 1388, 09:40 صبح

می خواستم بدونم شما خودتون برنامه asp رو چه جوری اجرا می کنید(مثل همین برنامه)
تشکر

**mahtab119** · سه شنبه 08 دی 1388, 11:00 صبح

سلام
خوب فايل ها را در wwwroot كپي مي كنيم بعد هم در IE مي زنيم:
http://127.0.0.1/l0gin/login.htm
و ديگه صفحه لوگين لود مي شود
جايي ديدم مثل اينكه بايد ديتابيس را شير كرد وبه يوزر اجازه ويرايش را هم داد
اما فعلا من تا شب دسترسي به iis ندارم تا تست كنم

**ahmadkavand** · سه شنبه 08 دی 1388, 14:36 عصر

سلاماین error یعنی چی؟Error Type:Microsoft JET Database Engine (0x80040E37)Could not find output table 'tbltable1'./asp1.asp, line 27فکر کنم اگه این error رفع بشه همه چیز حله.دوباره کدهای asp رو می فرستم

**aryaei2000** · سه شنبه 08 دی 1388, 17:41 عصر

کد هارو ضمیمه کنید لطفا.

**ahmadkavand** · چهارشنبه 09 دی 1388, 00:38 صبح

سلام.کدها رو فرستادم

**ahmadkavand** · چهارشنبه 09 دی 1388, 00:41 صبح

سلامکدها رو میزارم ولی نمی یاند

**ahmadkavand** · چهارشنبه 09 دی 1388, 00:45 صبح

کدها نمی یاند.ارسال نمیشن.ولی کدهای صفحه دوم.همون قسمتی که نوشتی چندتا خطا داشت درستش کردماز همون می تونید یه کپی بردارید.فقط family باید بشهfamilly اینم خطایی که میدهError Type:Microsoft JET Database Engine (0x80040E37)Could not find output table 'tbltable1'./asp1.asp, line 25

**ahmadkavand** · چهارشنبه 09 دی 1388, 00:46 صبح

کدها ارسال نمیشنولیمی تونید از صفحه دوم جای که نوشتید چندتا خطا داشت درستش کردم یه کپی بگیرید

**mahtab119** · چهارشنبه 09 دی 1388, 01:33 صبح

من این کدها را استفاده می کنم
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/login3/act.asp, line 27

میده بعد سرچ زذم ومدم یه mod3 هم بعد insert اضافه کردم

حالا این را میده
ADODB.Connection (0x800A0E79)
Operation is not allowed when the object is open.
/login/act.asp, line 32
================
اگه راهنمایی کنید ممنون میشم

**mahtab119** · چهارشنبه 09 دی 1388, 02:36 صبح

خوب از دوستانی که این تاپیک را همراهی کردن ممنون اما باید بگم هیچی تاپیک لاتین نمیشه
چون باید فردا پروزه را تحویل میدادم امشب فقط تاپیک انگلیسی سرچ کردم
حالا بگذریم ....
مشکل من حل شذ:
http://support.yessoftware.com/kb_ar...?article_id=72
امیذوارم مشکل شماها هم حل بشه
باز هم از مدیر این بخش وبقه بروبچ ممنون

**aryaei2000** · چهارشنبه 09 دی 1388, 10:22 صبح

لطفا کد ها رو تو سایت آپلود کنید.
منظورم اینه که از بخش ضمیمه استفاده کنید.

**ahmadkavand** · چهارشنبه 09 دی 1388, 12:48 عصر

سلامفایل asp رو ضمیمه کردم

**ahmadkavand** · چهارشنبه 09 دی 1388, 12:51 عصر

همون error که براتون فرستادم رو میدهیه سوال دیگه:شما چه جور برنامه منو اجرا می کنید؟تشکر

**aryaei2000** · چهارشنبه 09 دی 1388, 13:32 عصر

یه تست بکنید ببینید مشکلتون حل ششد یا نه.

**aryaei2000** · چهارشنبه 09 دی 1388, 19:41 عصر

نوشته شده توسط old-snake

سلام برنامه ای که استاد برای اتصال به من گفته اینه:
ولی متصل نمیشه!!
<%dim obj
set obj=server.createobject("adodb.connection")
obj.connectionstring="driver={microsoft access driver(*.mdb)}; "& dbq="masir\nam.mdb"
connection.open
dim objrs
set objrs=server.creatobject ("adodb.recordset")
objrs.open "users",obj,,,adcmdtable
do while not objrs.eof
response.write "(&objrs("name"))"
response.write "(&objrs("family"))"
loop
objrs.close
set objrs=nothing
obj.close
set obj=nothing%>
لطفا راهنماییم کنید

وقت ندارم

شما باید حین مسیر دهی از Server.MapPath استفاده کنید یا مسیرتون رو بطور کامل به برنامه بدید.
موفق باشید

نام تاپیک: اتصال asp به پایگاه داده در access

ابزار های تاپیک

نمایش

اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

نقل قول: اتصال asp به پایگاه داده در access

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار