Excel的VBA连接数据库方法
2008-04-23 17:30
239 查看
Sub GetData()
Dim strConn As String, strSQL As String
Dim conn As ADODB.Connection
Dim ds As ADODB.Recordset
Dim col As Integer
'清空电子表格的所有数据
Cells.Clear
'连接数据库的字符串
strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;Initial Catalog=dataname;Data Source=servername"
'查询语句
strSQL = "select * from table1"
Set conn = New ADODB.Connection
Set ds = New ADODB.Recordset
'打开数据库连接
conn.Open strConn
With ds
'根据查询语句获得数据
.Open strSQL, conn
'自动控制加入所有列标题
For col = 0 To ds.Fields.Count - 1
'请注意Offset(0, col)中的参数一定要正确噢
Range("A1").Offset(0, col).Value = ds.Fields(col).Name
Next
'加入所有行数据
Range("a1").Offset(1, 0).CopyFromRecordset ds
End With
'以下是关闭数据库连接和清空资源
Set ds = Nothing
conn.Close
Set conn = Nothing
End Sub
做完上面的模块后,要调用它就要加入一个事件:
'我这个是加入一个工作薄打开时就运行GetData方法,也就是自动加载数据
Private Sub Workbook_Open()
Application.Run "GetData"
End Sub
Dim strConn As String, strSQL As String
Dim conn As ADODB.Connection
Dim ds As ADODB.Recordset
Dim col As Integer
'清空电子表格的所有数据
Cells.Clear
'连接数据库的字符串
strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;Initial Catalog=dataname;Data Source=servername"
'查询语句
strSQL = "select * from table1"
Set conn = New ADODB.Connection
Set ds = New ADODB.Recordset
'打开数据库连接
conn.Open strConn
With ds
'根据查询语句获得数据
.Open strSQL, conn
'自动控制加入所有列标题
For col = 0 To ds.Fields.Count - 1
'请注意Offset(0, col)中的参数一定要正确噢
Range("A1").Offset(0, col).Value = ds.Fields(col).Name
Next
'加入所有行数据
Range("a1").Offset(1, 0).CopyFromRecordset ds
End With
'以下是关闭数据库连接和清空资源
Set ds = Nothing
conn.Close
Set conn = Nothing
End Sub
做完上面的模块后,要调用它就要加入一个事件:
'我这个是加入一个工作薄打开时就运行GetData方法,也就是自动加载数据
Private Sub Workbook_Open()
Application.Run "GetData"
End Sub
相关文章推荐
- Excel的VBA连接数据库方法
- Excel中VBA 连接 数据库 方法- 摘自网络
- Excel的VBA连接数据库方法
- [转]数据库连接方式读取不到Excel数据值的解决方法
- Access/VBA/Excel-16- 连接带密码的数据库
- JDBC-ODBC桥接方法连接Excel数据库的方法
- 数据库连接方式读取不到Excel数据值的解决方法
- 学以致用——Excel连接Oracle生成iKB报告——Part1(使用VBA从数据库提取汇总数据)
- 数据库连接方式读取不到Excel数据值的解决方法
- asp.net中web.config保存(Access)数据库连接字符串的三种方法
- ★★★Excel-VBA操作文件四大方法之三 by excelhome
- ODBC与ORCLE的连接及并导出数据库数据到Excel
- oracle 9i数据库连接问题解决方法
- 在jsp中获取数据库连接和关闭资源的方法
- C#连接数据库的一些鲜为人知的方法
- Access/VBA/Excel-获取数据库数据-08
- C#连接数据库的一个鲜为人知的方法
- ASP.NET在IIS上部署使用Oracle数据库无法连接数据库解决方法(转载)
- 连接数据库方法
- ASP.NET三层架构DAL层连接数据库的方法