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

[ProgElecT]

j'ai trouvé cette reposne de Sovo

A la place de dataemp tu met le nom de ton Recordset
dataemp devient rcrecherche.Recordset.AddNew
mais pour sa il ne faut pas avoir fermé par rcrecherche.Close

[alec--]

Oui, je veux bien, mais de cette maniere, je vois mal omment on lui fait comprendre que " ce qui est marqué dans cette boite de texte ci, doit aller dans le champ de cette table la "



Personne n'a un exemple simple de requete qui ajoute une donnée ?

[ProgElecT]

Code :

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

1
2
3
4
rcrecherche.Recordset.AddNew 'preparation a l'ajout d'un enregistrement
rcrecherche.Recordset!titre_mangas = TextBoxtitre_mangas.Text 'rempli le champs
rcrecherche.Recordset!choixauteur = TextBoxchoixauteur.Text 'rempli le champs
rcrecherche.Recordset.Update 'enregistrement

Là s'est bon ?

[alec--]

j'essaye ce dasn quelques instants, et j'edit pour dire quoi.

En totu cas un grand merci a vous tous.

[alec--]

au lancement : Error : objet required :/

Solution ?

( edit j'ai mis ce code dans le bouton " valider l'ajout " )

[ProgElecT]

attention si rcrecherche.Close a ete inviqué,normal
il faut refaire dans la procedure d'enregistrement (Command1_Click ??):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
rcrecherche.Open mangas, cx, adOpenDynamic, adLockOptimistic
If Not rcrecherche.EOF Then
 rcrecherche.Recordset.AddNew 'preparation a l'ajout d'un enregistrement
 rcrecherche.Recordset!titre_mangas = TextBoxtitre_mangas.Text 'rempli le champs
 rcrecherche.Recordset!choixauteur = TextBoxchoixauteur.Text 'rempli le champs
 rcrecherche.Recordset.Update 'enregistrement
 DoEvents
 rcrecherche.Close
 Else
 'erreur
End If
End Sub

Peut être une erreur de syntaxe
si erreur essayer sa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
rcrecherche.Open mangas, cx, adOpenDynamic, adLockOptimistic
If Not rcrecherche.EOF Then
 rcrecherche.AddNew 'preparation a l'ajout d'un enregistrement
 rcrecherche!titre_mangas = TextBoxtitre_mangas.Text 'rempli le champs
 rcrecherche!choixauteur = TextBoxchoixauteur.Text 'rempli le champs
 rcrecherche.Update 'enregistrement
 DoEvents
 rcrecherche.Close
 Else
 'erreur
End If
End Sub

Autrement dit, enlever l' .Recordset

[alec--]

Meme en réouvrant le recordset, j'ai toujours l'erreur de l'objet required et le Debug pointe l'erreur sur cette phrase

rcrecherche.Open mangas, cx, adOpenDynamic, adLockOptimistic

[ProgElecT]

j'ai réedité, relis les dernieres lignes

[alec--]

Malheureusement, meme sans le .recordset de l'addnew,du update et des 2 autres requetes il y a l'erreur de l'objet required

le debug print pointe toujours : rcrecherche.Open mangas, cx, adOpenDynamic, adLockOptimistic

[ProgElecT]

rcrecherche.Open "mangas", cx, adOpenDynamic, adLockOptimistic
j'ai oublié les apostrophes

[alec--]

On s'en approche, mais une autre erreur intervient : Object variable or With Block variable not set

il pointe encore en debug, sur la meme phrase

[ProgElecT]

Voila comment je procede pour ma part pour l'ouverture de la base et de la table voulue, mais j'utilise "Microsoft.Jet.OLEDB.3.51", peut être y a t il une difference ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
'varibles pour manipulation de la base de données
Public CheminDataBase As New ADODB.Connection
Public TablES1 As New ADODB.Recordset
Public CheminNomDelabase As String
Public NomDeLaTable As String
Public AcsetBase  As Boolean
 
Public Sub TestBaseSourceExiste()
AcsetBase = False: CheminNomDelabase = "C:\Program Files\Visionneuse\Vision.mdb"
CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite
On Error Resume Next
CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= " & CheminNomDelabase & ";"
If Err.Number = 0 Then
 NomDeLaTable = "Configue"
 On Error Resume Next
 TablES1.Open NomDeLaTable, CheminDataBase, adOpenStatic, adLockPessimistic
 If Err.Number = 0 Then
  TablES1.Close: DoEvents: AcsetBase = True
  Else
  On Error GoTo 0
  'erreur
 End If
 Else
 On Error GoTo 0
 'erreur
End If
End Sub

Je suis desolé de ne pas pouvoir plus t'aider, mais un forumeur plus compétant va sûrement te depanner

[alec--]

merci bien

pour la connexion ca va, je n'ai pas de soucis

Je cherche juste a ajouter une malheureuse donnée a la base de donnée :'( :'( :'( :'(

[Phifi]

Re,

c'est quand même pas si dur de faire un ajout ! =)

Je te propose une façon de faire simplifiée, sans gestion d'erreur, juste pour un ajout, le problème doit venir d'ailleurs dans ton cas...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' après ajout de la référence Jet

Dim db as DAO.Database
Dim rst as DAO.RecordSet

Set db = OpenDatabase("chemin_base")
Set rst = db.OpenRecordSet("nom_table")

rst.Addnew
rst!champ1=mavaleur
...
rst.Update

rst.Close
db.Close

Et c'est tout !

Je te passe les options d'ouverture de la base, du recordset, la gestion de la connexion etc.