使用组件封装数据库操作(二)

　2004-09-16 10:28:53　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亜顒㈡い鎰Г閹便劌顫滈崱妤€骞婄紓鍌氬€瑰銊╁箟缁嬫鍚嬮柛顐線缂冩洟姊婚崒娆戭槮婵犫偓闁秵鎯為幖娣妼缁愭鏌″搴′簽濞戞挸绉甸妵鍕冀椤愵澀娌梺缁樻尪閸庣敻寮婚敐澶婂嵆闁绘劖绁撮崑鎾诲捶椤撴稑浜炬慨妯煎亾鐎氾拷

闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亝鎹ｉ柣顓炴閵嗘帒顫濋敐鍛婵°倗濮烽崑娑⑺囬悽绋挎瀬闁瑰墽绮崑鎰版煙缂佹ê绗ч柍褜鍓﹂崣鍐潖閸濆嫅褔宕惰娴犲ジ姊虹拠鑼闁煎綊绠栭幃楣冩倻閽樺鎽曢梺闈涱檧婵″洭宕㈤悽鍛娾拺閻熸瑥瀚烽崯蹇涙煕閻樺磭澧甸柕鍡楀€圭缓浠嬪川婵犲嫬骞堥梺纭呭閹活亞妲愰弴鐔哄ⅰ闂傚倷绶氬ḿ褍煤閵堝洠鍋撳顐㈠祮闁绘侗鍣ｉ獮鎺懳旈埀顒傜不閿濆棛绡€闂傚牊绋戦弳娆徝瑰⿰鍫㈢暫闁哄矉缍佹慨鈧柍鎯版硾濠€杈ㄧ珶閺囩喓绡€婵﹩鍘鹃崢鐢告⒑缂佹ê濮﹂柛鎾村哺閹ɑ娼忛妸銈囩畾闂佸湱绮敮鐐存櫠濞戞氨纾肩紓浣贯缚濞插鈧娲栧畷顒冪亙闂佸憡鍔曢崯鐘诲礈濠靛牊宕叉繛鎴炨缚閺嗗棗鈹戦悩杈厡闁轰焦鐗滅槐鎾存媴娴犲鎽甸梺鍦嚀濞层倝鎮鹃悜钘夌闁规惌鍘介崓鐢告⒑閻熸澘鎮侀柣鎺炵畵閹骞栨担鍏夋嫽婵炶揪绲块崕銈夊吹閳ь剟姊洪幖鐐测偓鏍偋閻樿崵宓侀煫鍥ㄧ⊕閺呮悂鏌ㄩ悤鍌涘

