Executer une requete sql sous VB (urgent)

Question

Bonjour a tous je souhaiterai avoir le code pour executer une requete sql sous VB.

Mon projet consiste &#224; faire une base de donn&#233;es pour reserver un
camion! Les conditions sont que je ne dois en aucun cas ecrire sur ma
table (T_Location), mais creer une requete qui met a jours la table. De
plus si une date est deja prise il faut qu'il y est un message
d'erreur!! merci d'avance

PCPT · Answer

salut,
une requ&#234;te est un r&#233;sultat partiel ou complet d'une ou plusieurs table.
par d&#233;finition, elle n'&#233;crit pas dans la table (dans le sens &#233;craser).

tu peux mieux expliquer stp?
tu fais &#231;&#224; sous VBA access?
VB6 // access?
autre? :-$
PCPT

Neo Bahamut · Answer

Je fais ca sous VBa access maleuresuement pour moi! Sinon alors j'ai une table nomm&#233; T_Location : 
champ: _NumeroLocation


_NomUtilisateur


_DateDemande


_DateDebut Reservation


_DateFin Reservation


_LieuDepart


_LieuArrivee
J'ai un formulaire independant nomm&#233; F_Saisie ou je renseigne les champs(identique a la table)! Maintenant je veux executer une ou pluqieurs requete pour me permettre de comparer les dates de ma tables avec les dates saisies de facon a ne pa reserver la meme date, et je veux une mise a jours de ma table si la date est valide!!

PCPT · Answer

re,
VBA, je ne pourrai pas t'aider.
par contre, sur le principe : tu n'as pas besoin de 2 tables.
tu cr&#233;es un nouvel enregistrement que tu vas &#233;crire dans ta base principale (et unique).
mais avant, tu v&#233;rifies par une requ&#234;te que la plage de temps (date) ou camion (num&#233;ro) etc... soit dispo. si c'est le cas, tu valides la r&#233;servation en &#233;crivant alors ta requ&#234;te. sinon, la tu mets ton message "pas dispo bip bip".
PCPT

Neo Bahamut · Answer

Je n'ai qu'une seule table!! Merci mais j'accepte ta reponse mais j'attends du code svp!!!

Neo Bahamut · Answer

Encode ca donne koi les requetes??

yuri1961 · Answer

Bjr!

Tu veux executer une requete sous Access??? stp!!!

Dim db As Database, TaRequete$

Set db = CurrentDb

TaRequete= "SELECT * FROM TaTable"

db.Execute TaRequete

Neo Bahamut · Answer

Voila je tape ton code mais le probleme lors de mon execution c'est que
je me fais jetter: db as database: type non defini par l'utilisateur!!
pourquoi?

Neo Bahamut · Answer

Je recapepete le probleme, en gros je veux comparer mes dates saisies a
mes date deja entr&#233;es dans ma table sachant qu'il n'y a aucun lien
entre le formulaire de saisie et la table. Ce qui m'impose une
connexion a la base de donn&#233;es et une requete et c'est ca que je
chercher! nom de la bd: Reservation camion

Nom table: cf plus haut

Nom Formulaire:cf plus haut

Tuning Max · Answer

Voil&#224; une mani&#232;re de faire. En esp&#232;rant que cel&#224; pourra t'aider

Private Sub Commande12_Click()
On Error GoTo Err_Commande12_Click
Dim StrChaineSQL As String, db As Database, rcd As Recordset, DateResa As Date



    DateResa = Me.DateDebutReservation
    StrChaineSQL = ""
    ' Ouverture d'un recordset sur la base de la requ&#234;te si dessu
    Set db = CurrentDb
    Set rcd = db.OpenRecordset("SELECT T_Location.NumeroLocation, T_Location.NomUtilisateur " & _
                   " FROM T_Location WHERE (((T_Location.DateDebutReservation)=#" & DateResa & "#));")
    ' Si la recherche est infructueuse, informe l'utilisateur et retourne au formulaire de recherche
        If rcd.RecordCount <> 0 Then
            MsgBox " Une r&#233;servation existe d&#233;j&#224; pour cette date !"
        Else:
    'Lib&#233;ration des objets
            rcd.Close
            Set rcd = Nothing


    ' d&#233;finition d'une nouvelle requ&#234;te Action
            Set rcd = db.OpenRecordset("T_Location", dbOpenTable)
            'Passe en mode Ajout
            rcd.AddNew
            'Affecte les diff&#233;rents champs
            rcd.Fields("NumeroLocation").Value = Me.NumeroLocation
            rcd.Fields("NomUtilisateur").Value = Me.NomUtilisateur
            rcd.Fields("DateDebutReservation").Value = Me.DateDebutReservation
            rcd.Fields("DateFin Reservation").Value = Me.DateFin_Reservation
            rcd.Fields("LieuDepart").Value = Me.LieuDepart
            rcd.Fields("LieuArrivee").Value = Me.LieuArrivee
            'Met &#224; Jour
            rcd.Update
        End If
        
    'Lib&#233;ration des objets
    rcd.Close
    db.Close
    Set rcd = Nothing
    Set db = Nothing
    StrChaineSQL = ""


