自動擷取表格式資料添加,修改資料庫資料的類

來源:互聯網
上載者:User
資料|資料庫 此類個人覺得是很有用的!!!對於以後提交表單資料,不用再一個一個去寫了,直接引用該類,再SAVE或EDIT即可,簡單多了,但當然,因為它不是智能的,所以對於某些資料格式是不能做核查的!!使用範例程式碼如下:
<%
Dim action
action=Request("action")
If action="save" Then
Dim objClass
Set objClass=New SaveFormData
objClass.MDBFile=Server.Mappath("data/data.mdb")
'objClass.SaveRecord "number","*","id"
objClass.SaveRecord "number","Num1,text",""
'objClass.EditRecord "number","*","id=15","id"
Set objClass=Nothing
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>

<body>
<form name="form1" method="post" action="index.asp?action=save">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="19%" height="20">Num1</td>
<td width="81%"><input name="num1" type="text" id="num1"></td>
</tr>
<tr>
<td height="20">Num2</td>
<td><input name="num2" type="text" id="num2"></td>
</tr>
<tr>
<td height="20">Num3</td>
<td><input name="num3" type="text" id="num3"></td>
</tr>
<tr>
<td height="20">Text</td>
<td><input name="Text" type="text" id="Text"></td>
</tr>
<tr>
<td height="20"> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</body>
</html>




類的說明:

如果是使用ACCESS資料庫,則首先指定資料庫的絕對位址![Obj].MDBFile=“資料庫檔案地址“
如果不是ACCESS資料庫,則指定類對象的CONN屬性,樣本:Set [Obj].Conn=[Connection對象]

然後就可以使用
[Obj].SaveRecord(“表名“,“填加欄位名列表“,“不填加欄位名列表”) = 新增加資料
說明: 此方法返回True或False,True則新填加新資料成功,否則失敗!
“表名”:要填表加新記錄資料的資料表名
“填加欄位名列表”:新添資料時的欄位名,用“逗號”隔開,如:“name,word,sex“
“不填加欄位名列表”:添加資料時對此欄位列表裡包括的欄位不進行添加操作。
[Obj].SaveRecord “User“,“*“,“id“

[Obj].EditRecord(“表名“,“修改欄位名列表“,“修改條件”,“不修改欄位列表“)=修改某條資料
“表名”,“修改欄位列表”和“不修改欄位列表”同SAVERECORD方法一樣!
“修改條件”:SQL查詢條件,不帶“WHERE”
樣本:[Obj].EditRecord “User“,“Pass,Sex“,“id=22“,““

注意:“填加欄位列表”和“修改欄位列表”可以使用“”值或“*”值,表明修改所有欄位,但建議此時“不填加欄位名列表”和“不修改欄位名列表”裡寫上“自動增加”型的欄位名,要不然填加或修改資料時將會失敗!


類代碼:
<%
'/*****************************************************************************************
Class SaveFormData
Private C_ErrNumber '錯誤傳回碼
Private C_NumericAllowNull '數字型欄位時是否允許接收非數字值,True = 可以(非數字值時用0代替) False = 不可以(非數字值時將會出錯,ErrNumber = 9)
Private C_DateTimeAllowNull '日期時間型欄位時是否允許接收非日期時間,True = 可以(非日期時間值時用(Now)代替) False = 不可以(非日期時間值時將會出錯,ErrNumber = 10)
Private C_Conn '資料庫CONN連線物件
Private C_MDBFile 'ACCESS資料庫檔案地址,如果不是設定CONN屬性,則該屬性一定不可為空!

Private Sub Class_Initialize
C_Conn=Null
C_NumericAllowNull=True
C_DateTimeAllowNull=True
End Sub

Private Sub Class_Terminate
If Not IsNothing(C_Conn) Then
C_Conn.Close
Set C_Conn=Nothing
End If
End Sub
'/***************************************************************************
'/* 設定/返回Conn對象
'/*說明:添加這個是為了其它資料庫(如:MSSQL)
'/***************************************************************************
Public Property Set Conn(sNewValue)
On Error Resume Next
If Not IsNothing(sNewValue) Then
C_Conn.Close
Set C_Conn=Nothing
End If
Set C_Conn=sNewValue
End Property
Public Property Get Conn
If Not IsNothing(C_Conn) Then
Set Conn=C_Conn
Else
Conn=Null
End If
End



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。