csv sql (Access & SQL) |
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
DoCmd.TransferText acImportDelim, , "csv1", "D:\csv1.csv"