使用ADO对象链接数据库代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】使用ADO对象链接数据库

作者:Dezai.CN / 发布于2011/7/8/ 992

<div>1． 定义连接对象
　　Global DBconnect As New ADODB.Connection
　　2． 执行连接语句
　　If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
　　连接ODBC
　　DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"
　　直接连接<a class="common" href="http://www.soidc.net/search_article.shtml?wo=Access" target="_blank"><font color="#3468a4">Access</font></a>为
　　Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0"　// Access 97为3.51
　　DBconnect.ConnectionString = "FilePathFileName.mdb"
　　连接<a class="common" href="http://www.soidc.net/search_article.shtml?wo=Oracle" target="_blank"><font color="#3468a4">Oracle</font></a>
　　DBconnect.Provider = "MSADORA"
　　DBconnect.ConnectionString = "user/mypass@servicename
　　连接<a class="common" href="http://www.soidc.net/search_article.shtml?wo=SQL+Server" target="_blank"><font color="#3468a4">SQL Server</font></a>
　　DBconnect.Provider = "SQLOLEDB.1"
　　DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
　　或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"
　　DBConnect.Open
　　3． 取查询结果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
　　 RS.Open SQLStr, DBconnect, adOpenKeyset
　　4． 执行<a class="common" href="http://www.soidc.net/search_article.shtml?wo=SQL%D3%EF%BE%E4" target="_blank"><font color="#3468a4">SQL语句</font></a>
　　DBconn.Execute SQLStr
　　5． 关闭<a class="common" href="http://www.soidc.net/search_article.shtml?wo=%CA%FD%BE%DD%BF%E2" target="_blank"><font color="#3468a4">数据库</font></a>
　　DBconnect.Close
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　ADO对象　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)