Salve a tutti ho il bisogno di ciclare un file riga per riga e inserire il suo contenuto dentro una textbox..
mi spiego meglio:
ho un file csv devo recuperare dai separatori alcuni parametri.. e ricostruirli in una text box ...
ho fatto questo:
strfile_exp = (App.path & "\export\") & "filemio" & (".csv")
Open strfile_exp For Input As #1
mostra.Text = Input$(LOF(1), #1)
Medio.Text = udf_ReadLine(mostra.Text, 1) ' read line #1
Dim stmp As String
stmp = Medio.Text
Dim q As String
' q = Mid(stmp, 1, 30)
q = "update ADMIN.LTA_ANAGRAFICA set LTA_DATAMODIFICA = TO_DATE('12/19/2020 00:00:00', 'MM/DD/YYYY HH24:MI:SS'), LTA_NOME = 'ATZEI'||' '||'IGNAZIO', LTA_SESSO = 'M', LTA_NASCITA = TO_DATE('12/15/1967 00:00:00', 'MM/DD/YYYY HH24:MI:SS'), LTA_COMUNE_NASCITA='Cagliari',LTA_INDIRIZZO = 'Via Rossi 3', LTA_CITTA = 'Cagliari', LTA_CF = 'TZAFFF67R15B354H' where lta_anag_id = (select ltr_anag_id from admin.ltr_richiesta where ltr_num_rich='3632');"
' Dim B As String
B = Split(Medio.Text, ";")
'SQLView = q
SQLView = "update ADMIN.LTA_ANAGRAFICA set LTA_DATAMODIFICA = TO_DATE('" & B(10) & " " & B(11) & "', 'DD/MM/YYYY HH24:MI:SS')," & "LTA_NOME = '" & B(0) & "'||' '||'" & B(1) & "', LTA_SESSO = '" & B(2) & "', LTA_NASCITA = TO_DATE('" & B(3) & " " & "00:00:00', 'MM/DD/YYYY HH24:MI:SS'), LTA_COMUNE_NASCITA='" & B(4) & "',LTA_INDIRIZZO = '" & B(8) & "', LTA_CITTA = '" & B(7) & "', LTA_CF = '" & B(6) & "' where lta_anag_id = (select ltr_anag_id from admin.ltr_richiesta where ltr_num_rich='" & B(12) & "');"
ora ho fatto una sola riga... ma avrei la neccessità di mettere dentro la textbox il risultato di tutte le righe ciclando il file.. come potrei fare?
in questo modo ho splitato la prima riga del csv, recuperando i dati con il separatore del ";" e ho ticostruito nella textbox il risultato della stringa sql da inserire in oracle.
Per una riga funziona ed è ok.. ma se volessi farlo in automatico per tutte le righe del csv ? come potrei fare ? qualche idea ?