濠电姷鏁告慨鐑藉极閸涘﹥鍙忛柣鎴ｆ閺嬩線鏌涘☉姗堟敾闁告瑥绻戦妵鍕箻閸楃偟浠肩紓浣哄閸ㄥ爼寮诲☉銏犵疀闂傚牊绋掗悘鍫ユ倵閻熺増鍟炵紒璇插暣婵＄敻宕熼姘鳖啋闁诲酣娼ч幗婊堟偩婵傚憡鈷戠痪顓炴媼濞兼劖绻涢懠顒€鏋庢い顐㈢箳缁辨帒螣閼测晜鍤岄梻渚€鈧偛鑻晶顔肩暆閿濆牆鍔垫い锔界叀閹繝濡舵径瀣帾闂佸壊鍋呯换鍐磻椤忓懐绠剧€瑰壊鍠曠花濠氬箚閻斿吋鈷戦悗鍦У閵嗗啴鏌ら崘鑼煟鐎规洘绻堥弫鍐焵椤掑嫧鈧棃宕橀鍢壯囨煕閳╁喚娈橀柣鐔稿姍濮婃椽鎮℃惔鈩冩瘣闂佺粯鐗曢妶绋跨暦閻戞ḿ绡€闁搞儜鍐ㄧギ闂備線娼ф蹇曟閺囥垹鍌ㄦい蹇撶墛閳锋垿鏌熼懖鈺佷粶闁告梹顨婇弻锟犲川椤旈敮濮囩紓浣稿€圭敮鐔妓囩€靛摜纾奸弶鍫涘妼缁楁碍绻涢悡搴ｇ闁糕斁鍓濋幏鍛存煥鐎ｅ灚缍楅梻鍌氬€峰ù鍥ь浖閵娾晜鍊块柨鏇炲€哥粻鏌ユ煕閵夘喖澧柡瀣╃窔閺岀喖宕滆鐢盯鏌￠崨顔藉€愰柡灞诲姂閹倝宕掑☉姗嗕紦闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亜顒㈡い鎰Г閹便劌顫滈崱妤€骞婄紓鍌氬€瑰銊╁箟缁嬫鍚嬮柛顐線缂冩洟姊婚崒娆戭槮婵犫偓闁秵鎯為幖娣妼缁愭鏌″搴′簽濞戞挸绉甸妵鍕冀椤愵澀娌梺缁樻尪閸庣敻寮婚敐澶婂嵆闁绘劖绁撮崑鎾诲捶椤撴稑浜炬慨妯煎亾鐎氾拷　　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌ｉ幋锝呅撻柛銈呭閺屻倝宕妷锔芥瘎婵炲濮靛銊ф閹捐纾兼繛鍡樺笒閸橈紕绱撴笟鍥ф珮闁搞劌鐖兼俊鎾礃椤旂厧绐涢梺鍝勵槹閸ㄥ綊宕㈠ú顏呭€垫鐐茬仢閸旀碍銇勯敂璇茬仸鐎规洩绻濋獮搴ㄦ嚍閵壯冨妇闂傚⿴鍋勫ú锕€煤閺嶃劎澧￠梻鍌欐祰椤曆呪偓鍨浮瀹曟粓鎮㈡總澶嬬稁闂佹儳绻愬﹢杈╁閸忛棿绻嗘い鏍ㄧ閹牊銇勯銏⑿㈡い顏勫暣婵″爼宕卞Δ鈧～搴ㄦ⒑閸涘⿴鐒奸柛銉戝懎寮ㄥ┑鐘灱濞夋稖鐧岄梺缁樻煥閸氬鎮￠妷鈺傚€甸柨婵嗛閸樻挳鏌涚€ｎ偅灏扮紒缁樼箓椤繈顢樺☉娆忣伖闂佽崵鍠愮划搴㈡櫠濡ゅ啯鏆滈柟鐑樻尵椤╂彃霉閻撳海鎽犻柣鎾存礋閺岀喖骞嗚閸ょ喖鏌嶉挊澶樻█闁哄苯绉剁槐鎺懳熼懡銈呭汲婵＄偑鍊ら崑鍛崲閸儱绠犳繝濠傛噹閺嬪牊淇婇婵愬殭妞ゅ繐缍婂濠氬磼濞嗘埈妲梺纭咁嚋缁辨洜鍒掑▎鎾崇闁挎柨鎼禍濂告⒑閸濆嫷妲归柛銊у枛瀵悂寮崼鐔哄幐闂佸憡鍔х徊鑺ョ閸撗呯＝濞达綀娅ｇ敮娑氱磼鐎ｎ偅灏扮紒鍌涘浮閺佸啴宕掑鎲嬬床婵犳鍠楅敃鈺呭礈閿曞倹鍊甸柟鎯板Г閳锋帒霉閿濆懏鎲搁柨娑樼Ф缁辨帡顢氶崨顓犱桓濡ょ姷鍋為崹鍨暦閸洦鏁嗛柛灞炬皑閵堬箓姊虹拠鎻掑毐缂傚秴妫欑粋宥夊冀椤撶偟鍝楁繛瀵稿Т椤戝棝鎮″▎鎾粹拺妞ゆ挶鍔庨悾鍗烆熆瑜滈崹閬嶅Φ閸曨垰妫橀柛顭戝枓閸嬫挾鎲撮崟顓涙敵婵犵數濮村ú锕傚磹闁垮浜滈煫鍥ㄦ尭椤忋倝鏌涚€ｎ偅宕岀€殿喖鈧噥妾ㄥ┑鐐插悑閻楁洟鍩為幋锔藉亹閻庡湱濮撮ˉ婵嬫⒑缁嬭儻顫﹂柛鏂块叄楠炲顫㈠畝鈧悿鈧┑鐐村灦宀ｅ潡鎮块崨瀛樷拺闁革富鍙€濡炬悂鏌涢悩鎰佹疁鐎殿喗鐓￠獮鏍ㄦ媴閸︻厼寮抽梻浣虹帛濞叉牠宕愰崷顓涘亾濮樼偓瀚�

