请选择 进入手机版 | 继续访问电脑版
切换风格

Sunset glow Snow NewYear London Flowers Wizard California Cloud Sky Lavender City Black Beige Dragon
1234下一页

1万

主题

1万

帖子

3万

积分

金牌会员

Rank: 6Rank: 6

吾爱币
25109
在线时间
9 小时
注册时间
2020-3-25

论坛新星

VB6.0连接 SQLSERVER2008数据库[复制链接]
发表于 2020-9-11 01:43:08 | 显示全部楼层 |阅读模式

最近在调一个考勤机程序,可惜是VB的,基本零基础。记录分享:

ADO控件连接数据库

1、加载ADO部件
“工程”->“部件”(或者Ctrl+T),然后选择以下插件,然后“应用”+“确定”

VB6.0连接 SQLSERVER2008数据库-1.png

添加引用
“工程”->“引用”,选择插件Microsoft ActiveX Data Object 2.5 Library,“应用”+“确认”

VB6.0连接 SQLSERVER2008数据库-2.png

这两步的目的我猜测是添加了连接数据库的插件,有点像java里的jar包。

2、生成连接串
部件添加成功后,左侧的控件栏就能看到这个图标:

VB6.0连接 SQLSERVER2008数据库-3.png


用这个控件在界面任意一处画出一个控件实例

VB6.0连接 SQLSERVER2008数据库-4.png

右键该实例,选择Adobc属性,点击生成按钮,

在下图中选择“Microsoft OLE DB Provider for SQL Server”->“下一步”,

VB6.0连接 SQLSERVER2008数据库-5.png

1、服务器名称如果是本地,可能刷新或者输入127.0.0.1即可,如果是远程服务器,就输入那台服务器的IP地址,我是连的远程服务器,输入了IP地址。

2、我选的是使用指定的用户名和密码,输入数据库的登录用户名和密码,然后选择允许保存密码。

3、如果网是通的,在服务器上选择数据库下面会自动弹出你的用户下的数据库,选择需要连接的即可,最后点击测试连接,基本都能通过。

VB6.0连接 SQLSERVER2008数据库-6.png

测试链接通过后“确定”,最后把“连接字符串”全部拷贝出来,然后把控件删了。是的,我们仅仅是要那个字符串而已。

VB6.0连接 SQLSERVER2008数据库-7.png

代码链接部分
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)

------------------------------------------------------------------------------------------

到这里就结束了,资料少了点。






上一篇:深入理解Go系列一之指针变量
下一篇:Windows安装Python(图解)
回复

使用道具 举报

242

主题

3042

帖子

6329

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3287
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-11 01:43:12 | 显示全部楼层
支持支持再支持
回复

使用道具 举报

243

主题

3103

帖子

6449

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3346
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 01:30:51 | 显示全部楼层
学习下
回复

使用道具 举报

213

主题

2979

帖子

6171

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3192
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 01:59:56 | 显示全部楼层
鄙视楼下的顶帖没我快,哈哈
回复

使用道具 举报

229

主题

3060

帖子

6349

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3289
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 02:32:35 | 显示全部楼层
楼下的接上
回复

使用道具 举报

231

主题

2959

帖子

6149

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3190
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 03:04:33 | 显示全部楼层
小白一个 顶一下
回复

使用道具 举报

49

主题

2872

帖子

5793

积分

金牌会员

Rank: 6Rank: 6

吾爱币
2921
在线时间
0 小时
注册时间
2020-7-7
发表于 2020-9-14 03:32:19 | 显示全部楼层
广告位,,坐下看看
回复

使用道具 举报

213

主题

3005

帖子

6225

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3220
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 04:11:47 | 显示全部楼层
站位支持
回复

使用道具 举报

196

主题

3058

帖子

6312

积分

金牌会员

Rank: 6Rank: 6

吾爱币
3254
在线时间
0 小时
注册时间
2020-6-28

论坛新星

发表于 2020-9-14 04:40:43 | 显示全部楼层
LZ帖子不给力,勉强给回复下吧
回复

使用道具 举报

45

主题

2871

帖子

5787

积分

金牌会员

Rank: 6Rank: 6

吾爱币
2916
在线时间
0 小时
注册时间
2020-7-7
发表于 2020-9-14 06:37:45 | 显示全部楼层
路过
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

QQ|Archiver|手机版|小黑屋|吾爱分享-享你所想 ( 黔ICP备18007665号-2 )|网站地图

GMT+8, 2021-1-20 17:48 , Processed in 2.926055 second(s), 75 queries .

Powered by 52Fenxiang.Top

© 2001-2020 Comsenz Inc.

返回顶部