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

Registered : 107,381

HOME > ASP > ASP MySQL > ASP MySQL Database Class





Clound SSD Virtual Server

ASP MySQL Database Class

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

ตัวอย่าง

AspMySQLFunctionClassDatabase.asp

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

Const strHost = "localhost"
Const strUserID = "root"
Const strPassword = "root"
Const strDatabase = "mydatabase"

Class MyDatabase

	Private Conn

	'******** Function Database Access *******'
	'*****************************************'

	'*** Auto Onload Class (Auto Connection) ***'
	Private Sub Class_Initialize()
		Set Conn = Server.Createobject("ADODB.Connection")
		Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER="&strHost&";UID="&strUserID&";" & _
		"pwd="&strPassword&";database="&strDatabase&";option=16384;"
	End Sub
	
	'*** Excute & objRec (Dynamic RecordSet) ***'
	Public Function fncExecuteSQLDynamic(strSQL,objRec)	
		Set objRec = Server.CreateObject("ADODB.Recordset")		
		objRec.Open strSQL,Conn,1,3
	End Function

	'*** Excute & objRec (Static RecordSet) ***'
	Public Function fncExecuteSQLStatic(strSQL,objRec)	
		Set objRec = Conn.Execute(strSQL)
	End Function

	'*** Excute SQL (True/False) ***'
	Public Function fncExecuteSQL(strSQL)
		Dim objExec
		Set objExec = Conn.Execute(strSQL)
		If Err.Number = 0 Then
			fncExecuteSQL = True		
		Else
			fncExecuteSQL = False
		End If
		Set objExec = Nothing
	End Function

	'*** Auto OnUnload Class (Auto Disconnect) ***'
	Private Sub Class_Terminate()
		Conn.Close()
		Set Conn = Nothing
	End Sub

	'*****************************************'
	'*****************************************'
	

	'******* Function Database Command *******'
	'*****************************************'

	'*** Function Insert Record ***'
	Public 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 ***'
	Public 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 ***'
	Public 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 ***'
	Public 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 ***'
	Public Function fncDeleteRecord(strTable,strCondition)
		On Error Resume Next
		Dim strSQL
		strSQL = "DELETE FROM "&strTable&" WHERE "&strCondition
		fncDeleteRecord = fncExecuteSQL(strSQL)
	End Function

	'*****************************************'
	'*****************************************'
End Class
%>




AspMySQLUsedFunctionClassDatabase.asp

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & MySQL Tutorial</title>
</head>
<body>
<!--#include file="AspMySQLFunctionClassDatabase.asp"-->
<%
Dim myDB
Set myDB = New MyDatabase


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 = myDB.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 myDB.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 myDB.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 = myDB.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 = myDB.fncDeleteRecord(strTable,strCondition)
If objDelete = True Then
	Response.write("Record deleted.<br>")
Else
	Response.write("Record not delete.<br>")
End IF

Set myDB = Nothing
%>
</body>
</html>


Screenshot

ASP & MySQL






   
Share


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


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


   


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

 
ASP MySQL Connect to Database
Rating :

 
ASP MySQL List Table Properties
Rating :

 
ASP MySQL List Record
Rating :

 
ASP MySQL List Record (ODBC)
Rating :

 
ASP MySQL Random Record
Rating :

 
ASP MySQL List Record Paging/Pagination
Rating :

 
ASP MySQL Search Record
Rating :

 
ASP MySQL Search Record Paging/Pagination
Rating :

 
ASP MySQL Multiple Column
Rating :

 
ASP MySQL Multiple Column and Paging/Pagination
Rating :

 
ASP MySQL Add/Insert Record
Rating :

 
ASP MySQL Check Already Exists Add/Insert Record
Rating :

 
ASP MySQL Transaction (BeginTrans,CommitTrans,RollbackTrans)
Rating :

 
ASP MySQL Edit/Update Record
Rating :

 
ASP MySQL Delete Record
Rating :

 
ASP MySQL Multiple Checkbox Delete Record
Rating :

 
ASP MySQL Used Include Function
Rating :

 
ASP MySQL Used Function Database Query
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
ปรับแต่งเว็บให้โหลดเร็ว


สุดยอด Source Code V2.0
 

แจ้งชำระเงิน/โอนเงิน
 

Hit Link
   







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