[VB6] recordset senza proprieta'

[michele79]

Ciao!!
Non riesco a spiegarmelo....
Nel mio programma utilizzo 2 recordset RS , RS1 per fare due query diverse,il mio problema è il seguente:
digitando da codice RS1 e subito dopo il "." (punto) mi compare la lista delle proprieta di RS1,fin qui tutto normale,purtroppo me lo fa solo con RS1 e non con RS....ovvero me lo faceva anche con rs fino a poco fa, ma ora non piu'!!!Non ci credo che VB si sia stufato di farmelo vedere!!!!
altra precisazione.... se scrivendo rs.proprietà_digitata_da_me me l'accetta'...pur non facendomele vedere!!!!
che nervoso!

Grazie per chiunque sappia dirmi qualcosa!!!

Ciao

codice:

Sub connetti()

percorsodb = "c:\documenti\Progetto\db2.mdb"
StrStringaConn = "Provider=Microsoft.Jet.OLEDB.3.51;"
StrStringaConn = StrStringaConn & "Data Source="
StrStringaConn = StrStringaConn & (percorsodb)
StrStringaConn = StrStringaConn & ";Persist Security Info=False"

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset

cn.ConnectionString = StrStringaConn

cn.Open

rs.Open "Select * from Account Order By Cognomi, nomi", cn, adOpenStatic, adLockOptimistic, adCmdText

End Sub

[MMarzia]

la prima cosa che mi viene in mente è: li hai dichiarati entrambi?

[michele79]

Si cosi':


Dim cn As ADODB.Connection
Dim rs, rs1 As ADODB.Recordset


non va bene? fino a poco fa funzionava!!!

[seclimar]

devi fare una dichiarazione esplicita!
dim x as (new) recordset

[seclimar]

ooops scusa
dim x as (new) adodb.recordset

[xegallo]

ma sul visualizzatore oggetti cosa vedi

[MMarzia]

nella dichiarazione non serve NEW

fai così:

Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

...

set rs = new ADODB.Recordset
set rs1 = new ADODB.Recordset

funziona, ma non ti so spiegare perchè con Dim rs, rs1 As ADODB.Recordset non va

[michele79]

Se ci aggiungo NEW non cambia nulla!!!
Nel visualizzatore di oggetti cosa devo cercare?

[Toeke]

Originariamente inviato da michele79
Si cosi':


Dim cn As ADODB.Connection
Dim rs, rs1 As ADODB.Recordset


non va bene? fino a poco fa funzionava!!!

Ho riscontrato pure io lo stesso identico problema devi fare cosi:

   Dim cn As new ADODB.Connection
Dim rs As ADODB.Recordset
   Dim rs1 As ADODB.Recordset

Dichiarandola in questa maniera dovresti risolvere il problema

IL motivo sta nel fatto che se dichiari come hai fatto tu rs lo vede come variant (default) perche non e' dichiarato, mentre rs1 essendo dichiarato lo vede come recorset.

Sembra stupido, ma se io faccio questa dichiarazione:

dim i,y,z as integer

i = variant
y = variant
z = integer

:mavieni:

[MMarzia]

ecco il motivo

avevo capito qual'era il problema, ma mica sapevo dargli una spiegazione ... wow!