[VB6] Query

[PaoloNA]

Salve.

Ho un controllo ADO che opera su un DB in access 2003.

Quando, dopo aver generato la stringa di connessione, viene eseguito questo comando:
Select * From Gol Where Squadra1=" & txtSquadra1.Text & " and NumGiornata=" & frmRisultatieClassificaSerie.txtNumGiornata & " and chkInCasa.value=true Order By NumGiornata"

mi compare l'errore di runtime '91': Variabile oggetto o variabile del blocco With non impostata.

Dov'è l'errore?

[cassano]

hai creato l'oggetto recordset o simili ???

[PaoloNA]

Certo!

Quella query viene assegnata al RecordSource, e dà l'errore.

[XVincentX]

Ma è un Adodc? Delle instanze di adodb.recordset e .connection?

[PaoloNA]

Esatto è un ADODC.

E da codice faccio prima la connectionstring e poi la recordsource

[XVincentX]

Postami il codice completo e vediamo un po.

Ma il problema lo da sulla riga adodc1.recordsource oppure quando fai (se lo fai) adodc1.refresh?

[PaoloNA]

Il problema non compare quando faccio la query (ma ho capito che non la fa perchè non mi dà nessun risultato).
Dà il problema appena accedo all'ADODC (ad es. per fare un movenext, o un update, o un addnew).

Ecco il codice:

Private Sub Form_Load()
txtNumGiornata.Text = frmRisultatieClassificaSerie.txtNumGiornata.Text
txtSquadra1.Text = frmRisultatieClassificaSerie.txtSquadra1.Text
txtSquadra2.Text = frmRisultatieClassificaSerie.txtSquadra2.Text
adoGol.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Progetto\CAMPIONATI.mdb;Persist Security Info=False"
adoGol.RecordSource = "Select * From Gol Where Squadra1= '" & txtSquadra1.Text & "' and NumGiornata= " & txtNumGiornata.Text & " and InCasa=true Order By NumGiornata"
End Sub

Grazie

[XVincentX]

Non saprei dire. Prova a far eseguire la query da access direttamente per capire se è la query errata o qualcosa nel programma

[ciro78]

la query la puoi fare così

$quadra1=txtSquadra1.Text
$numgiornata=frmRisultatieClassificaSerie.txtNumGiornata

adoGol.RecordSource = "Select * From Gol Where Squadra1= '" & $quadra1 & "' and NumGiornata= '" & $numgiornata & "' and InCasa=true Order By NumGiornata"

Avevi saltato gli apici per Numgiornata
poi ti conviene sempre usare variabili

Infine ti suggerisco di mettere il codice tra i tag code.Lo richiede il regoalemnto ma rende la vita più facile a chi vuole aiutarti