+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 17

Creazione archivio video

  1. #1
    Cis
    Cis non è in linea Scribacchino
    Ho un problema che mi affligge da alcuni giorni e pertanto chiedo aiuto a voi amici del forum.

    Sto cercando di creare un archivio per catalogare delle video cassette, il problema è sorto quando ho cercato di inserire un foto della copertina del video.
    Faccio presente che il record è basato su un 1°campo testo(NomeVideo),2°campoTesto(Autore),3° Campo Long Autoincrementante(Codice),4° Campo Long(AnnoProduzione),5° Campo Binary (FoTo).
    Vi riporto il codice:
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    
    Private Sub CmdAgg_Click()
    
    If CmdAgg.Caption = "Aggiungi" Then
    CmdAgg.Caption = "OK"
    rs.AddNew
    Else
    CmdAgg.Caption = "Aggiungi"
    rs.MoveLast
    End If
    
    End Sub
    
    Private Sub Command2_Click()
    Dim Opzione
    Opzione = MsgBox("Vuoi cancellare il paziente selezionato?", vbCritical + vbYesNo, "SEI SICURO?")
    If Opzione = 6 Then
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then
    Data1.Recordset.MoveLast
    End If
    End If
    End Sub
    
    Private Sub Command1_Click()
    rs.Update
    End Sub
    
    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    End Sub
    
    Private Sub File1_Click()
    temp = Right$(File1.FileName, 3)
    dropfile = File1.Path & "\" & File1.FileName
    Select Case temp
    Case "jpg"
    Image1.Picture = LoadPicture(dropfile)
    Case "bmp"
    Image1.Picture = LoadPicture(dropfile)
    Case Else
    msg = "Non hai selezionato nessun file apribile"
    MsgBox msg
    End Select
    End Sub
    
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then End
    
    End Sub
    
    Private Sub Form_Load()
    Dim NomeDB As String
    NomeDB = App.Path & "\Gestione Family.mdb"
    
    Set cn = New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB
    
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    
    rs.Open "SELECT Codice,Autore,AnnoProduzione,nomeVideo,Foto FROM Gestione", cn, adOpenDynamic, adLockOptimistic, adCmdText
    
    
    Set TextNomeVideo.DataSource = rs
    TextNomeVideo.DataField = "NomeVideo"
    
    Set TextAutore.DataSource = rs
    TextAutore.DataField = "Autore"
    
    Set TextAnno.DataSource = rs
    TextAnno.DataField = "AnnoProduzione"
    
    Set TextCodice.DataSource = rs
    TextCodice.DataField = "Codice"
    
    Set Image2.DataSource = rs
    Image2.DataField = "Foto"
    
    
    End Sub
    
    Private Sub Image1_Click()
    Image2.Picture = Image1.Picture
    End Sub
    

    Faccio presente che ho provato varie soluzioni e tra queste quella che ho riportato manco funziona.
    Vorrei fare in modo che dopo cercato la foto che mi interessa inserirla nell'archivio.
    Il problema è rappresentato sia dal fatto che non riesco ad inserire la foto nel campo Binary e quindi archiviarla e richiamarla quando serve, sia che il campo autoincrementante non riesco a farlo progradire come numero.


    Vi sarei ,come sempre, grato di volermi dare delle indicazione in quanto sono bloccato e non riesco ad andare avanti.


    GRAZIE
    Ultima modifica di Cis; 26-03-2006 09:23 

  2. #2
    Non inserire le foto nel database.

    Nel db inserisci un campo con il nome di un file e utilizza una cartella per inserire tutti questi file.
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    Cis
    Cis non è in linea Scribacchino
    Scusa Antonio non ho capito che cosa intendi un campo con un nome di un file ed in più come posso richiamare la foto insieme ai dati una volta inserita.

    Ciao e Grazie;

  4. #4
    L'avatar di dolcissimo
    dolcissimo non è in linea Scribacchino
    Io farei una cosa, crea una cartella dove metterai tutte le foto dentro questa cartella, poi nel DB oltre all'autore al titolo ecc. inserisci anche il nome della foto
    es. foto.jpg
    poi quando carico le informazioni sulle text come hai fatto tu nel tuo codice:

    Set TextNomeVideo.DataSource = rs
    TextNomeVideo.DataField = "NomeVideo"
    
    Set TextAutore.DataSource = rs
    TextAutore.DataField = "Autore"
    
    Set TextAnno.DataSource = rs
    TextAnno.DataField = "AnnoProduzione"
    
    Set TextCodice.DataSource = rs
    TextCodice.DataField = "Codice"
    
    'invese di fare così
    Set Image2.DataSource = rs
    Image2.DataField = "Foto"
    
    'farei così
    Set TextFoto.DataSource = rs
    TextFoto.DataField = "Foto"
    
    in modo da avere il nome della tua foto (foto.jpg) anche nella text,
    poi con un bel LoadPicture ti carichi la foto così:

    foto = TextFoto
    Image1.Picture = LoadPicture(App.Path & "\" & foto)
    
    spero di essere stato chiaro se hai problemi dimmelo.
    ℹ️ Leggi di più su dolcissimo ...

  5. #5
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Sono d'accordo con la soluzione di Antonio, che poi è quella che uso sempre anch'io quando ho questa esigenza...

    in pratica il campo della foto del DB, altro non sarebbe che un campo testo all'interno del quale memorizzi il *percorso* della foto.
    in pratica quando l'utente sceglie la foto da inserire come copertina del video, immagino lo faccia attraverso un Common Dialog, che restituisce il percorso del file selezionato più il nome del file stesso.
    a quel punto in uscita dal Common Dialog memorizzi il percorso nel DB, non la foto.... e quando dovrai caricare quella foto per un determinato record, dovrai solo vedere il percorso dal campo del DB, e ne vieni fuori con una LoadPicture

    TheTruster
    ℹ️ Leggi di più su TheTruster ...

  6. #6
    Cis
    Cis non è in linea Scribacchino
    Ciao Dolcissimo, ti ringrazio del consiglio che mi hai dato, provo ad usare il codice e ti faccio sapere.


    Grazie della tua disponibilità e degli altri amici del forum sopratutto in quelle situazioni che si trovano quelli come me che essendo nuovi nella programmazione in VB6, possono rimanere bloccati per giorni su un progetto.


    Ciao e a presto

  7. #7
    Cis
    Cis non è in linea Scribacchino
    Vi ringrazio entrambi per i vostri consigli, ho provato il codice e funziona benissimo.
    L'unico problema che mi crea è che quando non inserisco nessun nome di file immagine nella textBox ed effettuo un ricerca del record, il programma si blocca in quanto non trova il percorso.
    Ho provato delle rutine ma senza successo.
    Vi mando il codice:


    Private Sub CmdRicerca_Click()
    Dim RetVal As String
    Dim RicercaCodice As Long
    Dim foto
    RetVal = InputBox("Scrivi Il Codice da cercare")
    RicercaCodice = Val(RetVal)
    If RicercaCodice = 0 Then Exit Sub
    
    Data1.Recordset.FindFirst "codice = " & RicercaCodice
    foto = TextFoto.Text
    Image1.Picture = LoadPicture(App.Path & "\" & foto)
    
    
    If Data1.Recordset.NoMatch Then
        MsgBox ("Il Codice '" & RicercaCodice & "' non esiste nell'archivio.")
    End If
    End Sub
    

    Sempre grato per la vostra disponibilità

    CIA CIS;

  8. #8
    L'avatar di dolcissimo
    dolcissimo non è in linea Scribacchino
    Beh! questo non è difficile potresti mettere una bella condizione così:

    Private Sub CmdRicerca_Click()
    Dim RetVal As String
    Dim RicercaCodice As Long
    Dim foto
    RetVal = InputBox("Scrivi Il Codice da cercare")
    RicercaCodice = Val(RetVal)
    If RicercaCodice = 0 Then Exit Sub
    
    Data1.Recordset.FindFirst "codice = " & RicercaCodice
    foto = TextFoto.Text
    
    'ecco la condizione
    If Not IsNull(Data1.Recordset.Fields("NomeFoto")) Then
      Image1.Picture = LoadPicture(App.Path & "\" & foto)
    End If
    
    If Data1.Recordset.NoMatch Then
        MsgBox ("Il Codice '" & RicercaCodice & "' non esiste nell'archivio.")
    End If
    End Sub
    
    oppure puoi far ignorare l'errore con:

    On Error Resume Next
    
    fammi sapere ciaooo!!!!
    ℹ️ Leggi di più su dolcissimo ...

  9. #9
    Cis
    Cis non è in linea Scribacchino
    Dolcissimo ti volevo dire che ho provato il codice e funziona solo nell'attimo in cui nel campo nomefoto non inserisco nessun nome, però se nel caso inserisco il nome , per distrazione errato, non c'è nessuna rutine che mi permette di recuperare ma il programma si blocca.

    Ti chiedo se è possibile risolvere anche questa condizione;

    Ciao e Grazie ;

  10. #10
    L'avatar di dolcissimo
    dolcissimo non è in linea Scribacchino
    La mia condizione è facile da interpretare, in pratica se nel campo nomefoto non esiste nessun nome, (foto.jpg) la loadpicture non verrà eseguita caso contrario carica la foto con la loadpicture,
    adesso non capisco cosa vuoi fare tu, cerca di essere più preciso, hai provato con :

    On Error Resume Next
    
    fammi sapere
    ℹ️ Leggi di più su dolcissimo ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Estrarre dall'archivio e salvare in un altro archivio.
    Da Martin Landau nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 26-07-2012, 09:22
  2. Collaborazione: Excel creazione archivio dati e grafici
    Da fragovic nel forum Offerte di lavoro
    Risposte: 0
    Ultimo Post: 03-06-2012, 13:27
  3. Excel creazione archivio dati e grafici
    Da fragovic nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 03-06-2012, 12:59
  4. Creazione Video con FOTO
    Da motoboy nel forum Altri linguaggi e strumenti
    Risposte: 2
    Ultimo Post: 18-11-2008, 19:00
  5. Creazione Video con Foto
    Da motoboy nel forum Altri linguaggi e strumenti
    Risposte: 1
    Ultimo Post: 26-10-2008, 01:22