Test par requéte sql si numéro présent dans bdd accessRésolu

Question

Bonjour,
J'ai un textbox ou je rentre un numero de controle, et un bouton valider. Je vaudrais que quand je clique sur le bouton, que ca test si le numero de controle que j'ai rentr&#233; est bien pr&#233;sent dans ma base de donn&#233;e access.
Y'as t'il une requ&#233;te Sql pour &#231;a?? 
Merci d'avance.

  JIMM

jimluis · Accepted Answer

C'est bon j'ai trouver une solution, le probl&#233;me venait surement de la connexion ou du traitement de la requ&#233;te

le code bon est :
strsql "SELECT * FROM Numero WHERE [NumeroPers] " & Val(Txt_Numero.Text) & ""


Set Record1 = db.OpenRecordset(strsql)


If Record1.RecordCount <> 0 And Len(Txt_Numero.Text) > 1 Then
   MsgBox ("Numero Existant")
Else
   MsgBox ("Numero Absent")
End If

MERCI POUR TON AIDE ITALIA

  JIMM

tof008 · Answer

ben tu peux faire ca comme ca....
set rs = new recordset

rs.Open Select * from tatable where numero = '" & text1.text & "',connexion, adopendynamic, adlockoptimistic
if IsNull(rs![Num&#233;ro]) Then 
msgBox("enregistrement rat&#233;")
Else
msgBox("enregistrement r&#233;ussi")
End if
Voila ca devrait marcher...

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire
Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...

cs_ITALIA · Answer

En DAO en cochant...Projet...R&#233;f&#233;rences...Microsoft DAO 3.51 Object Library.

Dans ton Code :

Set Db = OpenDatabase("C:\MaBase.mdb") ' D&#233;finition base de donn&#233;eSet Donnee Db.OpenRecordset("SELECT * FROM NomTable WHERE NomChamp '" & Text1.Text & "'")
If Donnee.RecordCount <> 0 Then 
   MsgBox("Numero Existant")
Else
   MsgBox("Numero Absent")
End if
Set Db=Nothing
Set Donnee=Nothing

' Attention si le champ que tu tes dans ta base et de type numerique, la requete sera :Set Donnee Db.OpenRecordset("SELECT * FROM NomTable WHERE NomChamp " & Text1.Text & "")

It@li@

jimluis · Answer

Aucune des deux m&#233;thode ne marche, ou je sais pas bien le faire, en fait j'ai toujours le m&#234;me messagebox, donc ya un prob
Numeo repr&#233;sente ma table et NumeroPers mon champs en num&#233;rique.

moi j'ai fais 

Set db = OpenDatabase("C:\Bdd access admin.mdb") ' D&#233;finition base de donn&#233;eSet donnee db.OpenRecordset("SELECT * FROM Numero WHERE NumeroPers " & Txt_Numero.Text & "")


If donnee.RecordCount > 1 Then
   MsgBox ("Numero Existant")
Else
   MsgBox ("Numero Absent")
End If
Set db = Nothing
Set donnee = Nothing

ET

'Set Rs = New ADODB.Recordset


'Rs.Open "Select * from Numero where NumeroPers = '" & Txt_Numero.Text & "',Ma_Base, adopendynamic, adlockoptimistic"
'If Rs![NumeroPers] = Txt_Numero.Text Then
'MsgBox ("enregistrement rat&#233;")
'Else
'MsgBox ("enregistrement r&#233;ussi")
'End If

Pourquoi &#231;a marche pas??????
  JIMM

tof008 · Answer

il se passe quoi quand tu fais ca? Tu as quoi comme message d'erreur?



Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

jimluis · Answer

J'ai aucun message d'erreur, le probl&#233;me c'est que quand je met un num&#233;ro, qu'il soit pr&#233;sent ou pas dans ma base de donn&#233;e, &#231;a na aucune influence, moi je veux que quand il y ai, messagebox bon sinon messagebox pas bon.

  JIMM

cs_ITALIA · Answer

tu n'a pas bien recopi&#233; mon code..

If donnee.RecordCount <> 0 Then
   MsgBox ("Numero Existant")
Else
   MsgBox ("Numero Absent")
End If
Set db = Nothing
Set donnee = Nothing

It@li@

jimluis · Answer

Oui, c'est parce que j'avais chang&#233; mais &#231;a ne change rien, &#231;a ne marche pas non plus, cette condition ne va pa a priori, ou alors le probl&#233;me vien de la requ&#233;te, je vais cherch&#233;, si quelqu'un sait merci de m'aider.

  JIMM

cs_ITALIA · Answer

Essayes : 
Set donnee db.OpenRecordset("SELECT * FROM Numero WHERE [NumeroPers] " & Val(Txt_Numero.Text) & "")

It@li@

jimluis · Answer

Ca ne change rien, il me marque toujours "numero valide".
Est ce que cela peut provenir de la condition de la boucle if ????
Sinon je ne vois pas........ 

  JIMM

cs_ITALIA · Answer

Pr&#233;s la Requ&#233;te tu mets :

donnee.MoveLast
Nb=donnee.Recordcount
donnee.MoveFirst

"Nb" te donnera le nombre exacte d'enregistrement selectionn&#233; lors de ta requ&#233;te

It@li@

jimluis · Answer

Nb me donne 2 mais c&#231;a que je compren pa, il y aura toujours plusieur enregistrement donc &#231;a sera toujours vrai la boucle, c pa vrai???

  JIMM

cs_ITALIA · Answer

eh oui.....
c'est normal qu'il y ait 2 enreg de selectionn&#233;e avec cette requete ?

It@li@

jimluis · Answer

bah oui vu que ya que 2 enregistrement dans ma base de donn&#233;e.

  JIMM

cs_ITALIA · Answer

Non tu peux evoir 10000 Enregistrements dans ta Table et que 5 Selectionn&#233;s en Fonction des Crit&#233;res de ta requ&#233;te..

Toi c'est normal...tes 2 Enregistrements ont le m&#234;me NumeroPers ?

It@li@

jimluis · Answer

non c'est 2 numero diff&#233;rent, de toute fa&#231;on &#231;a ne change rien au probl&#233;me, mais c'est cool j'ai compris quelque chose au moins.
Mais si mon r&#233;sultat est toujours sup&#233;rieur a 0, c'est que ya un prob, mon crit&#233;re n'est pas pris en compte en faite. Non??
Alors comment faire, Est il possible de tester autre chose que le recordcount.??

  JIMM

cs_ITALIA · Answer

De Rien @+

Forza

It@li@

Test par requéte sql si numéro présent dans bdd access

17 réponses

Discussions similaires