如何将查询写入外部数据源中

2006-03-31 01:27:36 122 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

外部数据源汇总根据昨天文章的反馈进行了少许修改，删除一家数据源(因为资料较老，与该公司现有产品相差较大)，银联的公司背景和数据来源做了修改。整理不易，大家且看且珍惜。一、同dun公司背景：数据来源：自有数据覆盖：40亿给类数据节点，4亿手机号码，15亿可追踪设备数，5000家行业客户，4000多万负面数据，3000万日度调用量。主要产品：查询多头、设备指纹、智信分、智融分、智选分、行为评分、猎客雷达、数据画像(多头趋势类)优势特点：智选分用于预授信和客户分层营销；猎客雷达是响应分，用于响应预测；智信分是三方数据评分阅读详情

我想将查询的结果写入ACCESS表中或者EXCEL....请高手赐教

...全文

SIwave：在 SIwave 中释放计算频率扫描的强大功能 AEDT 的电路工具允许注入正确的电压和电流。要使用电路工具，SIwave 必须首先使用 PI 求解器求解结构的 S 参数。阅读详情

小炮叔

MS-SQL Server 34,876 成员 254,635 内容

+ 关注 + 加入社区

切换为时间正序

superwz 2006-03-31

打赏
举报

Dim s As String
Dim rs1 As ADODB.Recordset
Dim cn1 As ADODB.Connection
On Error Resume Next
Set cn1 = New ADODB.Connection
Dim cnstr As String
Dim sum As Long
Dim j As Integer
Dim all(30)
sum = 0

Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
xlapp.WindowState = 2 '最小化
Set xlBook = xlapp.Workbooks.Open(App.Path & "\record.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate
ActiveSheet.Range("A1:B50") = "" '清空
'xlsheet.Range("a1:b50").Value = "" '
' xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
' xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
' List1.Clear
i = 0
cn1.ConnectionString = "Password=123;User ID=sa;Data Source=123;"
cn1.Open

Set rs1 = New ADODB.Recordset
sel = "SELECT InfoCode, COUNT(*) AS aaa From ssdCustomTailorTable WHERE (RecTelNo LIKE '13%') GROUP BY InfoCode"
rs1.Open sel, cn1, adOpenDynamic, adLockOptimistic, adCmdText
ProgressBar1.Value = Max
' StatusBar2.SimpleText = "............"
Do While Not rs1.EOF

Open App.Path & "\system.ini" For Input As #2

Do While Not EOF(2)
Line Input #2, s
If rs1(0).Value = Val(Trim(s)) Then
i = i + 1
ProgressBar1.Value = 100 \ i
List1.AddItem rs1(0).Value & " " & rs1(1).Value
Open App.Path & "\record.txt" For Append As #1
Print #1, rs1(0).Value, rs1(1).Value
Close #1
xlsheet.Cells(i, 1) = rs1(0).Value
xlsheet.Cells(i, 2) = rs1(1).Value
all(i) = rs1(1).Value
' Debug.Print xlSheet.Cells(i, 2)
sum = sum + xlsheet.Cells(i, 2)
End If
Loop

Close #2

rs1.MoveNext
Loop
xlsheet.Cells(i + 1, 2) = sum
' Debug.Print sum
Text1.Text = sum
rs1.Close
cn1.Close

ProgressBar1.Value = 0
xlsheet.Close

Set xlapp = Nothing

'

huailairen 2006-03-31

打赏
举报

用openrowset
写入。

如何将查询写入外部数据源中

相关推荐