Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยหน่อยค่ะ add data ไม่ได้ ทำยังงัยดี เครื่อง windownXP Pack2 --ใช้ ODBC พิมพ์โค้ดอย่างนี้

ช่วยหน่อยค่ะ add data ไม่ได้ ทำยังงัยดี เครื่อง windownXP Pack2 --ใช้ ODBC พิมพ์โค้ดอย่างนี้

เริ่มหัวข้อใหม่

Guest

เครื่อง windownXP Pack2 --ใช้ ODBC

พิมพ์โค้ดอย่างนี้

<%If Request.Form("Action") = "" Then %>
<%' ถ้าไม่พบตัวแปร Action หรือกดปุ่ม Add Data ให้แสดงกรอบกรอกข้อมูลใหม่%>
<Html>
<Head><Title>เพิ่มข้อมูลลงฐานข้อมูล</Title></Head>
<Body>
<Form Action="02.asp" Method="Post">
<%'ฟอร์มรับข้อมูล %>
<Center>
<Font Size=3 Face="Ms Sans Serif"><B>เพิ่มข้อมูลลงฐานข้อมูล</B></Font>
</Cener>
<Br><Br>
<Table Border="0" Bgcolor="#Fcf9d8" Style="Font-Family: Ms Sans Serif">
<Tr><Td>ชื่อ-สกุล</Td><Td><Input Type=Text Name=ชื่อ-สกุล Size=50></Td></Tr>
<Tr><Td>วันนัดหมาย</Td><Td><Input Type=Text Name=วันนัดหมาย Size=10> Ex.30/02/2548</Td></Tr>
<Tr><Td>เวลา</Td><Td><Input Type=Text Name=เวลา Size=8> Ex.08:30:00</Td></Tr>
<Tr><Td>เรื่อง</Td><Td><Input Type=Text Name=เรื่อง Size=100></Td></Tr>
<Tr><Td>สถานที่</Td><Td><Input Type=Text Name=สถานที่ Size=100></Td></Tr>
<Tr><Td>ผู้นัดหมาย</Td><Td><Input Type=Text Name=ผู้นัดหมาย Size=50></Td></Tr>
<Tr><Td>หมายเหตุ</Td><Td><Input Type=Text Name=หมายเหตุ Size=50></Td></Tr>
</Table>
<Br>
<Input Type=Hidden Name=Action Value="Add">
<Input Type=Submit Value="Add Data">
</Form>
</Body>
</Html>
<%'กำหนดเงื่อนไข ถ้าไม่มีกรอกข้อมูลใดๆ แล้วกดปุ่ม ให้แสดงข้อความ โปรดกรอกข้อมูลให้ครบ
Elseif Request.Form("ชื่อ-สกุล")= "" Or _
Request.Form("วันนัดหมาย")= "" Or _
Request.Form("เวลา")= "" Or _
Request.Form("เรื่อง")= "" Or _
Request.Form("สถานที่")= "" Or _
Request.Form("ผู้นัดหมาย")= "" Or _
Request.Form("หมายเหตุ")= "" Then
%>
<Center><Font Size=3 Face="Ms Sans Serif"><B>โปรดกรอกข้อมูลให้ครบ
<Br><Br><A Href=02.asp>กรอกข้อมูลใหม่</A></B></Font></Center>
<%Else
'เริ่มเปิดฐานข้อมูลและเขียนข้อมูลลงฐานข้อมูล
Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Open "appointment"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
Sql= "Select * From app_present"
ObjRS.Open Sql, "appointment", 1, 3
ObjRS.Addnew
ObjRS.Fields("ชื่อ-สกุล") = Request.Form("ชื่อ-สกุล")
ObjRS.Fields("วันนัดหมาย") = Request.Form("วันนัดหมาย")
ObjRS.Fields("เวลา") = Request.Form("เวลา")
ObjRS.Fields("เรื่อง") = Request.Form("เรื่อง")
ObjRS.Fields("สถานที่") = Request.Form("สถานที่")
ObjRS.Fields("ผู้นัดหมาย") = Request.Form("ผู้นัดหมาย")
ObjRS.Fields("หมายเหตุ") = Request.Form("หมายเหตุ")
ObjRS.Update
'เริ่มเปิดฐานข้อมูลและเขียนข้อมูลลงฐานข้อมูล
%>
<Html>
<Center>
<Head><Title>เพิ่มข้อมูลเสร็จแล้ว</Title></Head>
<Body>
<Font Size=4 Face="Ms Sans Serif"><B>เพิ่มข้อมูลลงฐานข้อมูลเรียบร้อยแล้ว
<%'กลับไปเพิ่มข้อมูลหรือขอดูข้อมูล%>
<Br><Br><A Href="page.asp"> ดูข้อมูล</A>
<Br><Br><A Href="02.asp">เพิ่มข้อมูล </A>
</B></Font>
</Center>
</Body>
</Html>
<%
End If
%>
<%'จบเงื่อนไข%>

ขึ้น error อย่างนี้

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file already in use.
/02.asp, line 41

Tag : - - - -

Date : 19 ก.ย. 2548 19:32:30

By : koism

View : 2538

Reply : 3

No. 1

[M]is[S]y

โพสกระทู้ ( 371 )
บทความ ( 0 )

เปิดไฟล์ Access อยู่อ่าจิ ??? เวลารันต้องปืดมันก่อน (ไม่ต้องปืดโปรแกรมนะ ปิดแต่ตารางมันนะ)

Date : 20 ก.ย. 2548 09:34:26

By : JezusMitsui

No. 2

Guest

บางทีมันไม่เป็นอย่างทีคิดนะซิ ปิดโปรแกรมก็ขึ้น
ส่วนใหญ่รีสตาร์ดเคื่องเลย

Date : 21 ก.ย. 2548 11:20:20

By : ผ่าน

No. 3

Guest

เอาของผมไปดูป่ะ

<%
If Request.Form("Action") = "" Then %>
<% '¶éÒäÁè¾ºµÑÇá»Ã Action ËÃ×Í¡´»ØèÁ ºÑ¹·Ö¡ ãËéáÊ´§¡ÃÍº¡ÃÍ¡¢éÍÁÙÅãËÁè%>
<Html>
<Head><Title>à¾ÔèÁ¢éÍÁÙÅ¾¹Ñ¡§Ò¹</Title></Head>
<Body>
<Form Action="emp_add.asp" Method="Post">
<%'¿ÍÃìÁÃÑº¢éÍÁÙÅ %>
<Center>
<Font Size=3 Face="Ms Sans Serif"><B>à¾ÔèÁ¢éÍÁÙÅ¾¹Ñ¡§Ò¹</B></Font>
</Center>
<Br><Br>
<Table width=600 Border="0" Bgcolor="#Fcf9d8" Style="Font-Family:Ms Sans Serif">
<Tr><Td width=100>ÃËÑÊ¾¹Ñ¡§Ò¹</Td><Td><Input Type=Text Name=Emp_No Size=3
Maxlength=3></Td></Tr>
<Tr><Td>ª×èÍ</Td><Td><Input Type=Text Name=Emp_Name Size=15 Maxlength=15></Td></Tr>
<Tr><Td>§Ò¹·ÕèÃÑº¼Ô´ªÍº</Td><Td><Input Type=Text Name=Job Size=15
Maxlength=15></Td></Tr>
<Tr><Td>ÃËÑÊËÑÇË¹éÒ§Ò¹</Td><Td><Input Type=Text Name=Mgr_No Size=3 Maxlength=3></Td></Tr>
<Tr><Td>ÇÑ¹·ÕèàÃÔèÁ§Ò¹</Td><Td><Input Type=Text Name=Hire_Date Size=10 ></Td></Tr>
<Tr><Td>à§Ô¹à´×Í¹</Td><Td><Input Type=Text Name=Salary Size=10 ></Td></Tr>
<Tr><Td>¤ÍÁÁÔÊªÑ¹</Td><Td><Input Type=Text Name=Comm Size=10 ></Td></Tr>
<Tr><Td>ÃËÑÊá¼¹¡</Td><Td><Input Type=Text Name=Dept_No Size=2 ></Td></Tr>
</Table>
<Br>
<Input Type=Hidden Name=Action Value="Add">
<Input Type=Submit Value="ºÑ¹·Ö¡">
</Form>
</Body>
</Html>
<%'¡ÓË¹´à§×èÍ¹ä¢ ¶éÒäÁèÁÕ¡ÃÍ¡¢éÍÁÙÅã´ æ áÅéÇ¡´»ØèÁ ãËéáÊ´§¢éÍ¤ÇÒÁ â»Ã´¡ÃÍ¡¢éÍÁÙÅãËé¤Ãº
Elseif Request.Form("Emp_No")= "" Or _
Request.Form("Emp_Name")= "" Then
%>
<Center><Font Size=3 Face="Ms sans Serif"><B>â»Ã´¡ÃÍ¡¢éÍÁÙÅãËé¤Ãº
<Br><Br><A Href= "emp_add.asp">¡ÃÍ¡¢éÍÁÙÅãËÁè</A></B></Font></Center>
<%Else
'àÃÔèÁà»Ô´°Ò¹¢éÍÁÙÅáÅÐà¢ÕÂ¹¢éÍÁÙÅÅ§°Ò¹¢éÍÁÙÅ
Set ObjDB=Server.CreateObject("ADODB.Connection")
ObjDB.Open "employeeodbc"
Set ObjRs=Server.CreateObject("ADODB.Recordset")
sql="Select * From employee"
ObjRS.Open Sql, "employeeodbc",1,3
ObjRS.Addnew 'à¾ÔèÁàÃ¤¤ÍÃì´ÇèÒ§
ObjRS.Fields("Emp_No") = Request.Form("Emp_No")
ObjRS.Fields("Emp_Name") = Request.Form("Emp_Name")
ObjRS.Fields("Job") = Request.Form("Job")
ObjRS.Fields("Mgr_No") = Request.Form("Mgr_No")
ObjRS.Fields("Hire_Date") = Request.Form("Hire_Date")
ObjRS.Fields("Salary") = Request.Form("Salary")
ObjRS.Fields("Comm") = Request.Form("Comm")
ObjRS.Fields("Dept_No") = Request.Form("Dept_No")
ObjRS.Update '¹Ó¤èÒ·ÕèÍÂÙè´é¹º¹»ÃÑº»ÃØ§Å§°Ò¹¢éÍÁÙÅ
%>

<Html>
<Center>
<Head><Title>à¾ÔèÁ¢éÍÁÙÅàÊÃç¨áÅéÇ</Title></Head>
<Body>
<Font Size=4 Face="MS Sans Serif"><B>à¾ÔèÁ¢éÍÁÙÅÅ§°Ò¹¢éÍÁÙÅàÃÕÂºÃéÍÂáÅéÇ
<%'¡ÅÑºä»à¾ÔèÁ¢éÍÁÙÅËÃ×Í¢Í´Ù¢éÍÁÙÅ%>
<Br><Br><A Href="emp_list.asp"> ´Ù¢éÍÁÙÅ </A>
<Br><Br><A Href="emp_add.asp">à¾ÔèÁ¢éÍÁÙÅ </A>
</B></Font>
</Center>
</Body>
</Html>
<%
End If
%>
<%'¨ºà§×èÍ¹ä¢%>

Date : 22 ก.พ. 2551 20:09:51

By : มือซ้ายเทวดา

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยหน่อยค่ะ add data ไม่ได้ ทำยังงัยดี เครื่อง windownXP Pack2 --ใช้ ODBC พิมพ์โค้ดอย่างนี้

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก