-
اتصال asp به پایگاه داده در access
سلام
من هیچ کس نتونسته کمکم کنه.
آخه می خواستم برنامه asp رو به پایگاه داده اتصال بدم.ولی همش به مشکل می خورم
تو رو خدا کمکم کنید
دیگه دیوونه شدم.
این فایل html من هست.
<HTML>
<HEAD><TITLE>Login</TITLE></HEAD>
<BODY>
<form method="post" action=" 1.asp ">
First Name: <input type="text" name="Name" size="20"><br>
Last Name : <input type="text" name="familly" size="20"><br>
<input type="submit" value="Send">
</form>
</BODY>
</HTML>
می خواستم شما فایلASP رو برام بنویسید تا بتونم داده هام رو از این فایل HTML توی یه بانک که مثلا توی درایو C هست نشون بده.
کمکم کنید
-
نقل قول: اتصال asp به پایگاه داده در access
برای اتصال به بانک اطلاعاتی اکسس شما به موارد زیر نیاز دارید:
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
%>
-
نقل قول: اتصال asp به پایگاه داده در access
دستتون درد نکنه.اجرتون با بی بی رقیه
ولی یه خواهش دارم.منو ببخشید
اگه میشه جلوی هر خط برام به فارسی بنویسید که این خط چه کار می کنه. اون جاهایی رو هم که من می خوام پر کنم برام بنویسید
تو رو خدا می خوام یاد بگیرم
به خدا دعاتون می کنم حسابی
داداش عزیز شرمنده.ببخشید
-
نقل قول: اتصال asp به پایگاه داده در access
با سلام اگه خواستی یه توضیح کامل بدی با این ایمیل ارتباط برقرار کن من یه سورس کامل با توضیحات برات بفرستم داداش ما مخلص هرچی برنامه نویس هستیم اخه هرکاری بکینم واسه ایران عزیز مونه
منتظرم iran_arman_m@yahoo.com
-
نقل قول: اتصال asp به پایگاه داده در access
دستتون دردنکنه
براتون ایمیل زدم
خوشحال میشم اسم شریفتون رو بدونم یا اینکه ازتوت شماره داشته باشم.
منتظرتونم
-
نقل قول: اتصال asp به پایگاه داده در access
بالای هر خط نوشتم.
موارد قرمز رنگ رو باید بر اساس مقادیر خودتون تغییر بدید.
موفق باشید.
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
مرسی الان میرم کار میکنم
یه سوال دیگه هم داشتم
*2.نحوه تعریف دسترسی ها در ویندوز رو برام یه توضیح بدید
ممنون
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
خط هشتم 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 "<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 & " ' , ' " & Lnname & " ');"
ObjCon.Execute(strsql)
End If
Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>
بانک اطلاعاتی من اسمش db1 و دارای دوتا ستون name,familly هست.
توی آدرسC:\Inetpub\wwwroot\db1.mdb
اگه میشه خودتون هم بررسی کنید ببینید که کجاهای برنامه مشکل داره
ممنون.دستتون درد نکنه
-
نقل قول: اتصال asp به پایگاه داده در access
با سلام
شما در وارد کردن مسیر دچار اشتباه شدید.
اگر میخواهید مسیرتون بصورت :\C:\Inetpub\wwwroot\db1.mdb باشه باید در خط هفتم Server.MapPath
را بردارید و یا متغیر dbFldr رو بدون C:\Inetpub\wwwroot\ مقدار دهی کنید.
-
نقل قول: اتصال asp به پایگاه داده در access
سلام مهندس خسته نباشی
طبق دستور 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 "<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 & " ' , ' " & Lnname & " ');"
ObjCon.Execute(strsql)
End If
Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>
مرسی بدجور انداختمت تو زحمت.
دستت دردنکنه
-
نقل قول: اتصال asp به پایگاه داده در access
شما تو خط 23 باید کروشه های دور table1 رو برداری.
strsql = "INSERT INTO " & tablPfx & "table1 (name, familly) values ('" & Fname & "' , '" & Lnname & "');"
یه امتحان بکن ببین مشکل رفع شده یا نه.
-
نقل قول: اتصال asp به پایگاه داده در access
سلام.خسته نباشید
بازم حل نشد.
دوباره دوتا فایل رو براتون می فرستم
html:
<HTML>
<HEAD><TITLE>Login</TITLE></HEAD>
<BODY>
<form method="post" action="config.asp" >
First Name: <input type="text" name="Name" size="20"><br>
Last Name : <input type="text" name="familly" size="20"><br>
<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 "<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 & "' , '" & Lnname & "');"
ObjCon.Execute(strsql)
End If
Function Sq(Inputstr)
Inputstr = Replace(Inputstr , " ' " , " ' ' " )
End Function
%>
ببخشید. دستتون درد نکنه
-
نقل قول: اتصال asp به پایگاه داده در access
یه چند تا اشکال بود درست کردم.
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 قرار بدید.
موفق باشید
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
بازم چیزی add نشد توی بانک
مرسی
-
نقل قول: اتصال asp به پایگاه داده در access
شما مطمئنید که مقادیر 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") & ";"
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
این کار رو کردم ولی جواب نداد
این objConn.Mode = adModeReadWrite رو هم اضافه کردم ولی دوباره add نشد.
شما توی سیستمتون این برنامه کار می کنه
ممنون
-
نقل قول: اتصال asp به پایگاه داده در access
ببخشید اگه تشکر های من 0 هست
نمی دونم چه جور این کار رو کنم(یعنی جلوی تشکرهام پر بشه)
-
نقل قول: اتصال asp به پایگاه داده در access
بانک دوتا ستون داره
name familly
با همین املا
-
1 ضمیمه
نقل قول: اتصال asp به پایگاه داده در access
من همه اسامی رو بصورت مرجع در آوردم.
کار میکنه و مشکلی نداره.
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
خیلی رو برنامه فکر کردم، روش کار کردم ولی add نمی کنه
-
نقل قول: اتصال asp به پایگاه داده در access
مگه میشه؟
تو کامپیوتر من کار میکنه.
همونطور که گفتم شما باید محتوای فایلی که من گذاشتم رو در پوشه wwwroot استخراج کنید.
دسترسی ها رو هم به فایل بانک اطلاعاتی بدید.
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
یه سوال دارم.
وقتی که من فرمم رو پر کنم،وقتی که دکمهsend رو زدم باید اطلاعاتم برن توی بانک.درسته؟
یا نه از طریق دیگه ای
تشکر
-
نقل قول: اتصال asp به پایگاه داده در access
این 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.
دستتون درد نکنه
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
منم دقيقا مشكل شما رادارم يعني همه كدها درسته اما در ديتابيس چيزي ثبت نمي شود
اگه راهنمايي كنيد ممنون ميشم
-
نقل قول: اتصال asp به پایگاه داده در access
-
نقل قول: اتصال asp به پایگاه داده در access
می خواستم بدونم شما خودتون برنامه asp رو چه جوری اجرا می کنید(مثل همین برنامه)
تشکر
-
نقل قول: اتصال asp به پایگاه داده در access
سلام
خوب فايل ها را در wwwroot كپي مي كنيم بعد هم در IE مي زنيم:
http://127.0.0.1/l0gin/login.htm
و ديگه صفحه لوگين لود مي شود
جايي ديدم مثل اينكه بايد ديتابيس را شير كرد وبه يوزر اجازه ويرايش را هم داد
اما فعلا من تا شب دسترسي به iis ندارم تا تست كنم
-
نقل قول: اتصال asp به پایگاه داده در access
سلاماین error یعنی چی؟Error Type:Microsoft JET Database Engine (0x80040E37)Could not find output table 'tbltable1'./asp1.asp, line 27فکر کنم اگه این error رفع بشه همه چیز حله.دوباره کدهای asp رو می فرستم
-
نقل قول: اتصال asp به پایگاه داده در access
-
نقل قول: اتصال asp به پایگاه داده در access
-
نقل قول: اتصال asp به پایگاه داده در access
سلامکدها رو میزارم ولی نمی یاند
-
نقل قول: اتصال asp به پایگاه داده در access
کدها نمی یاند.ارسال نمیشن.ولی کدهای صفحه دوم.همون قسمتی که نوشتی چندتا خطا داشت درستش کردماز همون می تونید یه کپی بردارید.فقط family باید بشهfamilly اینم خطایی که میدهError Type:Microsoft JET Database Engine (0x80040E37)Could not find output table 'tbltable1'./asp1.asp, line 25
-
نقل قول: اتصال asp به پایگاه داده در access
کدها ارسال نمیشنولیمی تونید از صفحه دوم جای که نوشتید چندتا خطا داشت درستش کردم یه کپی بگیرید
-
نقل قول: اتصال asp به پایگاه داده در access
من این کدها را استفاده می کنم
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
================
اگه راهنمایی کنید ممنون میشم
-
نقل قول: اتصال asp به پایگاه داده در access
خوب از دوستانی که این تاپیک را همراهی کردن ممنون اما باید بگم هیچی تاپیک لاتین نمیشه
چون باید فردا پروزه را تحویل میدادم امشب فقط تاپیک انگلیسی سرچ کردم
حالا بگذریم ....
مشکل من حل شذ:
http://support.yessoftware.com/kb_ar...?article_id=72
امیذوارم مشکل شماها هم حل بشه
باز هم از مدیر این بخش وبقه بروبچ ممنون
-
نقل قول: اتصال asp به پایگاه داده در access
لطفا کد ها رو تو سایت آپلود کنید.
منظورم اینه که از بخش ضمیمه استفاده کنید.
-
1 ضمیمه
نقل قول: اتصال asp به پایگاه داده در access
سلامفایل asp رو ضمیمه کردم
-
نقل قول: اتصال asp به پایگاه داده در access
همون error که براتون فرستادم رو میدهیه سوال دیگه:شما چه جور برنامه منو اجرا می کنید؟تشکر
-
1 ضمیمه
نقل قول: اتصال asp به پایگاه داده در access
یه تست بکنید ببینید مشکلتون حل ششد یا نه.
-
نقل قول: اتصال asp به پایگاه داده در access
نقل قول:
نوشته شده توسط
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
سلام.لطفا کدها رو مثل صفحه های قبل برام بفرستید.وقتی که فایل ضمیمه رو دانلود می کنم یه فایل به اسم attachment برام دانلود میشهممنون تشکر
-
نقل قول: اتصال asp به پایگاه داده در access
این فابلattachment کدهای یکی از صفحه های این وب هست
-
نقل قول: اتصال asp به پایگاه داده در access
این فایل کدهای یکی از صفحه های وب خودتون هست
-
نقل قول: اتصال asp به پایگاه داده در access
متوجه منظورتون نمیشم.
اما بازم کد رو میزارم.
<%
Dim strConn, ObjCon
Response.Buffer = True
tablpfx = ""
dbFldr = "C:\Inetpub\wwwroot\ak1.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & (dbFldr ) & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Mode = adModeReadWrite
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 = Request.Form("name")
Lname = Request.Form("familly")
strsql = "INSERT INTO " & tablPfx & "table1 (name, familly) values ('" & Fname & "' , '" & Lname & "');"
ObjConn.Execute(strsql)
End If
Set rs = Nothing
Set objConn = Nothing
%>
-
نقل قول: اتصال asp به پایگاه داده در access
یه سوال کردمشما خودتون برنامه منو چه جور اجرا می کنید؟ممنون
-
نقل قول: اتصال asp به پایگاه داده در access
سلام حالا این error رو میده.Error Type:(Microsoft JET Database Engine (0x80004005peration must use an updateable query/asp1.asp, line 26
-
نقل قول: اتصال asp به پایگاه داده در access
من برنامه در لوکال هاست و با مرورگر اکسپلورر اجرا میکنم.
شما لطفا اسم جدول و اسم بانک اطلاعاتی رو بدید تا من درستش کنم.
بازم یاداوری میکنم:مطمئنید که دسترسی حذف و نوشتن و خواندن رو برای فایل اکسس تعریف کردید؟
موفق باشید.
-
نقل قول: اتصال asp به پایگاه داده در access
اسم جدول=TABLE1.اسم بانک=AK1.راستی چه جور دسترسی حذف و نوشتن و خواندن رو برای فایل اکسس تعریف کنم؟دستتون درد نکنهتشکر
-
نقل قول: اتصال asp به پایگاه داده در access
-
نقل قول: اتصال asp به پایگاه داده در access
جناب مدیر واقعا من از صبر و حوصله شما تشکر و تعجب می کنم
راستش خطاهایی که این کاربر عزیز لیست می کنند فقط کاقیه کپی کنند و در
گوگل سرچ کنند و ببینند چچطور قشنگ برای هر خطایی چندین امکان در نظر گرفته شده
من کمک تو کد نوسی را قبول دارم چرا که خیلی وقت ها خودمم دچار مشکل میشم
اما با لقمه اماده گرفتن اونم واسه یه مهندس کامپیوتر که قراره تو این زمینه کار کند مخالفم
ما باید یاد بگیریم که خیلی چیزها را خودمون سرچ کنیم و دنبال راه حلش بریم و اگه واقعا به بن بست رسیدیم اینقدر پست بزنیم
به هر حال این نظر من بود
شرمنده اگه دخالت کردم