, 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