Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > ASP > ASP Microsoft Access > ASP Microsoft Access Used Function Database Query



Clound SSD Virtual Server

ASP Microsoft Access Used Function Database Query

ASP Microsoft Access Used Function Database Query ตัวอย่างนี้ผมได้ยกตัวอย่างการเขียน ASP ติดต่อกับ Access โดยใช้ Function เข้ามาช่วยจัดการในด้านการเพิ่ม/ลบ/แก้ไข เพื่อความสะดวกและง่ายต่อการแก้ไขหรือพัฒนาโปรแกรมครับ


ตัวอย่าง

AspAccessFunctionDatabase.asp

<%	
	'*** By ThaiCreate.Com ***'
	'*** By @W_IN ***'

	Const strConnection = "mydatabase.mdb"
	Const strUserID = ""
	Const strPassword = ""
	
	'*** Connection String ***'
	Function ConnectionString()
		ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(strConnection)
	End Function
	
	'*** Excute & objRec (Dynamic RecordSet) ***'
	Function fncExecuteSQLDynamic(strSQL,objRec)	
		Dim Conn
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open ConnectionString,strUserID,strPassword	
		Set objRec = Server.CreateObject("ADODB.Recordset")		
		objRec.Open strSQL,Conn,1,3
		Open.Close()
		Set Open = Nothing
	End Function
	
	'*** Excute & objRec (Static RecordSet) ***'
	Function fncExecuteSQLStatic(strSQL,objRec)	
		Dim Conn
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open ConnectionString,strUserID,strPassword	
		Set objRec = Conn.Execute(strSQL)
		Open.Close()
		Set Open = Nothing
	End Function
	
	'*** Excute & Return (True/False) ***'
	Function fncExecuteSQL(strSQL)  
		On Error Resume Next
		Dim Conn,objExec
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open ConnectionString,strUserID,strPassword	
		Set objExec = Conn.Execute(strSQL)
		If Err.Number = 0 Then
			fncExecuteSQL = True
		Else
			fncExecuteSQL = False
		End If
		Set objExec = Nothing
		Open.Close()
		Set Open = Nothing		
	End Function

	'*** Function Insert Record ***'
	Function fncInsertRecord(strTable,strField,strValue)
		On Error Resume Next
		Dim strSQL		
		strSQL = "INSERT INTO "&strTable&" ("&strField&") VALUES ("&strValue&")"
		fncInsertRecord = fncExecuteSQL(strSQL)
	End Function

	'*** Function List Record ***'
	Function fncListRecord(objRec,strTable,strCondition)
		On Error Resume Next
		Dim strSQL
		strSQL = "SELECT * FROM  "&strTable&" WHERE "&strCondition
		Call fncExecuteSQLDynamic(strSQL,objRec)
	End Function

	'*** Function Select Record ***'
	Function fncSelectRecord(objRec,strTable,strCondition)
		On Error Resume Next
		Dim strSQL
		strSQL = "SELECT * FROM  "&strTable&" WHERE "&strCondition
		Call fncExecuteSQLStatic(strSQL,objRec)
	End Function

	'*** Function Update Record ***'
	Function fncUpdateRecord(strTable,strCommand,strCondition)
		On Error Resume Next
		Dim strSQL
		strSQL = "UPDATE "&strTable&" SET "&strCommand&" WHERE "&strCondition
		fncUpdateRecord = fncExecuteSQL(strSQL)
	End Function

	'*** Function Delete Record ***'
	Function fncDeleteRecord(strTable,strCondition)
		On Error Resume Next
		Dim strSQL
		strSQL = "DELETE FROM "&strTable&" WHERE "&strCondition
		fncDeleteRecord = fncExecuteSQL(strSQL)
	End Function
%>




AspAccessUsedFunctionDatabase.asp

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<!--#include file="AspAccessFunctionDatabase.asp"-->
<%
Dim strTable,strField,strValue


'**** Call to function insert record ****'
Dim objInsert
strTable = "customer"
strField = "CustomerID,Name,Email,CountryCode,Budget,Used"
strValue = " 'C005','Weerachai Nukitram','[email protected]','TH','2000000','0' "
objInsert = fncInsertRecord(strTable,strField,strValue)
If objInsert = True Then
	Response.write("Record inserted.<br>")
Else
	Response.write("Record already exist.<br>")
End IF
Response.write("<br>===========================<br>")

'**** Call to function list record ****'
Dim objList,strCondition
strTable = "customer"
strCondition = " 1=1 "
Call fncListRecord(objList,strTable,strCondition)
If objList.EOF Then
	Response.write("Record not found<br>")
Else
	Response.write("Customer List.<br>")
	objList.MoveFirst
	While Not objList.EOF
		Response.write(""&objList.Fields("CustomerID").Value&"")
		Response.write(", "&objList.Fields("Name").Value&"")
		Response.write(", "&objList.Fields("Email").Value&"")
		Response.write(", "&objList.Fields("CountryCode").Value&"")
		Response.write(", "&objList.Fields("Budget").Value&"")
		Response.write(", "&objList.Fields("Used").Value&"<br>")
	objList.MoveNext
	Wend
End If
objList.Close()
Set objList = Nothing
Response.write("<br>===========================<br>")

