Discussion :

[alec--]

Bonjour

J'ai commencé un projet sous VB 6 // Acess.

C'est donc un petit programme developpé sous VB, qui se connecte a une DB Acess via ADO.

Pour aller chercher des info, j'ai pas trop de probleme, une simple requête suffit.

Par contre, j'aimerai permettre a l'utilisateur, d'ajouter lui même des éléments dans ma base de donnée ( j'ai crée une Form afin de remplir une fiche ( nom de l'artiste, nom de l'album....) )

Mais comment faire pour justement, ajouter ces données dans ma DB ??

merci

alec -

[Phifi]

Bonjour et bienvenue,

Pour aller chercher des info, j'ai pas trop de probleme, une simple requête suffit...

...Mais comment faire pour justement, ajouter ces données dans ma DB ??

c'est pareil, une simple requête suffit, et une petite recherche aussi...

[alec--]

j'ai trovué cette reposne de Sovo :

'tu mets ce code pour le bouton enre_click

dataemp.Recordset.AddNew
dataemp.Recordset!User = "Sovo" 'User est un champ de ta table
.... 'tu fait de meme pour les autres champs
dataemp.Recordset.Update

Mais je ne comprends pas plusieurs choses :

- Qu'appel t-il " dataemp" ?

- moi je veux que ce soit un utilisateur externe au dev du programme qui ajoute des données dans ma base de donnée, donc mettre une information aprés le " = " me parait étrange

- comment lui indiquer d'utiliser une autre table ?

[Phifi]

Commence par nous montrer ton code de connexion, ta façon de construire ton recordset, celle de l'exploiter en lecture... on t'aiguillera en fonction de ta façon de faire

[alec--]

La connexion a la BD :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Load()
Set cx = New ADODB.Connection
cx.Provider = "microsoft.jet.oledb.4.0"
cx.ConnectionString = "E:\Visual Basic\ptiv2\db.mdb"
cx.Open
Set rcrecherche = New ADODB.Recordset
 
End Sub

les declaration de variables dans l'option explicite ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Option Explicit
Dim cx As ADODB.Connection
Dim rcrecherche As ADODB.Recordset
Dim choixauteur As String

Facon de lire la BD via uen requete :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
rcrecherche.Open "select num_mangas  from mangas where  titre_mangas = " & " '" & BT_recherche.Text & "'", cx, adOpenDynamic, adLockOptimistic
choixauteur = (rcrecherche!num_mangas)
rcrecherche.Close
rcrecherche.Open "select titre_mangas from mangas where  num_mangas  = " & " " & choixauteur & "", cx, adOpenDynamic, adLockOptimistic
Form6.L_titre.Caption = rcrecherche!titre_mangas
rcrecherche.Close

[alec--]

un petit up