vb链接mysql字符串_VB连接EXCEL数据库的字符串写法

Private Sub Command1_Click()

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

rs.CursorLocation = adUseClient

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\;Extended Properties='Excel 8.0;HDR=Yes'"

Set rs = cnn.Execute("update [Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\export.xls].[payroll$] set b.交流干部津贴 = a.交流干部津贴 from [Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\export.xls].[payroll$] a,[Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\2011-08月工资发放表-计算0816(3).xls].[工资$] b Where a.员工工号 = b.工号 ")

rs.Close

cnn.Close

Set rs = Nothing

Set cnn = Nothing

End Sub

执行更新语句，在连接字符串中DATA SOURCE要怎么写？

Data Source= C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\

这是用到这个文件夹下的两个表。 谢谢大家帮助。

作者: lxl_3210

发布时间: 2011-08-29