VB6.0连接 SQLSERVER2008数据库

前段时间被硬拉去做VB程序开发,基本是零基础,数据库连接上找了很多网上的资料也看不明白,多亏了@WolfBolin的文章,讲了VB连接SQL SERVER数据库的方法,让我豁然开朗,这里要特别谢谢他!

现在数据库顺利连接上了,程序也开发完成,现在将数据库连接的方法分享给大家,希望能帮助更多的人,方法跟@WolfBolin基本相同,略有差异。

ADO控件连接数据库

1、加载ADO部件
“工程”->“部件”(或者Ctrl+T),然后选择以下插件,然后“应用”+“确定”
在这里插入图片描述
添加引用
“工程”->“引用”,选择插件Microsoft ActiveX Data Object 2.5 Library,“应用”+“确认”
在这里插入图片描述
这两步的目的我猜测是添加了连接数据库的插件,有点像java里的jar包。

2、生成连接串
部件添加成功后,左侧的控件栏就能看到这个图标:
在这里插入图片描述
用这个控件在界面任意一处画出一个控件实例
在这里插入图片描述
右键该实例,选择Adobc属性,点击生成按钮,在下图中选择“Microsoft OLE DB Provider for SQL Server”->“下一步”,
在这里插入图片描述
1、服务器名称如果是本地,可能刷新或者输入127.0.0.1即可,如果是远程服务器,就输入那台服务器的IP地址,我是连的远程服务器,输入了IP地址。2、我选的是使用指定的用户名和密码,输入数据库的登录用户名和密码,然后选择允许保存密码。3、如果网是通的,在服务器上选择数据库下面会自动弹出你的用户下的数据库,选择需要连接的即可,最后点击测试连接,基本都能通过。
在这里插入图片描述
测试链接通过后“确定”,最后把“连接字符串”全部拷贝出来,然后把控件删了。是的,我们仅仅是要那个字符串而已。
在这里插入图片描述
代码链接部分
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCon As String
Set cn = New ADODB.Connection
strCon = “。。。” '填写刚才生成的连接字符串
cn.ConnectionString = strCon
cn.Open '数据库打开成功
Dim SQL As String
SQL = “。。。” '数据库语句
cn.Execute (SQL)

我的程序中没有用到DataGrid控件,所以关于DataGrid的用法还是看@WolfBolin的文章。

  • 22
    点赞
  • 105
    收藏
  • 打赏
    打赏
  • 8
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 8

打赏作者

u014136492

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值