+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Ciclare un file e aggiungerlo al contenuto di una textbox

  1. #1
    L'avatar di jqoobe
    jqoobe non è in linea Novello
    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 ?
    Ultima modifica di TheTruster; 16-01-2021 14:07 

  2. #2
    Come hai scritto prima ... ciclando tutto il file csv, leggendolo riga per riga.
    Fra l'altro dovresti mostrare come leggi la riga con la funzione

    udf_ReadLine


    P.S. Non scrivere nel giro di 2 minuti ... modifica il messaggio precedente ... unisco i messaggi

    P.P.S. Tutte le parentesi e le unioni che usi non hanno senso ... non si scrive

    strfile_exp = (App.path & "\export\") & "filemio" & (".csv")

    ma basta

    strfile_exp = App.path & "\export\filemio.csv"
    Ultima modifica di AntonioG; 15-01-2021 15:32 
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    L'avatar di jqoobe
    jqoobe non è in linea Novello
    Grazie Antonio

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Ciclare Controllo TextBox su risultato Recordset
    Da Diego1966 nel forum Microsoft Access
    Risposte: 16
    Ultimo Post: 13-04-2019, 23:12
  2. Ciclare gruppi di textbox
    Da Galileo nel forum Presentati
    Risposte: 1
    Ultimo Post: 30-03-2017, 10:03
  3. Salvare in file txt il contenuto di una textbox creata da codice
    Da AndreaReg nel forum Visual Basic .Net
    Risposte: 23
    Ultimo Post: 26-06-2015, 14:28
  4. Ciclare le textbox....ma non me la riconosce come tale !?!?
    Da Kurdt19XX nel forum Microsoft Excel
    Risposte: 6
    Ultimo Post: 08-01-2015, 09:44
  5. WebBrowser, ciclare il contenuto.
    Da xreme nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 05-02-2006, 17:25