debutant sur base de donnéesRésolu

Question

Bonojur Je dispose d'une base de donnee acces dans laquelle il y a une table nommee clientele et contenant de nombreux champs, avec entre autre 3 champs : nom ; prenom; animal

J'ai deux question

comment ecrire la requete qui me permettrait d'afficher dans une flexgrid tous les nom commencant par une ou plusieurs lettre  (les lettres sont tapées dans un text box)et de mettre dans les colones a cote le prenom et l'animal associé


la seconde question , comment ecrire la requete qui permet de trouver la personne qui a un nom , un prenom et un animal donné

Voici le code que j'ai deja ecris pour ajouter des donnees dans ma table

--------------------------------------------------------------------------------
Dim bd As New ADODB.Connection
Dim tb As New ADODB.Recordset
--------------------------------------------------------------------------------
Private Sub Form_Load()
bd.Provider = "microsoft.jet.oledb.4.0"
bd.ConnectionString = "c:\logivet\donnees\clientele.mdb"
bd.Open
endsub
------------------------------------------------------------------------------------
Private Sub Picture2_Click()      
tb.Open "select * from clientele", bd, adOpenDynamic, adLockOptimistic

tb.AddNew

tb![Nom] = Nom.text
tb![prenom] = prenom.text
tb![adresse] = adresse.text
tb![villecp] = ville.text
tb![telephone] = telephone.text
tb![telportable] = telportable.text

tb![animal] = animal.text
tb![naissance] = age.text
tb![espece] = espece.text
tb![race] = race.text
tb![robe] = robe.text
tb![sexe] = sexe.text
tb![variete] = variete.text
tb![castre] = castre.text
tb![ie] = ie.text
tb![tatouage] = tatouage.text
tb![passeport] = passeport.text
tb![dette] = "0"
tb![etat] = "Vivant"
tb![titre] = Combo1.text

tb.Update

tb.Close
bd.Close
Set tb = Nothing
Set bd = Nothing
End sub

Merci infiniment pour celui qui pourra me repondre

spa666 · Accepted Answer

dim sreq as string
sreq = " select * from clientele "
' question 1
sReq = sReq & " Where " & tb![Nom] " Like '" & Nom.text & "%' "
' question 2
sReq = sReq & " Where " & tb![Nom] & "=" & Nom.text & " and " & tb![prenom] & "=" & prenom.text & " and " tb![animal] & "=" & animal.text

cs_popo51 · Answer

If Text1.Text = tb!DateJour Then 'si existe déjà
  MsgBox "Changer de date"
  Exit Sub
End If

ne marche pas car a mon avis je n'ais pas fait de recherche sur le champ date avant, si tu pe confirmé et m'expliquer comment je doit m'y prendre !! 
Merci

Debutant sur base de données

2 réponses

Discussions similaires