用vba如何连接网上的sql数据库?

代码如下：有问题，发百度消息给我。

在Microsoft visual basic中，工具－引用 Microsoft ActiveX Data Objects 2...选一个高版本的

Dim conn As New ADODB.Connection

connStr = "Driver={SQL Server}DataBase=testServer=(local)UID=saPWD=123"

conn.Open connStr '连接数据库

Dim rs As New Recordset

sql = "select * from a" '查看表a

rs.Open sql, conn, 3, 3

Do While Not rs.EOF '循环表a的内容

MsgBox (rs("field1")) '显示表中field1字段内容

rs.MoveNext

Loop

'connStr = "Driver={SQL Server}DataBase=testServer=(local)UID=saPWD=123"

'test是数据库名

'(local)是服务器名或IP地址，可以：192.168.1.1，可以是：www.sina.com.cn

'sa是数据库用户

'123是数据库用户密码

首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了

打开VBA编辑器的两种方式：

Excel → 开发工具 → Visual Basic：打开VBE后，点击插入，选择模块，就可以在该项目下新建一个空白模块。

Excel → 开发工具 → 插入 → 控件 → 右键控件 → 指定宏：可以直接将宏绑定到控件上，然后进行编辑。

进行编写代码前的准备工作：

Visual Basic → 工具 → 引用：引用 Microsoft ActiveX Data Objects 2.x Library，否则运行代码会报“用户定义类型未定义”提示。

Excel中用VBA根据输入的日期从Access数据库中提取相应的数据并插入到Excel表中：

---