2018年7月18日

摘要: Sub 数据库连接() Set Cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Cnn.ConnectionString = "Provider=SQLOLEDB;Persist Secu 阅读全文
posted @ 2018-07-18 10:12 上山打老虎下山采蘑菇 阅读(364) 评论(0) 推荐(0) 编辑
摘要: Sub CopyData_5() Set Cnn = CreateObject("ADODB.Connection")With Cnn.Provider = "microsoft.Ace.oledb.12.0".ConnectionString = "Extended Properties=Exce 阅读全文
posted @ 2018-07-18 10:10 上山打老虎下山采蘑菇 阅读(415) 评论(0) 推荐(0) 编辑

导航