我创建了两个单独的记录集,但无法连接它们。
问题是最后一个SQL。
这些记录将有10万条记录,因此将其粘贴到表单中太长了。
我想使用日期和时间列将其连接到一条记录中。
public static byte[] doSign(string text)
{
RSACryptoServiceProvider csp = CreateRsaProviderFromPrivateKey(File.ReadAllText(@"Security\private.pem"));
SHA1Managed sha1 = new SHA1Managed();
byte[] data = Encoding.ASCII.GetBytes(text);
byte[] hash = sha1.ComputeHash(data);
return csp.SignHash(hash, CryptoConfig.MapNameToOID("SHA1"));
}
答案 0 :(得分:2)
这对我有用:
Dim cn As New ADODB.Connection, rs As ADODB.Recordset, dbName
dbName = "C:\Excel\SQL"
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source='" & dbName & "';" & _
"Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""")
Set rs = cn.Execute(" select a.*, b.* from [File1.csv] a " & _
" inner join [File2.csv] b on a.TheDate = b.TheDate2 ")
Sheet1.UsedRange.ClearContents
Sheet1.Range("A1").CopyFromRecordset rs
cn.Close
答案 1 :(得分:2)
我希望这就是你想要的! 更改了文件名,更新了SQL,并创建了将记录集写入工作表1、2和3(结果)的过程。
Option Explicit
Sub join_csv_files()
Dim RS_full As Object
Dim Rs_FLOAT As Object
Dim Rs_STRING As Object
Dim cn As Object
Dim Server_Name As String
Dim Database_Name As String
Dim DataBase
Dim SQLStr As String
Dim n As Byte
Dim k As Byte
Dim FL As String
Dim ST As String
Set Rs_FLOAT = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
Set Rs_STRING = CreateObject("ADODB.Recordset")
Set RS_full = CreateObject("ADODB.Recordset")
Set DataBase = Application.FileDialog(msoFileDialogFilePicker)
' File Path
Database_Name = ThisWorkbook.Path & "\"
' Filenames
FL = "File1.csv"
ST = "File2.csv"
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Database_Name & ";" & _
"Extended Properties=""text; HDR=Yes; FMT=Delimited; IMEX=1;""")
' Write File1 to sheet1
Rs_FLOAT.ActiveConnection = cn
SQLStr = "select * from " & FL
Rs_FLOAT.Open SQLStr, cn, 3, 1
Call RecordSetToWorksheet(Sheet1, Rs_FLOAT)
' Write File2 to sheet2
Rs_STRING.ActiveConnection = cn
SQLStr = "select * from " & ST
Rs_STRING.Open SQLStr, cn, 3, 1
Call RecordSetToWorksheet(Sheet2, Rs_STRING)
' SQL
SQLStr = ""
SQLStr = SQLStr & "SELECT T1.*, T2.Status "
SQLStr = SQLStr & "FROM "
SQLStr = SQLStr & FL & " as T1 INNER JOIN "
SQLStr = SQLStr & ST & " as T2 "
SQLStr = SQLStr & "ON T1.Time = T2.Time"
Debug.Print SQLStr
' Write result to sheet3
RS_full.Open SQLStr, cn, 3, 1
Call RecordSetToWorksheet(Sheet3, RS_full)
cn.Close
End Sub
Sub RecordSetToWorksheet(objSheet As Worksheet, objRecordSet As Object)
Dim i As Long
With objSheet
.Cells.Delete
For i = 1 To objRecordSet.Fields.Count
.Cells(1, i).Value = objRecordSet.Fields(i - 1).Name
Next
.Cells(2, 1).CopyFromRecordset objRecordSet
.Cells.Columns.AutoFit
End With
End Sub