Èìïîðò csv â sql (Access & SQL)
|
|
Âîñêðåñåíüå, 16 Èþëÿ 2017 ã. 17:17
+ â öèòàòíèê
Ðàíüøå â Access ñ ïîìîùüþ êíîïêè èìïîðòèðîâàëà csv ôàéë â ñàì Access è çàòåì îáíîâëÿëà îäíó èç òàáëèö äàííûìè csv.
Ñåé÷àñ íå çíàþ êàê ëó÷øå ïîñòóïèòü, îñòàâèòü òàêæå èëè ñòîèò ïåðåäåëàòü èíà÷å?
Private Sub cmd_import_Click()
DoCmd.TransferText acImportDelim, , "csv1", "D:\csv1.csv"
End Sub
Private Sub cmd_update_Click()
Dim str1 As String
str1 = "UPDATE q_1 AS T1 INNER JOIN csv1 AS T2 ON (T1.momartvis_tarigi = T2.F2) AND (T1.id_clinical = T2.F9) SET T1.pasuxi = T2.[F41]*0.1;"
CurrentDb.Execute str1, dbFailOnError
str1 = "UPDATE q_2 AS T1 INNER JOIN csv1 AS T2 ON (T1.momartvis_tarigi = T2.F2) AND (T1.id_clinical = T2.F9) SET T1.pasuxi = T2.[F39]*0.01;"
CurrentDb.Execute str1, dbFailOnError
...............
Sub End
Äëÿ UPDATE íàïèñàëà ïðîöåäóðó îáíîâëåíèÿ äàííûõ - "proc_update_csv_clinical"
Íî îí áóäåò ðàáîòàòü, åñëè ñàì csv1.csv ôàéë áóäåò çàãðóæåí â SQL. Âðó÷íóþ êîíå÷íî æå ñìîãó çàãðóçèòü, íî ìíå íóæíî, ÷òîáû ýòî äåëàë äðóãîé ÷åëîâåê ñ ïîìîùüþ îäíîé êíîïêè, êîòîðàÿ âûïîëíÿåò ýòó ïðîöåäóðó.
Âîò òîëüêî íå çíàþ, ÷åì çàìåíèòü
DoCmd.TransferText acImportDelim, , "csv1", "D:\csv1.csv"
http://www.sql.ru/forum/1266115/import-csv-v-sql-access-sql
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-