Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] In VB ok... in EXE non funziona...

>> --- CUT --- <<<

 che la variabile Name rimane vuota!
non so se c'entra, cmq Name č il nome di una proprietŕ degli oggetti, e
non č consigliabile chiamare una variabile con lo stesso nome di una
proprietŕ  :)
prova a chiamarla strName, facci sapere...
Ciao
Faber

 ha scritto

name come e dove la valorizzi ?
fra l'altro: eviterei di usare nomi di variabili che possono essere nomi
riservati. meglio sNome, sSql, ecc.


Ciao Faber!
Ho provato, ma niente da fare...
Ho continuato a lavorare con lo STOP e mi sono accorto che l'argomento non
viene passato alla funzione semplicemente perchè è da monte che la string
non ha valore!
Ma non capisco perchè non lo deve avere visto che in ambiente VB funziona
tutto regolarmente! Uffà!
Ora so però dove è di preciso il punto in cui non vengono assegnate le
variabile che poi mi portano ad usare il metodo Find in quella funzione di
prima...
La funzione che ti ho messo qui sotto serve per caricare in una combo box
tutti i conduttori presenti nel database... con MsgBOX e stop sono arrivato
a capire che la string strTipo2 viene passata regolarmente alla funzione e
quindi so di andare a lavorare sulla tabella che mi interessa!
Ho poi messo un msgbox nel punto in cui carico i dati del database in un
array e poi mediante il metodo additem le aggiungo ad una combo! Ecco... qui
succede che non aggiungo un bel niente, perchè dai record mi restituisce
""!!!
'Estrae i tipi di conduttore
Public Function Elenco(strTipo2 As String) As Boolean
Dim objConnect As ADODB.Connection  'Connessione al database
Dim objRS As ADODB.Recordset 'Gestione dei record
Dim i As Integer 'Serve per ciclo FOR
Dim Num As Integer 'Numero di Record
No_database = False
Set objConnect = New ADODB.Connection
Set objRS = New ADODB.Recordset
On Error GoTo Messaggio
objConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Percorso &
"conduttori.mdb;Persist Security Info=False"
objRS.Open strTipo2, objConnect, adOpenKeyset, adLockOptimistic,
adCmdTableDirect
On Error GoTo 0
objRS.MoveFirst
Num = objRS.RecordCount
'Questo IF testa se prelevare o meno conduttori sospesi
If Sospeso = True Then
'Ciclo che mi memorizza nell'array Scelta tutti i tipi di conduttore che
trova!
    For i = 1 To Num
        If Nudo = True Then
            If Sospeso = objRS.Fields("Sosp").Value Then
                Scelta(0, i) = objRS.Fields("Tipo").Value
                MsgBox Scelta(0, i) 'Ecco... Scelta(0,i) risulta essere ""
perchè lo è anche objRS.Fields("Tipo").Value
                Stop                        'Come dicevo prima il bello è
che in VB funziona... :(((
            Else
                Scelta(0, i) = ""
            End If
        Else
            If objRS.EOF = True Or objRS.BOF = True Then
                objRS.MoveFirst
                Scelta(0, i) = objRS.Fields("Tipo").Value
            Else
                Scelta(0, i) = objRS.Fields("Tipo").Value
            End If
        End If
        objRS.MoveNext
    Next
End If
Aggiungo anche che il programma così strutturato funzionava bene anche con
EXE... ho aggiunto solamente alcune cose... ma non ho sconvolto il
programma! L'accesso ai dati era fatto sempre nel medesimo modo!
Che abbia utilizzato delle variabile che cozzano con qualche cosa come
dicevi?
Cosa altro potrebbe essere?
Grazie mille per la risposta! Ciao!
Dennis
N.B. Scusa se ti ho risposto anche in posta privata... mi sono sbagliato ed
ho pigiato Rispondi invece che Rispondi al...


Ho provato come dicevi... e come mi aveva consigliato anche Faber, ma niente
da fare...
Nel frattempo ho continuato a cercare il problema... se hai ancora un minuto
da dedicarmi leggi la mia risposta a Faber ho scritto cosa ho scoperto
sempre con stop e msgbox!
Grazie, ciao ciao!
Dennis

 non ha valore!
infatti. e' per quello che ti chiedevo come la gestisci.
la tabella apri per forza quella giusta, perche' la apri _nella_ funzione
(che mi sembra piu' una sub).
ma ho l'impressione che per qualche motivo le passi una var nulla.
anche senza stop, tanto il prg si ferma lo stesso, prova a mettere dei
msgbox che ti dicano cosa e' la variabile in ogni momento della sua
esistenza.
ciao, a.

 ha scritto nel messaggio
news:9rbl5v$s069e$1...@ID-51318.news.dfncis.de...

Ho risolto installando SP4!
Infatti io ero ancora rimasto al VB6 nativo senza nessun SP!
So che c'è fuori anche SP5, ma sono riuscito a trovare solo SP4 su un CD di
riviste! Non ho certo intenzione di scaricarmi i 58 Mb del SP5 a 3KByte/sec!
Noi poveri campagnoli ci sognamo ADSL e similari... ;)
Non ho comunque capito il bug per cui la stringa mi rimaneva vuota! Era
sicuramente un problema che si creava durante la compilazione... questo è
chiaro... ma quale? Boooo!!!!
Beh beh... ora mi godo il VB fino al prossimo bug... che mi obbligherà a
cercare SP5!!! :)))
Ti saluto Java, grazie per l'interessamento! Ciao ciao!
Dennis

 ha scritto nel messaggio
news:9r9v6r$d1d$1...@nreadb.inwind.it...
