[Ado] recupero num recordset (era:[VB6] help!!)

[Rossella_75]

Ciao a tutti,

Option Explicit

    Dim cn As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    Dim id As Long


Private Sub Form_Load()

     
    cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;" & _
                         "data source =" & App.Path & "\database.mdb;"


    cn.Open
    rec.ActiveConnection = cn
    rec.LockType = adLockBatchOptimistic
    rec.Open "select * from link"

    
    id = rec.RecordCount

End Sub

perchè mi restituisce "-1"??

secondo voi va bene questo codice??

        Case "cerca"
                    
                On Local Error Resume Next
                myVar = Flsmovie.GetVariable("_root.cerca.search")
                rec.Filter = "autore like '*" & Replace(myVar, "'", "''") & "*'"
                
                If Not rec.EOF Then
                Do While Not rec.EOF
                
                    autore = (rec.Fields("autore"))
                    descrizione = (rec.Fields("descrizione"))
                    url = (rec.Fields("url"))
                    foto = (rec.Fields("foto"))
                    foto1024 = (rec.Fields("foto1024"))
                    tipo = (rec.Fields("tipo"))
                    
                rec.MoveNext
                
                Loop
                
                Else
                
                    MsgBox "Nessun record"
                    autore = "?"
                    descrizione = "?"
                    url = "?"
                    foto = "?"
                    
                End If

grazie mille

[ladyBlu]

per il primo quesito, prova ad aggiungere l'istruzione in rosso dopo l'apertura del recordset:

Option Explicit

    Dim cn As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    Dim id As Long


Private Sub Form_Load()

    cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;" & _
                         "data source =" & App.Path & "\database.mdb;"
    cn.Open
    rec.ActiveConnection = cn
    rec.LockType = adLockBatchOptimistic
    rec.Open "select * from link"
    rec.MoveFirst
    id = rec.RecordCount

End Sub

[Markho]

ciao,
allora , -1 potrebbe essere legato al
rec.LockType = adLockBatchOptimistic

per il resto del codice nn capisco a che serve questa parte:

If Not rec.EOF Then
                Do While Not rec.EOF
                
                    autore = (rec.Fields("autore"))
                    descrizione = (rec.Fields("descrizione"))
                    url = (rec.Fields("url"))
                    foto = (rec.Fields("foto"))
                    foto1024 = (rec.Fields("foto1024"))
                    tipo = (rec.Fields("tipo"))
                    
                rec.MoveNext
                
                Loop
                
                Else
                
                    MsgBox "Nessun record"
                    autore = "?"
                    descrizione = "?"
                    url = "?"
                    foto = "?"
                    
                End If

[xegallo]

i titoli

[Rossella_75]

Scusate il ritardo e il titolo

Per ladyBlu

ho provato come mi hai consigliato ma non va..

ciao Markho,

allora , -1 potrebbe essere legato al
rec.LockType = adLockBatchOptimistic

quindi come potrei risolvere??

> per il resto del codice nn capisco a che serve questa parte:

che vuoi dire??

[ladyBlu]

allora prova così:

Option Explicit
Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim id As Long

Private Sub Form_Load()

  cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;" & _
                      "data source =" & App.Path & "\database.mdb;"
  cn.Open

  rec.Open "select * from link",cn,1,3
  rec.MoveFirst

  id = rec.RecordCount

End Sub

:master:...fammi sapere...

[Rossella_75]

bravissima

funziona perfettamente :metallica

mi potresti dare un'occhiata al codice di ricerca :adhone:

grazie mille cmq

[ladyBlu]

Originariamente inviato da Rossella_75
bravissima

funziona perfettamente :metallica

mi potresti dare un'occhiata al codice di ricerca :adhone:

grazie mille cmq

figurati, è sempre un piacere aiutare gli altri...
cmq il problema stava nel blocco record sicuramente.


per quanto riguarda il codice della ricerca, mi sembra che vada bene.
hai domande particolari da fare riguardo a quella parte di codice?