[VB6] Problemi di variabili e valori NULL

[Carlo1984]

Allora vi espongo subito il problemone ho 1 db sul quale lancio la seguente interrogazione :

Set RS = Connessione.Execute( "SELECT MAX(NTransazione) AS Numero" & _
& " FROM Movimenti")

Adesso se la tabella è vuota RS.fields("Numero") assume un valore NULL e quando effettuo la seguente istruzione mi chiama errore :

Totale = RS.fields("Numero") + 1

dicendomi "INVALID USE OF NULL" come posso risolvere il problema ???
( Ho provato in vari modi ma nn sono riuscito a risolvere ).


grazie molto ciaooooooooo

[macse]

Hai provato a controllare prima che il recordset non sia vuoto?

es.:
rs.Open()
if not rs.EOF then

Totale = RS.fields("Numero") + 1

end if

[Carlo1984]

Non va ho provato ti posto il codice

   Conn.Open
   Conn.Execute "USE Thermocanal"
   Set RecSet = Conn.Execute(" SELECT MAX(NTrans) AS Numero" _
                           & " FROM Movimenti")
   
   If RecSet.EOF Then
      AggiornaNTransazione = 1
   Else
      AggiornaNTransazione = RecSet.Fields("Numero") + 1
   End If

   RecSet.Close
   Conn.Close
   Set RecSet = Nothing

[Carlo1984]

CI SONO RIUSCITO MA CON UNA DOPPIA QUERY KE SINCERAMENTE NN MI PIACE PROPRIO TROPPO POCO OTTIMIZZATO ECCO IL CODICE :

Function AggiornaNTransazione(ByVal Conn As ADODB.Connection) As Integer

   Conn.Open
   Conn.Execute "USE Thermocanal"
   Set RecSet = Conn.Execute(" SELECT NTrans" _
                           & " FROM Movimenti")
   
   If RecSet.EOF Then
      AggiornaNTransazione = 1
   Else
      Set RecSet = Conn.Execute(" SELECT MAX(NTrans) As Numero" _
                              & " FROM Movimenti")
      AggiornaNTransazione = RecSet.Fields("Numero") + 1
      
   End If
   
   RecSet.Close
   Conn.Close
   Set RecSet = Nothing
   
End Function

P.S.:Un altro problema ke dovrei risolvere riguarda i campi stringa ke passo al DB se ad esempio provo a inserire una parola apostyrofata tipo "l'altalena " il programma mi da errore sulla stringa SQL in quanto sorgono problemi le virgolette che aprono la sintassi del codice come posso fare ???

[macse]

Originariamente inviato da Carlo1984
Non va ho provato ti posto il codice

   Conn.Open
   Conn.Execute "USE Thermocanal"
   Set RecSet = Conn.Execute(" SELECT MAX(NTrans) AS Numero" _
                           & " FROM Movimenti")
   
   If RecSet.EOF Then
      AggiornaNTransazione = 1
   Else
      AggiornaNTransazione = RecSet.Fields("Numero") + 1
   End If

   RecSet.Close
   Conn.Close
   Set RecSet = Nothing

Prova a utilizzare questo:

   If IsNull(recset("Numero")) Then
      aggiornaNTransazione = 1
   Else
      aggiornaNTransazione = recset("Numero") + 1
   End If

[macse]

P.S.:Un altro problema ke dovrei risolvere riguarda i campi stringa ke passo al DB se ad esempio provo a inserire una parola apostyrofata tipo "l'altalena " il programma mi da errore sulla stringa SQL in quanto sorgono problemi le virgolette che aprono la sintassi del codice come posso fare ???

esempio:

nome="l'altalena"
nome=replace(nome,"'","''")

la sintassi è:

string = replace( string , valoreCercato , valoreDiRimpiazzo )