écrire dans une base de donnée acces avec visual basic

Question

bonjour &#224; tous,


je cr&#233;e actuellement un programme en VB qui permet de gerer des notes,
pouvoir les consulter, &#224; partir d'une base de donn&#233;e access,
le programme doit pouvoir calculer des moyenes par matieres, moyenes
generales ou autre manip (qui seront r&#233;alis&#233;e surement &#224; partir de requetes
SQL).


je doit faire ce programme dans le cadre du cour de programmation
(je fait un DUT Genie Electrique et Informatique Industrielle) et je suis
bloqu&#233; sur un point :


j'ai plusieurs textbox dans lequel l'utilisateur rentre des informations
sur le devoir (coefficient, description, date,note...) et j'aimerai que
apres avoir appui&#233; sur le bouton de commande correspondant remplir
ma base de donn&#233;e avec ces informations (je pensait utiliser data1.recordset.addnew)
et sans avoir &#224; relier mes textbox &#224; un champ de la base de donn&#233;e.


pour resumer le probleme, par exemple j'ai une chaine de caract&#232;re que j'apelle
strexemple ; j'aimerai &#233;crire cette chaine dans le tableau "tableau1" &#224; la
colonne "exemple" de ma base de donn&#233;e. quelle serai le code &#224; &#233;crire dans un bouton de commande par exemple pour que cela se r&#233;alise.


merci d'avance pour votre aide

nhervagault · Answer

Salut

Moi je n'utilise jamais les addnew 
Je preferes le faire en  sql directement

Il faut mettre unereference a ado 2.X (X a determin&#233; selon ton pc)
En general >= 6 (le 8 est le plus recnt)

exemple pour le insert, update et delete

  strSQL = "insert into ville (ville) values ('" & villename & "')"
    
    cmdADO.CommandText = strSQL
    cmdADO.Execute

avec dans un module

Public rsado As New ADODB.Recordset
Public connADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public strSQL As String

Public Sub Main()
    
    connADO.Provider = "Microsoft.JET.OLEDB.4.0"
    connADO.ConnectionString = App.Path + "\BDD.mdb"
    Set rsado = New ADODB.Recordset
    rsado.LockType = adLockOptimistic
    connADO.Open
    Set cmdADO.ActiveConnection = connADO
    cmdADO.CommandType = adCmdText

    MainForm.Show
End Sub

et pour le select un exemple de parcours

 Set rsado = New ADODB.Recordset
 
    rsado.Open "SELECT *  from ville order by ville", connADO
    
    Do Until rsado.EOF
        ..... = rsado!id_ville
        .... = rsado!Ville
     
        rsado.MoveNext
    Loop

    rsado.Close
    Set rsado = Nothing

cs_pluplu · Answer

Personnellement je n'utilise plus DAO mais ADO qui est plus d'actualit&#233;, vu que Microsoft &#224; enterr&#233; DAO, mais je pense que le principe reste le m&#234;me, avant de faire un addnew sur ton contr&#244;le Data1, tu dois le remplir avec quelque chose ou plus exactement le contenu de la table dans laquelle tu veux rajouter un enregistrement


voir le code ci-dessous:


Dans cet exemple je remplis le recordset de mon control Data5 avec le contenu de la table &#147;Equipement&#148;, ensuite j&#146;ajoute un nouveau record et je donne au champ "Marque" la valeur contenue dans mon texteboxe  "TxtMarque" ensuite je fais un update pour que le nouveau record soit enregistr&#233; dans ma table "Equipement".


Dim Sqlstr


Sqlstr = "Select * From Equipement "


With Data5


.DatabaseName = Current_DB


.RecordSource = Sqlstr


.Refresh


End With




With Data5


.Recordset.AddNew


.Recordset.Fields![Marque].Value = TxtMarque.text


.Recordset.Update


End with

Voil&#224; essaye &#231;a devrais marcher

Pascal Lauren&#231;on

écrire dans une base de donnée acces avec visual basic

2 réponses

Discussions similaires