ADO如何取得資料表欄位資訊?
若要取得資料表欄位資訊,由以下RecordSet物件的屬性可得知:
ActualSize屬性:此筆資料的欄位實際大小。
DefinedSize屬性:此筆資料的所定義的欄位大小。
Type屬性:欄位類型,使用以下數字代表之:
文字text:200
日期時間date:135
整數int/識別碼:3
單精準度:4
雙精準度:5
備註memo:201
是否yes/no:17
Name屬性:欄位名稱。
NumericScale屬性:欄位小數部份的位數。
Precision屬性:欄位的整數和小數位數部份加起來的最多位數。
取得資料表欄位資訊例子
讓我們看一個於ASP程式碼當中使用ActualSize/DefinedSize/ Type/Name/NumericScale/Precision的例子。
譬如ASP程式碼rs2.asp如下:
<%
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "產品",conn1,1,3
Response.Write "text<BR>"
Response.Write "ActualSize: " & rs1("名稱").ActualSize & "<BR>"
Response.Write "DefinedSize: " &rs1("名稱").DefinedSize & "<BR>"
Response.Write "Type: " & rs1("名稱").Type & "<BR>"
Response.Write "Name: " & rs1("名稱").Name & "<BR>"
Response.Write "NumericScale: " & rs1("名稱").NumericScale & "<BR>"
Response.Write "Precision: " & rs1("名稱").Precision & "<p>"
Response.Write "date<BR>"
Response.Write "ActualSize: " & rs1("日期").ActualSize & "<BR>"
Response.Write "DefinedSize: " & rs1("日期").DefinedSize & "<BR>"
Response.Write "Type: " & rs1("日期").Type & "<BR>"
Response.Write "Name: " & rs1("日期").Name & "<BR>"
Response.Write "NumericScale: " & rs1("日期").NumericScale & "<BR>"
Response.Write "Precision: " & rs1("日期").Precision & "<p>"
Response.Write "int/識別碼<BR>"
Response.Write "ActualSize: " & rs1("價格").ActualSize & "<BR>"
Response.Write "DefinedSize: " & rs1("價格").DefinedSize & "<BR>"
Response.Write "Type: " & rs1("價格").Type & "<br>"
Response.Write "Name: " & rs1("價格").Name & "<BR>"
Response.Write "NumericScale: " & rs1("價格").NumericScale & "<BR>"
Response.Write "Precision: " & rs1("價格").Precision & "<p>"
Response.Write "memo<BR>"
Response.Write "ActualSize: " & rs1("備註").ActualSize & "<BR>"
Response.Write "DefinedSize: " & rs1("備註").DefinedSize & "<BR>"
Response.Write "Type: " & rs1("備註").Type & "<BR>"
Response.Write "Name: " & rs1("備註").Name & "<BR>"
Response.Write "NumericScale: " & rs1("備註").NumericScale & "<BR>"
Response.Write "Precision: " & rs1("備註").Precision & "<p>"
Response.Write "yes<BR>"
Response.Write "ActualSize: " & rs1("刪除").ActualSize & "<BR>"
Response.Write "D