Možda 
"Zabavni" Kurs - Učite vežbajući!!!
Zaključano
Zakačeno
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:
ili opcija #2:
Radimo sa adoRekordset:
Toliko od mene za sada.
Pozdrav!
(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
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
...
adoRekordSet.Fields("ime").Value=File.Name 'Odnosno oFolder.Name
...
adoRekordSet.Fields("velicina").Value=File.Size
...
adoRekordSet.UpdateBatch adAffectAll
Toliko od mene za sada.
Pozdrav!
Potpis
www.cicevac.com
†StEEwSc†
†StEEwSc†