Problème avec mise en relation d'une BDD AccessRésolu

Question

Bonjour,

Je suis une noob en vb, mais je dois cr&#233;er un projet pour mon BTS.

Comment faut il que je connecte ma base de donn&#233;e afin de pouvoir ins&#233;rer des requetes ajout (isert), modifier (update) et suprimer (delete) dans mes Formulaire (feuille VB) ??
J'ai d&#233;ja regarder de nombreuses source mais je ne comprend pas l'histoire d'utiliser soit DAO, etc... Quelqu'un peut il m'aider SVP ??

De plus, est ce que quelqu'un sait comment r&#233;cup&#233;rer la valeur d'un TEXT1 d'une Feuille1 (ou d'une variable) dans un TEXT2 d'une feuille2(ou une autre variable) ??

Merci de votre aide

tof008 · Accepted Answer

Ben moi oci je suis en stage pour mon bts donc voila qques infos qui pourrait t'aider.... : 

donc pour te connecter &#224; ta base de donn&#233;es en ADODB : 
Dim con As Connection
'tudeclare ta connection
Dim rs As New ADODB.Recordset
'declaration d'une requete

Set con = New ADODB.Connection
'connection &#224; la base
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "Chemin de ta base"
    con.Open
Set rs = New Recordset
    rs.Open "select * from [ta table] where "ta condition" ", con, adOpenDynamic, adLockOptimistic
    rs.MoveFirst

Ensuite pour recuperer la valeur d'une autre feuille : 

feuille2.tavaleur.text = feuille1.tavaleur.text

Voila, good luck

cs_ITALIA · Answer

En DAO c'est &#224; dire en Cochant Projet---R&#233;f&#233;rences--Microsoft DAO 3.51 Object Library

Dans ton Code pour l'execution d'une Requete:

 Set Db = OpenDatabase("C:\MaBase.mdb") ' D&#233;finition base de donn&#233;e    Set Donnee Db.OpenRecordset("SELECT Adresse FROM MaTable WHERE Fournisseur 'toto'")
    If Donnee.RecordCount <> 0 Then
            Text1.Text= Donnee("Adresse")
    End If
   Set Db=Nothing
   Set Donnee=Nothing

It@li@

bjipowa · Answer

Je vous remercie, cela va m'aider pr&#233;cieusement !

Mais, l'un de vous 'a expliqu&#233; comment faire avec DAO et l'autre avec ADODB.

Y a t-il l'une ou l'autre de ces m&#233;thode qui est mieux pour la base access ou est ce seulement un choix que chaque personne fait ??

Merci

cs_ITALIA · Answer

Personellement je pr&#233;f&#233;re DAO...


Qui est plus ancien que l' ADO...Donc soit disant moins evolu&#233;....mais bon &#231;a se discute


It@li@

tof008 · Answer

ben moi je prends l'ADO parce que j'ai appris &#224; le faire comme ca... On m'a dit aussi qu'il &#233;tait plus evolu&#233;, mais je pense que chacun &#224; ses habitudes, donc &#224; toi de faire ton choix...

tof

bjipowa · Answer

Oki en effet je trouve la m&#233;thode un peu moins complexe.

ITALIA peut tu m'expliquer pourqoui apres ton Endif, tu met cela :

   Set Db = Nothing
   Set Donnee = Nothing

C'est une convention obligatoire de VB pour que cela marche ou on peut les retirer ???

Merci

cs_ITALIA · Answer

Si ca fonctionne sans ces 2 lignes ...tu peux tester..c'est simplememnt pour liberer la memoire que tu as pr&#233;alablement Reserv&#233; avec le Set Db= et le Set Donnee=

Beaucoup de personne ne le font pas.

It@li@

bjipowa · Answer

Oki c cool!! 

Une derniere petite question et pares, je pense que vous m'aurez bien aid&#233; les mec c sympa  : 

Je veux faire une requete insert et ins&#233;rer dasn ma table la valeur par exemple d'un champs de texte ou d'une variable

exemple de mon code :

Private Sub Command1_Click()
Dim ai As Integer
        ai = ""
Dim af As Integer
        af = ""
Dim Newnum As Integer


' Recherche de l'action immediate a implementer a la fnci
    If Creat.tr_manuel.Value = True Then
        ai = 7
    End If
    
    If Creat.bloc_info.Value = True Then
        ai = 6
    End If
    
    If Creat.tr_info.Value = True Then
        ai = 8
    End If
    
    If Creat.tri.Value = True Then
        ai = 9
    End If


' Recherche de l'action finale &#224; implementer a la fnci
    If Creat.destruction.Value = True Then
        af = 1
    End If
    
    If Creat.rf.Value = True Then
        af = 2
    End If
    
    If Creat.prorogation.Value = True Then
        af = 3
    End If
    
    If Creat.info.Value = True Then
        af = 4
    End If


' D&#233;finition base de donn&#233;e
    Set db = OpenDatabase("G:\BTS\PTI\VB\FNCI\fnci.mdb")
    ' requete
        Set Donnee = db.OpenRecordset("SELECT max(num_fnci) AS max from fnci")
        ' si il y a des resultats
            If Donnee.RecordCount <> 0 Then
                ' on donne a la variable le numero de fnci trouv&#233;e et on incremente
                 Newnum = Donnee("max") + 1
            End If
        Set Insert = db.OpenRecordset("INSERT INTO fnci(Num_fnci,Date_creation,Description_fnci, Cause_fnci,Nom,num_ai,num_af) VALUES '', '...','...,'...')
   Set db = Nothing
   Set Donnee = Nothing


End Sub

Je met directement entre mes ' ' le nom de ma variabl ou de mon champs texte ou est ce plus complexe  ??

Merci bocou ;)

cs_ITALIA · Answer

INSERT INTO employee (Quantite, Nom) VALUES (3022, "Didier")

INSERT INTO employee (Quantite, Nom) VALUES (" & Val1 & ", '" & Val2 & "')

It@li@

cs_ITALIA · Answer

pour les champs Texte : '"&...&"'
pour les champs Numerique :  "&...&"

It@li@

bjipowa · Answer

et pour les dates et champs memo ???

Voila l'erreur que cela me met :

Erreur d'execution "3219" :
operation non valide

Si kkun c, kil me dise a koi ele correspond!

bjipowa · Answer

et pour les dates et champs memo ???

Voila l'erreur que cela me met :

Erreur d'execution "3219" :
operation non valide

Si kkun c, kil me dise a koi ele correspond!

bjipowa · Answer

d&#233;sol&#233; pr le spam :S

cs_ITALIA · Answer

pour les dates : #" & DateDebut& " #
pour les m&#233;mos c'est comme pour les champs textes

It@li@

bjipowa · Answer

S ane fonctionne toujours pas, cela me met tojuours la m&#234;me erreur :

Erreur d'execution "3219" :
operation non valide

Ne serais ce pas dut au fait qu'il faille ouvrir la base de donn&#233;e en mode ecriture ou un machin comme sa ??

cs_ITALIA · Answer

Donnes moi ton code et dis moi la ligne qui plante

It@li@

Problème avec mise en relation d'une BDD Access

16 réponses

Discussions similaires