|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
刚刚打开这篇专题,猛然见到HAL9000发表的《对于大型公司项目平台选择j2ee的几层认识》系列,深受启发。办理一个.NET连接SQL的成绩yiyang(转贴)
关头字.NET
出处http://Ouynagouyang
ImportsSystem.Data
ImportsSystem.Data.SqlClient
ImportsSystem.Data.SqlClient.SqlException
PublicClassconnect
PrivatesAsString
Privates1AsString
PublicConnectAsNewSqlConnection("server=Yiyang;database=KDERP;uid=sa;password=123")
SubNew()
Connect.Open()
EndSub
PublicPropertysql()
Get
Returns
EndGet
Set(ByValValue)
s=Value
EndSet
EndProperty
PublicPropertytable()
Get
Returns1
EndGet
Set(ByValValue)
s1=Value
EndProperty
PublicFunctionRetable()AsDataTable
DimcomAsNewDataSet()
DimadaAsNewSqlDataAdapter()
Dimcom1AsNewSqlCommand()
com1.Connection=Connect
com1.CommandText=s
ada.SelectCommand=com1
ada.Fill(com,"t1")
Returncom.Tables(0)
EndFunction
PublicFunctionExec()AsInteger
DimiAsInteger
DimcomAsNewSqlCommand()
com.CommandText=s
com.Connection=Connect
i=com.ExecuteNonQuery()
Returni
EndFunction
PublicFunctionRetdataset(ByValtAsString)AsDataSet
DimcomAsNewSqlCommand()
com.Connection=Connect
com.CommandText=s
DimadaAsNewSqlDataAdapter()
ada.SelectCommand=com
DimdaAsNewDataSet()
ada.Fill(da,t)
Returnda
EndFunction
PublicFunctionRetdataread()AsSqlDataReader
DimcomAsNewSqlCommand()
com.Connection=Connect
com.CommandText=s
Returncom.ExecuteReader
EndFunction
EndClass
在VC.net的版本上,为了让C++运行在.NETFramework中,微软为C++引进了托管,就是托管C++(ManagedC++),这个根本就没有流行起来,自托管C++产生以后就没有收到过好评。 |
|