vb2008如何连接mysql_VB6.0连接 SQLSERVER2008数据库

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

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)

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

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