[VB6 e DATABASE] Problema di salvataggio in un DB

[cleverboy]

per il momento è impostato per il salvataggio totale della file list.

non mi serviva la funzione singola, ma creco che cambi poco.

Se vuoi modifica pure, tanto è un ciclo for da eliminare...

aspetto tue notizie (buone magari!)

[ladyBlu]

no, clever, a parte le modifiche x farlo funzionare sul mio pc, non ti cambio il codice. io te l'ho chiesto solo x sapere.

cmq domani facciamo altre prove...però vediamo pure di beccarci su questo forum, almeno le domande e le risposte ce le diamo in tempo reale...


buona notte clever.

[ladyBlu]

Buongiorno caro...

Ho ricontrollato il tuo progetto e ho modificato il codice per il riempimento della griglia. Sicuramente si può ottimizzare, cmq io x ora ho scritto quello che ti riporto qui di seguito:

Private Sub Form_Load()

   'pulizia della griglia
   fgReport.Rows = 0
   fgReport.Refresh
        
   OpenDataBase ("songs.mdb")
   OpenRecordSet ("SELECT * FROM info")
        
   'inizia il riempimento della griglia
   With fgReport
        .Rows = rs.RecordCount + 1
        .Cols = rs.Fields.Count
        '.Row = 0
        '.Col = 0
        '.RowSel = .Rows - 1
        '.ColSel = .Cols - 1
        '.Clip = rs.GetString(adClipString, rs.RecordCount,Chr(9),
                 Chr(13), vbNullString)
        '.DataSource = rs
        '.Row = 1
   End With

   Dim miaRiga As Integer, numCol As Integer, i As Integer
        
   numCol = rs.Fields.Count
   rs.MoveFirst
   miaRiga = 0
        
   Do Until rs.EOF

      For i = 0 To numCol - 1
                
          fgReport.TextMatrix(miaRiga, i) = rs.Fields(i)
    
      Next i
            
      rs.MoveNext
      miaRiga = miaRiga + 1
            
   Loop
        

   Set rs = Nothing
   Set db = Nothing

End Sub

il codice originale non l'ho cancellato ma solo commentato.
Con queste modifiche a me funziona perfettamente.
Comunqe, se hai bisogno di altro chiedi pure, ok?

[cleverboy]

OK! Adesso funziona anche a me.

L'altro metodo che avevo usato serviva per ottimizzare il codice, ma visto che il tuo funziona... evviva gli sprechi di tempo!

Grazie mille.
Ancora due modifiche e il programma è pronto.

ciao ciao :bubu:

[ladyBlu]

Bene, sono contenta che funzioni.

Cmq se hai bisogno di aiuto non esitare a chiedere, ok?

:metallica :metallica :metallica
a presto...
...ciao ciao

[cleverboy]

giuro che stavolta è l'ultima!

senti un po', mi sa che ci deve essere una piccola variante tra l'SQL di Access e quello di VB6....


mi spiego: voglio fare in modo che l'utente sia in grado di interrogare il db a suo piacimento, immettendo la query in SQL oppure immettendo i campi (e poi la query la fa il programma).

Tutto bene fino a quando non uso la funzione Like.
Mi serve per fare una specie di ricerca, tipo "tutte le canzoni di Madonna"

SELECT * FROM info WHERE Artista LIKE ' *Madonna*'

Intanto mi tocca usare gli apici singoli sennò mi vanno in conflitto i parametri (poiché gli passo una stringa, i doppi apici li uso per delimitare la stringa stessa).

Dove è l'errore? Ho provato anche con LIKE '%Madonna%', ma non va lo stesso.

Ciao

[ladyBlu]

ok, ora gli do un'occhiata.
ti faccio sapere.

[darkblOOd]

Originariamente inviato da cleverboy

mi spiego: voglio fare in modo che l'utente sia in grado di interrogare il db a suo piacimento, immettendo la query in SQL oppure immettendo i campi (e poi la query la fa il programma).

Tutto bene fino a quando non uso la funzione Like.
Mi serve per fare una specie di ricerca, tipo "tutte le canzoni di Madonna"

SELECT * FROM info WHERE Artista LIKE ' *Madonna*'

Intanto mi tocca usare gli apici singoli sennò mi vanno in conflitto i parametri (poiché gli passo una stringa, i doppi apici li uso per delimitare la stringa stessa).

Dove è l'errore? Ho provato anche con LIKE '%Madonna%', ma non va lo stesso.

Ciao

che errore ti da? la sintassi mi sembra corretta....se "Madonna" è in una variabile stringa la puoi passare così:

StringaSelect= "SELECT * FROM info WHERE Artista LIKE %' " & MiaVariabileStr & "'%"

la stringa da cercare deve comciare dopo il carattere jolly (quindi l'apice va dopo il %)

[MissRachele]

secondo me dovresti(e) provare così:

StrngaSql = "SELECT * FROM info WHERE artista = '" & stringaartista & "'"

a me così i programmi funzionano...

cmq ho prvato a far girare il tuo prog ma a me non va...o meglio di alcuni file mi inserisce tutti i campi, di alcuni mp3 solo alcuni campi (artista , canzone, genere...), di altri brani non inserisce nulla (si nota xchè il contatore è aumentato e vi è un record vuoto!).

questo secondo me perchè non sempre il tag contiene dati (almeno credo): quando uso sonique nella playlist oltre al nome del file SOLO in alcuni casi vi è nome artista e nome brano forse anche in questo caso sonique (come il tuo prog. ) legge il tag. Conosci il modo per manipolare il tag?

In alcune cartellenon mil egge ( equindi salva) alcuni mp3 mentre ne salva 2 - 3 versioni dello stesso!!!!

anke a voi dà questi problemi?

fammi sapere

ciao, grazie...

[cleverboy]

Adesso è tutto OK

grazie