[es] - Zabavni Kurs - Učite vežbajući!!!

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.inecco.net.

Sajt: www.nsc.ba

+4 Profil

Re: "Zabavni" Kurs - Učite vežbajući!!!

^{26.11.2006. u 14:35 - pre 211 meseci}

Možda

I ♥ ♀

Ovaj post je zlata vrijedan!

Odgovor na temu

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 237
*.smin.sezampro.yu.

+5 Profil

Re: "Zabavni" Kurs - Učite vežbajući!!!

^{28.03.2007. u 00:19 - pre 207 meseci}

Javlja se greska, kada se u bazu unosi fajl ili folder, koji u svom imenu sadrzi znak [ ' ]

(Npr.: Van Morrison-It's Too Late To Stop Now\Disk1\01Ain't Nothin' You Can Do.mp3)
/\ /\ /\
Opcija #1:

Code:

Dim ime_f As String
Dim putanja_f As String
...
ime_f=oFile.Name 'Odnosno oFolder.Name
putanja_f=oFile.Path

'Zameniti znak ' sa nekim drugim (npr.: sa znakom `, ili jednostavno izbrisati znak ')
ime_f=Replace(ime_f,"'","`",vbTextCompare)
putanja_f=Replace(putanja_f,"'","`",vbTextCompare)

'Pa tek onda linija koda ...INSERT INTO...
'samo sto se umesto oFile.Name i oFile.Path pise ime_f i putanja_f

ili opcija #2:
Radimo sa adoRekordset:

Code:

...
adoRekordSet.Fields("ime").Value=File.Name 'Odnosno oFolder.Name
...
adoRekordSet.Fields("velicina").Value=File.Size
...
adoRekordSet.UpdateBatch adAffectAll

Toliko od mene za sada.
Pozdrav!

www.cicevac.com
†StEEwSc†

Odgovor na temu