VBA操作数据库代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 VBA操作数据库

作者:彧博 / 发布于2015/6/19/ 944


	'Excel的VBA连接数据库方法
	Public 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=sa;Password=123456;Initial Catalog=DW;Data Source=R9HDET7"
	 ''查询语句
	 strSQL = "select * from [dbo].[VSC_BI_CUSTOMER]"
	 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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　数据库　

同语言下

可能有用的

彧博贡献的其它代码(15)