verifier si la base de donnée est vide access

Question

bonjour a tous 
jai un petit soucis

je vaux verifi&#233; ci ma base de donn&#233;e est vide 

voici le code qui ne marche pas :

  Data2.DatabaseName = "c:\stock.mdb"  Data2.RecordSource " select num_carte from stock where num_carte" & num & ""


      
   
     If (Data2.Recordset!num_carte) = 0 Then ' sa block ici!!!!!!!!!!!!!
        Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")
          Data1.Execute (" insert into ( num_carte,nombre_stock,date_stock) values( " & num & ", " & nombre & ", # " & moi & " #)")
          
          ElseIf Data2.Recordset!num_carte > 1 Then
             
Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")Data1.Execute ("update stock set nombre_stock nombre_stock +" & nombre & " , date_stock# " & moi & "# where num_carte = " & num & "")
Data1.Close
Set Data1 = Nothing
    
MsgBox " l'approvisionnement a bien &#233;t&#233; enregistr&#233;"
  End If

cs_DARKSIDIOUS · Answer

Essaye ceci :



Data2.DatabaseName =  "c:\stock.mdb"

  Data2.RecordSource " select num_carte from stock where num_carte" & num & ""       

   

     If  Data2.Recordset.RecordCount = 0  Then Exit Sub



     If (Data2.Recordset!num_carte)  = 0 Then



        Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")

         
Data1.Execute (" insert into ( num_carte,nombre_stock,date_stock)
values( " & num & ", " & nombre & ", # " & moi
& " #)")

      

    Else



          If Data2.Recordset!num_carte > 1 Then

             

Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")

Data1.Execute
("update stock set nombre_stock = nombre_stock +" & nombre & "
, date_stock =# " & moi & "# where num_carte = " & num
& "")

Data1.Close

Set Data1 = Nothing

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

boss2000 · Answer

sa ne marche pas

en faite jai vider ma base de donn&#233;e. Et je veux v&#233;rifier que ma base de donn&#233;e est vide si elle vide ajouter des donn&#233;es mais si elle contient des infos faire une mise a jour

cs_DARKSIDIOUS · Answer

Ben si elle est vide, le RecordCount de ton recordset doit &#234;tre &#233;gal &#224; 0, donc je ne vois pas pourquoi ca ne marche pas.



D'ailleurs, qu'est-ce que tu veux dire pas "ne marche pas" ? Message
d'erreur ? Ca ne fais pas ce que tu veux (et qu'est-ce que tu veux
faire alors) ?

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

boss2000 · Answer

avec le code que je tes donn&#233;e elle m'affiche comme erreur " bloc with non d&#233;fini"
mais avec tes rajout!!

merci encore
je sais pas si tu vois ou est le probleme

cs_DARKSIDIOUS · Answer

Si c'est un probl&#232;me de "bloc with" c'est s&#251;rement un probl&#232;me qui vient des 

"Data2.Recordset!nom du champ" Perso, je leur pr&#233;f&#232;re largement :

Data2.Recordset.Fields("nom du champ").value

C'est plus long &#224; taper, mais c'est aussi plus s&#251;r et plus explicite.


A moins que ce soit un objet qui ne soit pas instanci&#233;... et donc invalide !


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

boss2000 · Answer

jai essayer avec ton code jai toujours le meme msg d'erreur tjrs au meme endroit.

cs_DARKSIDIOUS · Answer

A quelle ligne ?

If (Data2.Recordset!num_carte) = 0 Then ' sa block ici!!!!!!!!!!!!! ?


V&#233;rifie la valeur du RecordCount et du num_carte juste avant :



MsgBox Data2.Recordset.RecordCount


MsgBox Data2.Recordset.Fields("num_carte").value


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

boss2000 · Answer

voici la ligne ou jai un soucis

If (Data2.Recordset!num_carte) = 0 Then ' sa block ici!!!!!!!!!!!!! ?

hyrockbass · Answer

et bien &#224; la place de cette ligne &#233;cris plut&#244;t :

If  Data2.Recordset.eof then

      Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")
      Data1.Execute (" insert into ( num_carte,nombre_stock,date_stock) values( " & 
      num & ", " & nombre & ", # " & moi & " #)")

elseIf Data2.Recordset!num_carte > 1 Then
             
      Set Data1 = DBEngine.OpenDatabase("c:\stock.mdb")      Data1.Execute ("update stock set nombre_stock nombre_stock +" & nombre & " , date_stock# " & moi & "# where num_carte = " & num & "")
      Data1.Close
      Set Data1 = Nothing


'en fait il teste simplement si tu est &#224; la fin de ta requete. Si c'est le cas ca veut dire qu'il n'y a aucun enregistrement et donc que la base est vide voil&#224;


retient moi o courant avant 17h si possible. A+

hyrockbass · Answer

au pire &#224; la place de 
"elseif Data2.Recordset!Num_Carte>1 then"
ecris simplement "else" &#231;a va faire pareil surtout que ya de grande chance que &#231;a plante aussi

Verifier si la base de donnée est vide access

10 réponses

Discussions similaires