-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Èìïîðò 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó