Dim Cmd As New ADODB.Command Dim conn As ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB;server=192.168.3.51;uid=sa;pwd=sa;Initial Catalog=MyERP" conn.ConnectionTimeout = 50 conn.Open Dim str_0 As String '第一列 Dim str_1 As String '第二列 Dim str_2 As String '第三列 Set rs = conn.Execute("select * from SystemSettingInfo where SettingInfo_Name = '视窗卡'") If rs(0) <> "" Then str_0 = rs(0) str_1 = rs(1) str_2 = rs(2) End If conn.Close
其中,ADODB.Command、ADODB.Connection、ADODB.Recordset可能刚装好的环境声明时没有这些对象,添加这些对象的方法:
选择 “Project(即项目)” --> " References...(即引用)" 打开 References窗口,在列表中找到 “Microsoft ActiceX Data Objects 2.8 Library”项,添加。再声明前面那三个对象就可以找到了。名称中的“2.8”应该是一个版本。还有2.6、2.2等。(我是做项目临时用到了VB。只供新手查看,一般学VB的这些应该都知道。)
到此这篇VB连接SQL数据库实例_vb连接sql数据库简单实例的文章就介绍到这了,更多相关VB连接SQL数据库实例_vb连接sql数据库简单实例内容请继续浏览下面的相关推荐文章,希望大家都能在编程的领域有一番成就!版权声明:
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符,请将相关资料发送至xkadmin@xkablog.com进行投诉反馈,一经查实,立即处理!
转载请注明出处,原文链接:https://www.xkablog.com/sqlbc/1477.html