|
楼主 |
发表于 2024-2-23 10:55
|
显示全部楼层
本帖最后由 opiona 于 2024-2-23 13:59 编辑
SQL Server 直接添加和这个类似 但是链接是反着来的
缺点是: 速度慢, 数据多的时候无法忍受的慢, 所以才开发的这个DLL
直接添加的代码示例:
- StrSQL = ""
- StrSQL = StrSQL & "INSERT INTO "
- StrSQL = StrSQL & " [odbc;Driver={SQL Server}" '//在空格+[:后面是固定格式
- StrSQL = StrSQL & ";Server=" & NameBase '//服务器名称或地址
- StrSQL = StrSQL & ";Database=" & Catalog '//数据库名称
- StrSQL = StrSQL & ";UID=" & UserName
- StrSQL = StrSQL & ";PWD=" & UserPass
- StrSQL = StrSQL & "]" '//用户名,密码]
- StrSQL = StrSQL & ".[测试表]"
- StrSQL = StrSQL & " ([日期],[订单号],[数量]) "
- StrSQL = StrSQL & "SELECT TOP " & PUB_NUMS & " [日期],[订单号],[数量]"
- StrSQL = StrSQL & " FROM [数据表$]" '//[数据$]" '//
-
- Str_Coon = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES';Persist Security Info=False;"
- INTX = AddDelMove(StrSQL, Str_Coon)
复制代码 |
|