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

[pierabo]

"db" era solo un esempio: devi usare il nome associato alla variabile: p.es. Dim DB As DataBase

[Ago_]

ah ok...ora ho dichiarato la variabile Dim dbase As Database

xò ora me da un altro errore di compilazione (utilizzo nn valido di property)...ho anke messo Dynase al posto di table ma nn va...secondo te cos'è


ps nn so come ringraziarti xl'aiuto ke mi stai dando...xcaso giochi a fifa06 ??

[pierabo]

Temo che manchi qualcosa...

Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
Dim Stringa as String
Dim dbase As Database
Dim Data1 As Recordset
Dim GlobalWSpace As Workspace

Set GlobalWSpace = DBEngine.Workspaces(0)
Set dbase= GlobalWSpace.OpenDatabase("PincoPallino.mdb", False, False)

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 = dbase.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 = dbase.OpenRecordset(Stringa, dbOpenDynaset)

continua a darmi errore in questa stringa...nn riesco a capire il motivo ora

questo è l'errore

[pierabo]

Nell'esempio, ho indicato "Tabella", ma tu scrivi il nome della TUA tabella di Access !!!

[Ago_]

l'ho fatto già prima ma nn và

[Ago_]

già vero...cn il nome tabella scritto correttamente mi dice errore di run-time 3464 (tipi di dati non corrispondenti nell'espressione criterio) e facendo il debug mi evidenzia sempre la stringa di prima

[Ago_]

:rollo: mi sa ke mi devo rassegnare al tasto ke nn funziona

[pierabo]

Non rassegnarti !!!

ti ho fatto l'esempio con tante " perchè se hai dei nomi con le virgolette ti provocano malfunzionamenti nella Query.
Se non hai caratteri speciali usa Stringa="Select * From Tabella Where playerid='" & NomeDaCercare & "'"

[Ago_]

nada