Access 97 su vb6

[LuigiDH]

Optime come dici con il valore FALSE O FALSO si ottiene sempre 0 giusto?
Ma non "0" altrimenti confronta la stringa?

[optime]

Spiegati meglio, perché mi sa che stai facendo un po' di confusione.

I valori presenti in un campo di una tabella NON CAMBIANO a seconda del linguaggio o dalla tecnologia di accesso ai dati utilizzata.
Un campo di tipo booleano ha valori -1 o 0, qualsiasi sia la tencologia che usi.

gibra, lo sai che M$SQL usa 1 e 0 per i booleani (bit), non -1 e 0 per questo quando posso ragiono sullo zero

[optime]

Optime come dici con il valore FALSE O FALSO si ottiene sempre 0 giusto?
Ma non "0" altrimenti confronta la stringa?

gigi, fa' vedere come leggi i dati, che altrimenti non ne usciamo

[LuigiDH]

Semplice, dopo la procedura di apertura del database, eseguo la copia del valore di rec.
Per esempio label1=rec(0) ; label2=rec(1) ecc.. Con i valori caricati nelle label faccio le operzioni di confronto che mi servono.

[optime]

postare un po' di codice fa male? segreto di stato?

[LuigiDH]

Assolutamente no, ma scrivo col tel...
poi comunque sostanzialmente è quello che faccio...
appena accendo il pc lo posto

[LuigiDH]

'FORM DATABASE-----------------------------
Public dbData As Connection
Public recData As ADODB.Recordset




Private Sub Form_Load()
Set dbData = New Connection
dbData.CursorLocation = adUseClient
dbData.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source = " & PercorsoProgettoAperto & "\Database.mdb;"
'-----------------------------------------------
Set recData = New Recordset 'sets the recordset


recData.Open "Select * from INFO_DATA Order by ID ", dbData, adOpenStatic, adLockOptimistic
End Sub




Public Sub SaveDB()
recData(0) = Label1.Caption
recData(1) = Label2.Caption


recData.UpdateBatch adAffectAll
End Sub




Public Sub First()
recDataClima.MoveFirst
Call Display
End Sub


Public Sub Next()
recData.MoveNext
Call Display
End Sub


Private Sub Display()
On Error Resume Next ' a generic error handler
Label1.Caption = recData(0)
Label2.Caption = recData(1)
End Sub


'...........................................
'Altro form
dim OPERAZIONEATTIVA as boolean


Private Sub AvvioInformazioniProgetto()
Form_DATABASE.First


For x = 1 To 10
'Leggi le informazioni di questo database
If (Form_DATABASE.Label1.Caption = "PIPPO") And ((Form_DATABASE.Label2.Caption = "True") Or (Form_DATABASE.AutomazioniOpzioni_Conferma.Caption = "Vero")) Then OPERAZIONEATTIVA = True
'qui ci sono altri..............
If Not Form_DATABASE.recData.EOF Then Form_DATABASE.Next


Next x
End Sub



Questo è in sintesi ma ci sono tante tabelle da aprire e leggere........

[gibra]

gibra, lo sai che M$SQL usa 1 e 0 per i booleani (bit), non -1 e 0 per questo quando posso ragiono sullo zero

Certo che lo so, ho fatto un discorso in senso generico.
Ma visto che usa un database Access i valori sono -1 e 0.

In ogni caso, sicuramente non é Vero/Falso, né True/False, e via discorrendo.

[optime]

probabilmente il problema è dovuto al fatto che il valore del campo viene passato in una label e poi testato: la caption è una stringa, e probabilmente VB6/ADO/JET fa una traduzione di True/False nella lingua corrente. lavorando direttamente sul campo il problema non si porrebbe (es IF recData(0)=True THEN ...)

[LuigiDH]

Buongiorno gibra leggendo con una msgbox, con una label o con una text esce fuori Vero e Falso, con DAO mi davo -1 e 0.