[VB6] Errore di run.time 3800: indice inesistente in tabella

[Ago_]

salve ragazzi...sto creando un programmino xmodificare un database che modifico spesso

ho creato anke un tasto trova xcercare in un determinato campo di una tabella...ho copiato il codice del tasto dall'esempio ke ho trovato su questo sito...xò purtropp nn mi funziona...mi da errore quando skiaccio ok per cercare un nome nel campo (specificato nel codice) della tabella




sapete come aiutarmi ??

[pierabo]

Ciao Ago_

sei sicuro che "playerid" sia il nome dell'indice e NON il nome di un campo della tabella ?

[Ago_]

Originariamente inviato da pierabo
Ciao Ago_

sei sicuro che "playerid" sia il nome dell'indice e NON il nome di un campo della tabella ?

scusa ma playerid nn dev'essere il nome di un campo della tabella ?? ke cos'è questo indice ??

[pierabo]

Non conosco i comandi che usi, ma mi è venuto il dubbio che tu stia tentando l'associazione db.Index = "playerid"

Se playerid è un campo, occorre guardare in Access come si chiama la chiave che contiene questo campo (p.es. "ChiavePrimaria") ed associarla al comando: db.Index = "ChiavePrimaria"

(non so se ho capito...)

[Ago_]

Private Sub Command1_Click()
    'Ricerca un nome all'interno dell'agenda.
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Immettere l'ID Player da ricercare:", "Ricerca nel campo")
    If NomeDaCercare <> "" Then
        'Esegue la ricerca solo se è stato immesso un nome.
        Data1.Recordset.Index = "playerid"
        Data1.Recordset.Seek "=", NomeDaCercare
        If Data1.Recordset.NoMatch Then
            Data1.Recordset.MoveFirst
            Data1.Refresh
            'Il nome cercato non è stato trovato.
            MsgBox "Nome non trovato.", vbInformation, Me.Caption
        End If
    End If
End Sub

quindi nella stringa

Data1.Recordset.Index = "playerid"

al posto di mettere playerid dovrei mettere ChiavePrimaria se voglio la ricerca nel campo scelto come chiave primaria...e se invece voglio ampliare la scelta a tutta la tabella...magari xkè nella tabella nn c'è nessuna chiave primaria ?

[pierabo]

Se non vuoi creare una chiave, è sufficiente eseguire una Query (quindi OpenDynaset, anzichè OpenTable).
Tieni presente, però, che se il database contiene molti records, la Query senz un indice diventa lentissima !!!!

Ciao

[Ago_]

aspetta calma...nn ti seguo +

se voglio fare la ricerca in tutta la tabella basta ke scelgo nelle proprietà dell'oggetto data in RecordsetType la voce 1 - Dynaset ??

ora provo

[Ago_]

ora mi dice operazione nn supportata da questo tipo di oggetto...e mi evidenzia la riga di codice del campo...mmm...mi sa ke in quella riga fra le virgolette nn ci va il campo ma qualche altra cosa...

[pierabo]

provo a rigirarti il tuo esempio:

Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
Dim Stringa as String
NomeDaCercare = InputBox$("Immettere l'ID Player da ricercare:", "Ricerca nel campo")
If NomeDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
Stringa="Select * From Tabella Where playerid=""" & NomeDaCercare & """"
Set Data1 = db.OpenRecordset(Stringa, dbOpenDynaset)
if Data1.Eof then
'Il nome cercato non è stato trovato.
MsgBox "Nome non trovato.", vbInformation, Me.Caption
End If
End If
End Sub

[Ago_]

Set Data1 = db.OpenRecordset(Stringa, dbOpenDynaset)

ora mi da errore di compilazione (variabile nn definita) e mi evidenzia il db prima di OpenRecordeset...forse nn li riconosce...