核心提示：前段日子发表的文章，数据库的连接代码可以直接在asp文件中显示出来，使用组件封装数据库操作(二)，这次又进行了一次封装，打开vb，真是……好了，这篇文章结束了,希望对大家有帮助今后的话题便是如何实现AspToDll这个软件的功能，新建Activex控件，工程名称为WebDb

前段日子发表的文章，数据库的连接代码可以直接在asp文件中显示出来。这次又进行了一次封装。

打开vb，新建Activex控件，工程名称为WebDb，类模块名称为GetInfomation

引用”Microsoft Activex Data Object 2.6 Library ”

PRivate Conn As ADODB.Connection

Private Rs As ADODB.Recordset

‘作用:判断数据库是否正确连结

'自己可以更改连接串

Public Function GetConn()

Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=yang"

If Err.Number <> 0 Then

　 GetConn = False

Else

　 GetConn = True

End If

End Function

‘根据输入的雇员ID,得到雇员的名称

Public Function GetEmployeeName(strEmployeeID As Integer) As String

　 Dim strSql As String

　 Set rs = New ADODB.Recordset

　 strSql = "select LastName+firstname from employees where EmployeeID=" & strEmployeeID

　 rs.Open strSql, Conn, adOpenStatic, adLockOptimistic

　 If rs.EOF Then

　 GetEmployeeName = ""

　 Else

　 GetEmployeeName = rs.Fields(0)

　 End If

　 rs.Close

End Function

‘返回所有的雇员列表

Public Function GetEmployeeList() As ADODB.Recordset

　 Dim strSql As String

　 Set rs = New ADODB.Recordset

　 strSql = "select EmployeeID,LastName,FirstName,Title,TitleOfCourtesy,BirthDate,HireDate,Address,City from employees"

　 rs.CursorLocation = adUseClient

　 rs.Open strSql, Conn, adOpenStatic

　 Set GetEmployeeList = rs

　 'rs.Close

End Function

我们进行测试

新建ASP页面，”TestWebDb1.asp”。主要用来测试GetEmployeeList()方法

<HEAD>

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

<%

　 Dim strTopic

　 Dim strTitle

　 Dim strContents

　 Dim DataQuery

　 Dim Rs

　 Dim Myself

　 Myself=Request.ServerVariables("script_name")

　 Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

　 Set Rs=Server.CreateObject("adodb.recordset")　

%>

<TITLE>

　数据组件测试页

</TITLE>

<H1><CENTER>欢迎使用数据组件(www.cncms.com)</CENTER></H1>

<%

　 Dim Flag

　 Flag=DataQuery.GetConn()

　 If Flag=false then

　　　　 ResPonse.Write "数据库没有连结,请检查"

　　　　 ResPonse.End

　 End if

　 Set Rs=DataQuery.GetEmployeeList()

　 if rs.eof then

　　　　 Response.write "没有数据,请查询"

　　　　 Response.end

　 end if

　 Rs.PageSize =3

　 Page= CLng(Request.QueryString ("Page"))

　 If Page < 1 Then Page = 1

　 If Page > Rs.PageCount Then Page = Rs.PageCount