Exit_Commande12_Click:
    Exit Sub


Err_Commande12_Click:
    If Err.Number = 3022 Then
                MsgBox " Une r&#233;servation existe d&#233;j&#224; pour cette date !"
    Else:
    MsgBox Err.Description
    End If
    Resume Exit_Commande12_Click
    
End Sub

Tuning Max · Answer

Ah oui j'ai oublier, dans mon exemple ci-dessus, j'ai pr&#233;alablement index&#233; sans doublons le champ "DateDebutReservatio". Raison pour laquelle j'ai mis une gestion d'erreur
 If Err.Number = 3022 Then
                MsgBox " Une r&#233;servation existe d&#233;j&#224; pour cette date !"

voil&#224; j'esp&#232;re avoir bien compris ton probl&#232;me

Neo Bahamut · Answer

Voila c'est ca que je cherche sauf qu'il m'envoie toujours balader avec le type database!!!

Tuning Max · Answer

Dans l&#146;exemple que je t&#146;ai donn&#233;, je suis parti du principe que tu souhaitais ex&#233;cuter une requ&#234;te bas&#233; sur une table de ta base ouverte. D&#146;o&#249; mon " Set db = CurrentDb "


Pour ma part cela fonctionne bien! Peux-tu nous dire le message d'erreur exact?

Neo Bahamut · Answer

Le message d'erreur est: type non defini par l'utilisateur!! tunning max est ce que tu pourrais me donner le code d'ouverture de la base que tu utilise stp!

Tuning Max · Answer

En fait si j'ai bien compris ce qu'il te faut c'est un code de connexion &#224; ta base de donn&#233;e. Il existe plusieurs methode de connexion, en voil&#224; une parmis d'autres. Tu pourra trouver de nombreuse methodes sur ce site

Dim wrk As Workspace


Dim db As Database, cnx As Connection




Set wrk = CreateWorkspace ("", "Username", "", dbUseJet)


Set db = wrk.OpenDatabase ("Ma base de donn&#233;e")

Neo Bahamut · Answer

J'ai ma connection mais ma requete ne fonctionne pas!!  

"SELECT T_Location.DateDebutReservation, T_Location.DateFinReservation
FROM T_Location WHERE (((T_Location.DateDebutReservation) BETWEEN
#DateDebut#  AND  #DateFin# ) AND
((T_Location.DateFinReservation) between #DateDebut# AND #DateFin#));"

Pourquoi elle ne marche pas svp?

Neo Bahamut · Answer

j'ai rectifier ma requete mais toujours une incompatibilit&#233;!!

 "SELECT T_Location.DateDebutReservation,
T_Location.DateFinReservation FROM T_Location WHERE
(((T_Location.DateDebutReservation) BETWEEN #" & DateDebut &
"#  AND  #" & DateFin & "# ) AND
((T_Location.DateFinReservation) between #" & DateDebut & "#
AND #" & DateFin & "#));"

PCPT · Answer

salut,
essai en enlevant les # et le ;
PCPT

Neo Bahamut · Answer

C'est la meme chose erreur d'execution13 :incompatibilit&#233; de type!!

D'apres vous si je veux changer le format de mes champs DateDebut et
DateFin (jj/mm/yyyy) en format date sql (mm/jj/yyyy) , ca donnerait
quoi en code?!

PCPT · Answer

Format(DateDebut, "MM/JJ/YYYY")
mais &#224; faire avant la req&#234;tre (pour ne pas &#234;tre emmerder avec les guillemets)
PCPT

PCPT · Answer

il te faut tout de m&#234;me &#234;tre s&#251;r du format date de ta base ;)

Executer une requete sql sous VB (urgent)

25 réponses

Discussions similaires