|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。ado|数据OptionExplicit
PublicpubcnAsNewADODB.Connection
Dimtemp_iAsInteger
毗连数据库
PublicSubGetConnect()
OnErrorGoToerrorhandler:
DimconstrAsString
IfNot(pubcn.State=0)Then
pubcn.Close
EndIf
pubcn.CursorLocation=adUseClient
pubcn.ConnectionTimeout=5
pubcn.Open"Provider=sqloledb;"&_
"NetworkLibrary=DBMSSOCN;"&_指明接纳IP+端口体例查找SqlServer
"DataSource=172.17.21.125,1433;"&_
"InitialCatalog=hpdata;"&_
"UserID=user;"&_
"Password=password;"&_
"Encrypt=yes"
pubcn.DefaultDatabase="hpdata"!!!!!!!!!!!!!!!!
ExitSub
errorhandler:
DimmsgAsInteger
msg=MsgBox("毗连时产生毛病:"&Err.Number&Err.Description&Err.Source&"请将此信息发至邮箱",vbOKOnly)
EndSub
复杂查询失掉数据集////////////////////////////////////////////////////////
PublicFunctionGetRS(sqlstrAsString)AsADODB.Recordset
OnErrorGoToerrorhandler
CallGetConnect
SetGetRS=NewADODB.Recordset
GetRS.Opensqlstr,pubcn,adOpenStatic,adLockOptimistic
SetGetRS.ActiveConnection=Nothing
pubcn.Close
ExitFunction
errorhandler:
DimiAsInteger
i=MsgBox(sqlstr&":::::::"&Err.Description&Err.HelpContext,vbOKCancel)
EndFunction
同步数据集
PublicSubUpdateRS(RsAsADODB.Recordset,OptionalRequerryFlagAsInteger)
CallGetConnect
WithRs
.ActiveConnection=pubcn
.Update
If(NotIsMissing(RequerryFlag))AndRequerryFlag=1Then改于2004年2月6日为修除汗青纪录本客户号查询的修正没法数据同步而设
.Requery
EndIf
.ActiveConnection=Nothing
EndWith
pubcn.Close
EndSub
实行带有参数工具的查询失掉数据集
PublicSubGetRSFromCmd(CmdAsADODB.Command,strAsString,RsAsADODB.Recordset)
OnErrorGoToerrorhandler
CallGetConnect
IfNot(Cmd.State=adStateClosed)Then
Cmd.Cancel
Cmd.ActiveConnection=Nothing
EndIf
WithCmd
.ActiveConnection=pubcn
.CommandTimeout=5
.CommandType=adCmdText
.CommandText=str
EndWith
IfNot(Rs.State=0)Then
Rs.Close
EndIf
Rs.OpenCmd,,adOpenStatic,adLockOptimistic
Rs.ActiveConnection=Nothing
WithCmd
.ActiveConnection=Nothing
EndWith
pubcn.Close
ExitSub
errorhandler:
temp_i=MsgBox(str&Err.Number&Err.Description&Err.Source,vbOKOnly)
EndSub实行无前往了局的sql语句
PublicSubCnExecute(ByValQstrAsString,ByRefRecordNumberAsLong,OptionalQRsAsADODB.Recordset)
&n
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|