　　 Response.Write "<CENTER><TABLE BORDER=1 cellspacing=0 cellpadding=2>"

　　 Response.Write "<tr BGCOLOR=silver align=center>"

　　 Response.Write "<td>EmployeeID</TD>"

　　 Response.Write "<td>LastName</td>"

　　　 Response.Write "<td>FirstName</td>"

　　　　　 Response.Write "<td>Title</a></td>"

　　　 Response.Write "<td>TitleOfCourtesy</a></td>"

　　　 Response.Write "<td>BirthDate</td>"

　　　 Response.Write "<td>HireDate</td>"

　　　 Response.Write "<td>Address</td>"

　　　 Response.Write "<td>City</td>"

　　 Response.Write "</tr>"

　　　　　 Rs.AbsolutePage = Page

　　　　　 For iPage = 1 To Rs.PageSize

　　　　　　　　 Response.Write "<TR align=right>"

　　　　　　　 for i=0 to Rs.fields.count-1

　　　　　　　　　　 Response.Write "<td>"&Rs.fields.item(i)&"</td>"

　　　　　　　　 Rs.MoveNext

　　　　　　　　 If Rs.EOF Then Exit For

%>

<%If Page <> 1 Then%>

<%End If%>

<%If Page <> Rs.PageCount Then%>

<A HREF="<%=Myself%>?Page=<%=Rs.PageCount%>">最后的一页</A>

<%End If%>

页次:<FONT COLOR="Red"><%=Page%>/<%=Rs.PageCount%></FONT>

</Form>

<%

Rs.close

%>

新建ASP页面，”TestWebDb2.asp”。主要用来测试GetEmployeeName()方法

这个页面相对简单一些

<HEAD>

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

<%

　 Dim DataQuery

　 Dim strID

　 Dim strResult

　 Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

%>

<TITLE>
数据组件测试页
</TITLE>

<H1><CENTER>欢迎使用数据组件(www.cncms.com)</CENTER></H1>

<%

　 If Len(Request.QueryString("ID")) > 0 Then

　 strID = Request.QueryString("ID")

　　　　 Dim Flag

　　　　 Flag=DataQuery.GetConn()

　　　　 If Flag=false then

　　　　　　　　 ResPonse.Write "数据库没有连结,请检查"

　　　　　　　　 ResPonse.End

　　　　 End if

　　　　 strResult=DataQuery.GetEmployeeName(cint(strID))

　　　　 if strResult="" then

　　　　　　　　 Response.Write "对不起,没有这个编号,请查询"

　　　　　　　　 Response.End

　　　　 else

　　　　　　　　 ResPonse.Write strResult

　　　　 end if

　 End If

%>

<INPUT LANGUAGE="VBScript"

　 TYPE="BUTTON"

　 VALUE="Search"

　 >

</FORM>
</HEAD>

一些想法:数据库连结如果放到组件里，如果要修改数据库连结，则要重新编译组件，可能会由此引发一些问题(但是推荐这种，毕竟数据库名和服务器名不会经常改)

如果数据库连结放到ASP页面，可以通过属性传值到组件中，但是安全性会降低。

真是……

好了，这篇文章结束了,希望对大家有帮助

今后的话题便是如何实现AspToDll这个软件的功能，我们一步一步实现。

Tags：使用 组件 封装

编辑录入：爽爽　[复制链接] [打印]

[]

好的评价　如果觉得好，就请您
0%(0)
差的评价　如果觉得差，就请您
0%(0)

赞助商链接

热点阅读

焦点图片

精彩阅读

使用组件封装数据库操作(二)

Tags：使用 组件 封装

更多精彩

赞助商链接

热点阅读

焦点图片

最新推荐

精彩阅读

使用组件封装数据库操作(二)

Tags：使用 组件 封装

更多精彩

赞助商链接

热点阅读

焦点图片

最新推荐

精彩阅读

Tags：使用组件封装