Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Sintassi per lettura xml

  1. #1
    SCvanni non è in linea Scribacchino
    Salve,
    sto adattando, anzi ho già adattato un codice per estrarre i dati da un file xml e riportare questi nel mio Db.

    Sinteticamente il codice in oggetto è il seguente:
    Dim Nodo As IXMLDOMNodeList, Nodo1 As IXMLDOMNodeList  etc......
    Dim Nome As IXMLDOMNode
    Dim Testo1 As String, Testo2 As String etc....
    Testo1 = ""
    Testo2 = ""   etc ........
    
    Set obj = New DOMDocument
    obj.async = False
    obj.Load (PercorsoCompleto)
    
    'seleziono il nodo da leggere
    Set Nodo1 = obj.documentElement.selectNodes("//CedentePrestatore//IdCodice")
    'leggo tutti i dati del nodo
    For Each Nome In Nodo1
    'estraggo il valore del nodo
    Testo1 = Testo1 & " " & Nome.Text
    Next
    etc...............
    rs1.Edit
    With rs1
    .Fields("DataFattura") = Format(Trim(Testo6), "dd/mm/yy")
    
     .Update
    End With
     '==========================================================================================
    'LOOP TABELLA PER AGGIORNAMENTO CAMPI
    rs1.MoveNext
    Loop
    
    Il codice, in buona sostanza (vedi dati in grassetto) per come l'ho interpretato io:

    1-resetta il valore (Testo1 = "")
    2-Nel ciclo For Each (Testo1 = Testo1 & " " & Nome.Text)
    modifica aggiungendo uno spazio prima del valore del nodo
    3-Nel recordset (.Fields("DataFattura") = Format(Trim(Testo6), "dd/mm/yy"))
    applicando il Trim del testo6 toglie gli spazi davanti e dopo il valore estratto.

    La mia domanda è questa: c'è una motivazione tecnica per operare in questo modo?

    Ora magari mi chiederete, funziona?

    Nel caso in specie, NO ho dovuto modificare così:

    da:
    Testo6 = Testo6 & " " & Nome.Text
    
    a:
    Testo6 =  Nome.Text
    

    ed è tutto OK

    resto in attesa di un vostro parere.
    ℹ️ Leggi di più su SCvanni ...

  2. #2
    Scusa ma si capisce poco da quello che dici.

    Intanto cosa c'entra Testo6 con Testo1 ?
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    SCvanni non è in linea Scribacchino
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Scusa ma si capisce poco da quello che dici.

    Intanto cosa c'entra Testo6 con Testo1 ?
    Grazie per la risposta Antonio, avevo anticipato che il codice veniva indicato sinteticamente se lo osservi con attenzione sono indicati degli etc... per sintetizzare le dichiarazioni
    correggo quello che non mi è chiaro

    1-resetta il valore (Testo1 = "")
    2-Nel ciclo For Each (Testo1 = Testo1 & " " & Nome.Text)
    modifica aggiungendo uno spazio prima del valore del nodo
    3-Nel recordset (.Fields("DataFattura") = Format(Trim(Testo1), "dd/mm/yy"))
    applicando il Trim del testo1 toglie gli spazi davanti e dopo il valore estratto.
    Spero sia più chiaro
    ℹ️ Leggi di più su SCvanni ...

  4. #4
    A parte il fatto che non devi indicare del codice "sinteticamente" altrimenti confondi chi ti legge, ancora non comprendo.

    La tua domanda "c'è una motivazione tecnica per operare in questo modo" non ha molto senso. Devi essere più specifico e devi dire cosa contengono le variabili in questione durante l'esecuzione usando il debug.
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Ciao

    Dipende da cosa devi fare

    Questo passaggio
    For Each Nome In Nodo1
    'estraggo il valore del nodo
    Testo1 = <b>Testo1 & " " & Nome.Text</b>
    Next
    
    Questo LOOP concatena tutti i valori del nodo "//CedentePrestatore//IdCodice" in una variabile
    a te serve così??

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  6. #6
    SCvanni non è in linea Scribacchino
    Quote Originariamente inviato da dragone bianco Visualizza il messaggio
    Questo LOOP concatena tutti i valori del nodo "//CedentePrestatore//IdCodice" in una variabile
    a te serve così??
    Ciao
    Bene questo questo mi fa sorgere un dubbio, che proverò a chiarirmi da solo e vi farò sapere.

    intanto grazie per la risposta e mi scuso con Antonio per non aver potuto rispondere ieri.

    Saluti
    ℹ️ Leggi di più su SCvanni ...

  7. #7
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Ciao

    il codice da te postato è corretto (funzionale) la domanda è "Serve alle tue esigenze così com'è?"

    un piccolo input
    se vuoi trascrivere i dati direttamente in tabella usa il LOOP di prima
    e al suo interno scrivi il codice per inserire i dati tramite ADODB e/o DAO (o modificare campi esistenti)
    c'è la funzione FIND che ti cerca i campi in un Recorset

    Buon Lavoro
    ℹ️ Leggi di più su dragone bianco ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. sintassi report
    Da silverkaos nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 10-02-2016, 01:09
  2. [C++] Sintassi
    Da pixel nel forum C/C++
    Risposte: 1
    Ultimo Post: 10-12-2013, 19:57
  3. errore di sintassi
    Da bordelloweb nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 13-06-2009, 23:32
  4. [VB6] Errore di sintassi
    Da dolcissimo nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 05-06-2007, 16:18
  5. sintassi query
    Da marinaio nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 06-09-2005, 17:36