'**** Call to function select record ****'
Dim objSelect
strTable = "customer"
strCondition = " CustomerID = 'C005' "
Call fncSelectRecord(objSelect,strTable,strCondition)
If objSelect.EOF Then
	Response.write("Record not found<br>")
Else
	Response.write("Customer Detail.<br>")
	Response.write("CustomerID = "&objSelect.Fields("CustomerID").Value&"<br>")
	Response.write("Name = "&objSelect.Fields("Name").Value&"<br>")
	Response.write("Email = "&objSelect.Fields("Email").Value&"<br>")
	Response.write("CountryCode = "&objSelect.Fields("CountryCode").Value&"<br>")
	Response.write("Budget = "&objSelect.Fields("Budget").Value&"<br>")
	Response.write("Used = "&objSelect.Fields("Used").Value&"<br>")
End If
objSelect.Close()
Set objSelect = Nothing
Response.write("<br>===========================<br>")


'**** Call to function update record ****'
Dim strCommand,objUpdate
strTable = "customer"
strCommand = " BUDGET = '4000000' "
strCondition = " CustomerID = 'C005' "
objUpdate = fncUpdateRecord(strTable,strCommand,strCondition)
If objUpdate = True Then
	Response.write("Record updated.<br>")
Else
	Response.write("Error update record.<br>")
End IF
Response.write("<br>===========================<br>")


'**** Call to function delete record ****'
Dim objDelete
strTable = "customer"
strCondition = " CustomerID = 'C005' "
objDelete = fncDeleteRecord(strTable,strCondition)
If objDelete = True Then
	Response.write("Record deleted.<br>")
Else
	Response.write("Record not delete.<br>")
End IF

%>
</body>
</html>


Screenshot

ASP & Ms Access






   
Share


ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท


ลองใช้ค้นหาข้อมูล


   


Bookmark.   
       
  By : ThaiCreate.Com Team (บทความเป็นลิขสิทธิ์ของเว็บไทยครีเอทห้ามนำเผยแพร่ ณ เว็บไซต์อื่น ๆ)
  Score Rating :  
  Create/Update Date : 2008-08-10 16:28:50 / 2008-09-14 14:55:42
  Download : Download  ASP Microsoft Access Used Function Database Query
 Sponsored Links / Related

 
ASP Microsoft Access Connect to Database
Rating :

 
ASP Microsoft Access List Table Properties
Rating :

 
ASP Microsoft Access List Record
Rating :

 
ASP Microsoft Access List Record (ODBC)
Rating :

 
ASP Microsoft Access Random Record
Rating :

 
ASP Microsoft Access List Record Paging/Pagination
Rating :

 
ASP Microsoft Access Search Record
Rating :

 
ASP Microsoft Access Search Record Paging/Pagination
Rating :

 
ASP Microsoft Access Multiple Column
Rating :

 
ASP Microsoft Access Multiple Column and Paging/Pagination
Rating :

 
ASP Microsoft Access Add/Insert Record
Rating :

 
ASP Microsoft Access Transaction (BeginTrans,CommitTrans,RollbackTrans)
Rating :

 
ASP Microsoft Access Check Already Exists Add/Insert Record
Rating :

 
ASP Microsoft Access Edit/Update Record
Rating :

 
ASP Microsoft Access Delete Record
Rating :

 
ASP Microsoft Access Multiple Checkbox Delete Record
Rating :

 
ASP Microsoft Access Used Include Function
Rating :

 
ASP Microsoft Access Database Class
Rating :


ThaiCreate.Com Forum


Comunity Forum Free Web Script
Jobs Freelance Free Uploads
Free Web Hosting Free Tools

สอน PHP ผ่าน Youtube ฟรี
สอน Android การเขียนโปรแกรม Android
สอน Windows Phone การเขียนโปรแกรม Windows Phone 7 และ 8
สอน iOS การเขียนโปรแกรม iPhone, iPad
สอน Java การเขียนโปรแกรม ภาษา Java
สอน Java GUI การเขียนโปรแกรม ภาษา Java GUI
สอน JSP การเขียนโปรแกรม ภาษา Java
สอน jQuery การเขียนโปรแกรม ภาษา jQuery
สอน .Net การเขียนโปรแกรม ภาษา .Net
Free Tutorial
สอน Google Maps Api
สอน Windows Service
สอน Entity Framework
สอน Android
สอน Java เขียน Java
Java GUI Swing
สอน JSP (Web App)
iOS (iPhone,iPad)
Windows Phone
Windows Azure
Windows Store
Laravel Framework
Yii PHP Framework
สอน jQuery
สอน jQuery กับ Ajax
สอน PHP OOP (Vdo)
Ajax Tutorials
SQL Tutorials
สอน SQL (Part 2)
JavaScript Tutorial
Javascript Tips
VBScript Tutorial
VBScript Validation
Microsoft Access
MySQL Tutorials
-- Stored Procedure
MariaDB Database
SQL Server Tutorial
SQL Server 2005
SQL Server 2008
SQL Server 2012
-- Stored Procedure
Oracle Database
-- Stored Procedure
SVN (Subversion)
แนวทางการทำ SEO
ปรับแต่งเว็บให้โหลดเร็ว


Hit Link
   







Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่