[VB] (Query aggiornamento)

[t.ale]

Ciao a tutti,
spero qualcuno di voi possa darmi una mano con un problema di query.

Ho un DB Access, in un campo testo di una tabella inserisco la path alle immagini che risiedono sul HD locale.

Parte del DB andra' messo sul web e vorrei, tramite query appunto, che la path cambiasse da _____\pippo\etc\immagine.jpg_____
a
_____/immagini/immagine.jpg_____

tenendo il nome immagine invariato. come posso fare?

Grazie mille

T.ale

[sebamix]

Scusa, ma tu vuoi prelevare i dati dal database e quindi sostituire la "\" con "/" oppure aggiornare il database in modo che la "\" venga sostituita in definitiva con "/"?

[t.ale]

Grazie,

tramite query invio i parte dei dati (ometto dei codici ed altro) in un'altro database.

Vorrei sostituire la stringa \aaa\aaa\a.jpg con /aaa/a.jpg sul database che riceve i dati.

Spero di essermi spiegato meglio

T.ale

[t.ale]

mi sono spiegato?
grazie a chiunque mi indichi la strada.....

T.ale

[t.ale]

ho provato con replace ma nulla, ho provato a creare una funzione di prova con vari Right, Left, Len etc etc

ma dalla stringa _____"c:\aaa\bbb.jpg_____

non riesco ad isolare bbb.jpg che in teoria e' quello che mi servirebbe.

In piu' se cambia la profondita di cartelle il tutto peggiora.

Idee?

Grazie,

T.ale

[Johnny_Depp]

Se non ho capito male...

basta che utilizzi una variabile temporanea
che acquisisce il valore del campo N del tuo recordset
lo formatta con replace e poi in fase di visualizzazione
e registrazione (INSERT) nel nuovo database

fai un controllo condizionale con IF

Dim txt_format as String
For c = 0 To 8 'itera per il numero totale dei campi = 9
    FlexGrid.Row = r
    FlexGrid.Col = c
    If c = 8 Then '<-- nel mio esempio il campo dei link da formattare
        txt_format = rs.Fields(c)
        txt_format = Replace(txt_format, "\", "/")
    End If
    FlexGrid.ColAlignment(c) = flexAlignLeftCenter
    If c = 8 Then '<-- se è lui visualizzo a video la variabile 
        FlexGrid.Text = UCase$(txt_format)
    Else
        FlexGrid.Text = UCase$(rs.Fields(c).Value) '<-altim. il recordset 
    End If
Next c

Nel mio esempio ho utilizzato un MSFlexGrid per
visualizzare il recordset, ma tu puoi adattarlo
facilmente alle tue esigenze

[xegallo]

Originariamente inviato da t.ale
ho provato con replace ma nulla, ho provato a creare una funzione di prova con vari Right, Left, Len etc etc

ma dalla stringa _____"c:\aaa\bbb.jpg_____

non riesco ad isolare bbb.jpg che in teoria e' quello che mi servirebbe.

In piu' se cambia la profondita di cartelle il tutto peggiora.

Idee?

Grazie,

T.ale

scusa il carattere "\" c'è sempre non ti conviene fare una split() l'ultimo elemento dell'array (ubound(nome array))è il nome completo del file

[t.ale]

grazie ragazzi,
faccio delle prove e vi dico.......

T.ale