vb接入数据库,vb与access数据库连接

VB连接SQL server数据库 ADO方式vb接入数据库：

一：根据常规提示；

二：代码方式连接数据库：

Dim strTemp As String

strTemp = " select top 1 * from dbo.Hos_recipe_zd_temp where number = '" + Trim(Text1.Text) + "'" + " order by flow desc"

Debug.Print strTemp

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = strTemp

Adodc1.Refresh

Text2.Text = Adodc1.Recordset("code") & "|" & Adodc1.Recordset("caption")

如果用ado控件的话vb接入数据库，关闭打开的表即可，不需要关闭数据库连接，退出程序后，控件资源就会被释放。但在调试程序环境下，数据库会一直处于打开状态。

(adodc控件是ms对ado表现的一个封装，里面都会自己进行释放。)

用adodb，和用adodc控件不同。

http://www.360doc.com/content/15/1014/10/28106033_505530115.shtml //VB 中 ADO、 ADODB、 ADODC 的区别与联系(皮毛)