Ecrire une valeur dans une db access (vba)

Question

Bonjour,

Je suis débutant en programmation en générale.

Je cherche un exemple concret et simple pour écrire dans une DB access en VBA

j'ai affecter à la string temp du texte (texte = test)

voiçi le code:

Private Sub Commande0_Click()
Dim tmp As String
tmp = "test"
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("C:	est.mdb")
Set RS = DB.OpenRecordset("test", dbOpenTable)
End Sub

Ma db (test.mbd) contien un table (test) qui a une colone (test) très répetitif tout ca :p

Je cherche juste a écrire la valeur de "temp" dans la colone test)

Merci de votre aide

cs_lerico · Answer

Salut,

Je pense que cela devrait t'aider :

Private Sub Commande0_Click()
Dim tmp As String
tmp = "test"
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("C:	est.mdb")
Set RS = DB.OpenRecordset("test", dbOpenTable)

RS.AddNew
RS!test="temp"
RS.Update

End Sub

abuzed · Answer

Merci, nikel!

J'en demandais pas plus.

Bonne journée

abuzed · Answer

Hello,

Pour finir j'aurais quand même une 2ème questions.

Après mur reflexion je pense passer par une requet SQL (au cas ou j'upgrade avec une db sql)

Cepantant je n'y connais rien en SQL, pouvez-vous me donner l'equivalent en SQL?

Merci beaucoup !

abuzed · Answer

Entre temp j'ai trouvé quelque chose qui me semble bon:

Private Sub Commande0_Click()
Dim tmp As String
Dim sSQL As String
Dim rst As DAO.Recordset

tmp = "test"

sSQL = "Insert test From table2
Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
rst.Close

End Sub

Mais 2 questions me tracassent,

1) comment lui indiquer une DB autre que CurrentDb
2) mon Insert est surment pas complet...

abuzed · Answer

sJe me suis répondu tout seule :) je met le code si sa peux aider quelqu'un.

Je ne savais pas que pour déclarer c'était simplement une string...

Dim SQL As String

SQL = "Insert InTo TABLE (colone1,colone2) Values ('valeur','valeur')"
Call CurrentDb.Execute(SQL)

Pour les colones, je n'est pas mis de "" car c'est dinamique (les noms des colones sont contendu dans des variables

Ecrire une valeur dans une db access (vba)

5 réponses

Votre réponse

Discussions similaires