[分享]利用ADO建立EXCEL与SQL SERVER、ACCESS的联系，可以导入、导出EXCEL数据

henrry

使用对象的 ADO 编程模型
ADO 的目标是访问、编辑和更新数据源，而编程模型体现了为完成该目标所必需的系列动作的顺序。ADO 提供类和对象以完成以下活动： 连接到数据源 (Connection)，并可选择开始一个事务。
可选择创建对象来表示 SQL 命令 (Command)。
可选择在 SQL 命令中指定列、表和值作为变量参数 (Parameter)。
执行命令 (Command、Connection 或 Recordset)。
如果命令按行返回，则将行存储在缓存中 (Recordset)。
可选择创建缓存视图，以便能对数据进行排序、筛选和定位 (Recordset)。
通过添加、删除或更改行和列编辑数据 (Recordset)。
在适当情况下，使用缓存中的更改内容来更新数据源 (Recordset)。
如果使用了事务，则可以接受或拒绝在完成事务期间所作的更改。结束事务 (Connection)。

裘得

henrry兄： 　　能否做个Excel往SQL server　里倒数据的例子？还有用update语句更新数据库后怎样做个msgbox用来提示几行受到影响。

henrry

做了注释的简化程序： Sub insertData()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim I%, strTemp$, strTemp2$, RowNum%
Dim wkSheet As Worksheet


I = MsgBox("确认要导入数据吗？", vbYesNo)
If I = 7 Then
Exit Sub
End If

'建立与SQL的连接
Conn.Open "provider=sqloledb.1;persist security info=false;user id=用户名;pwd=口令;data source=192.168.2.2;initial catalog=首选数据库" Application.ScreenUpdating = False
Set wkSheet = Worksheets("Check")
wkSheet.Activate
'找出不为空的需要倒入SQL的数据
RowNum = Range("a1").End(xlUp).Row '开始倒数据 '直接插入数据表
Conn.BeginTrans '开始一个事务，防止别人同时操作同一个表
For I = 2 To RowNum
If wkSheet.Cells(I, 4).Value <> "" Then
'拼写INSERT语句的SQL语句
strTemp = "insert into tclass (name,code) "
strTemp = strTemp & " vaues('" & wkSheet.Cells(I, 1).Value & ",'" & wkSheet.Cells(I, 2).Value & "')"
'执行INSERT语句
Conn.Execute strTemp
End If
Next
Conn.CommitTrans '结束插入操作的事务

ThisWorkbook.Save
'显示需要替换的记录条数
Rs.Open "select count(*) from tclass where tclass.sdate is null", Conn, adOpenKeyset
MsgBox "需要替换的记录条数：" & Str(Rs.RecordCount)
Rs.Close

'将表中的日期字段填上
Conn.Execute "update tclass set tclass.sdate=" & Format(Date, "yyyy-mm-dd") & " where tclass.sdate is null"
Conn.Close '关闭链接
Set Rs = Nothing '释放内存
Set Conn = Nothing '释放内存

Set wkSheet = Nothing
Application.ScreenUpdating = True
MsgBox "导入完毕！"
End Sub

cdrr

非常感谢，要学好一阵了 Provider=msdaora　　是对ORACELR连接，如我的ORACLE数据库名为SWDB，在上面的代码中，怎么没看到运用这个库名啊？

henrry

oracel我不熟悉，在SQL SERVER中 Conn.Open "provider=sqloledb.1;persist security info=false;user id=用户名;pwd=口令;data source=192.168.2.2;initial catalog=首选数据库" 如果首选数据库没有定义，则在SQL语句中要要定义，如： select * from 数据库名.dbo.数据表名 这种情况用于一个连接操作多个数据库的情况 如果只操作一个数据库，initial catalog=首选数据库,就要定义缺省的连接数据库

cdrr

谢谢楼主

ykcbf

真的不错。

chyzhen20

henrry高手啊，有用过连接sybase吗？

henrry

VB6.0用ADO连接Sybase数据库采用OLE DB For ODBC Driver 新建工程，在工程菜单中引用Microsoft ActiveX Data Object 2.0 Library Public cnTest As New ADODB.Connection '声明ADO连接对象，为工程级全局变量 '连接子程序 Public Function connectSybase() As Boolean On Error GoTo ErrHandle Dim strConnect As String '通过下句与ODBC数据源进行连接，不需用户选择数据源 strConnect="Provider=MSDASQL.1;DRIVER={Sybase System 11}; " _ ' & " Persist Security Info=False;DSN=;" _ & " SRVR=WIND;DB=master;UID=sa;PWD=password" 'Persist Security是否采用集成安全机制 connectSybase = True Exit Function ErrHandle: connectSybase = False End Function
Private Sub Form_Load() Dim rsTest As New ADODB.Recordset Dim strSQL As String If connectSybase Then strSQL = "Select * from sysusers" 'strSQL可以是SQL语句（块），存储过程 rsTest.CursorLocation = adUseClient rsTest.Open strSQL, cnTest 'cnTest为打开的活动的连接 Else MsgBox "打开数据库失败" Exit Sub End If Do Until rsTest.EOF Debug.Print rsTest.Fields(0), rsTest.Fields(1) rsTest.MoveNext Loop End Sub

mumu

高手啊！高手！