[VB] Insertion SQL

Version imprimable

[VB] Insertion SQL

Bonjour à tous,

J'ai un petit problème d'insertion SQL dans mon programme en VB6, voici le code :

Code:

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
29
30
31
32
33
34
35
36
Private Sub BtnValider_Click()
    Dim Db As Database
    Dim RS, rsEnreg As DAO.Recordset
    Dim nenreg, compteur As String
    Dim num As Integer
    Dim Nom, Reponse As String
    Dim requete As String
    Set Db = OpenDatabase("projet.mdb")
    Set rsEnreg = Db.OpenRecordset("PROJET", dbOpenTable)
 
    If (rsEnreg.RecordCount > 0) Then
        rsEnreg.MoveFirst
        Do Until rsEnreg.EOF
            nenreg = rsEnreg("NumProjet").Value
            rsEnreg.MoveNext
        Loop
        num = CInt(Right(nenreg, 2)) + 1
        If (num < 10) Then
            compteur = Left(nenreg, 1) + "0" + CStr(num)
        Else
            compteur = Left(nenreg, 1) + CStr(num)
        End If
    Else
        compteur = "P01"
    End If
 
    requete = "INSERT INTO PROJET (NumProjet,CodeCategorie,Nom,Lien,Prix,Technologie,Image,Sold,Description) VALUES ('" & compteur & "',1,'" & TxtNom.Text & "','" & TxtLien.Text & "'," & TxtPrix.Text & ",'techno','image','oui','description')"
    Debug.Print requete
    Db.Execute (requete)
 
    rsEnreg.Close
    Set rsEnreg = Nothing
    Set Db = Nothing
 
    Reponse = MsgBox("Votre projet a été ajouté", vbOKOnly, "Succès")
End Sub

Ma bdd projet.mdb existe bien, et mes champs sont correct. Le programme ne me donne pas d'erreur, mais lorsque j'ouvre projet.mdb avec access l'enregistrement ne s'y trouve pas.

Pourquoi l'enregistrement ne s'effectue pas correctement?

Merci.

05/02/2008, 17h07
Phifi
Bonjour,

Plein de petites choses à revoir à mon sens :
Code:

1 2 3 4 5 6 'Vu et revu, "nenreg" est ici déclaré en tant que Variant et non string Dim nenreg, compteur As String 'La bonne syntaxe : Dim nenreg As String, compteur As String
Ensuite tu ouvres un recordset pour parcourir tous les enregistrements afin d'obtenir la plus grande valeur d'un champ.
Primo : un accès de type "Table" n'est pas nécessaire si tu n'écris pas à travers le recordset, pour un accès rapide voir plutôt dbOpenForwardOnly
Secundo : Qui te dit que ton recordset est trié par ordre ascendant du champ "NumProjet" lorsque tu l'ouvres ?
Tertio : J'utiliserai un champ numérique de type compteur, qu'il soit auto-incrémentiel ou pas pour réaliser ce genre d'indexation
Quatkekchose : tu trouveras peut-être plus facilement la plus grande valeur d'un champ en passant par une requête SQL (cf. SELECT MAX...) qu'avec ta méthode qui t'oblige à balayer tous les enregistrements !
Cinqueccento (Fiat) : Par contre, pour la mise à jour de ta table, là tu peux avantageusement utiliser les méthodes du recordset (cf. Addnew) qu'une requête SQL de type INSERT TO qui n'est pas très intuitive et source d'erreur, même si dans l'absolu, il est préférable de faire comme tu le fais.

Tu as un peu codé à l'envers on dirait :)
05/02/2008, 17h28
sovo
Essai l'execution pas a pas pour voir ou ca cloche, car ton code a l'air bon.

Mais essai de remplacer ce bout de code
Citation:
Envoyé par Xen3r0

Code:

1 2 3 4 5 6 rsEnreg.MoveFirst Do Until rsEnreg.EOF nenreg = rsEnreg("NumProjet").Value rsEnreg.MoveNext Loop
par
Code:

1 2 3 rsEnreg.last nenreg = rsEnreg("NumProjet").Value
car a la fin dans la variable nenreg tu as toujours la valeur du dernier enregistrement.

Voici mon code actuel, il ne fonctionne toujours pas :

Code:

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
29
30
31
32
33
34
35
36
Private Sub BtnValider_Click()
    Dim Db As Database
    Dim RS, rsEnreg As DAO.Recordset
    Dim nenreg As String, compteur As String
    Dim num As Integer
    Dim Nom, Reponse As String
    Dim requete As String
    Set Db = OpenDatabase("projet.mdb")
    Set rsEnreg = Db.OpenRecordset("SELECT * FROM PROJET ORDER BY NumProjet ASC", dbOpenForwardOnly)
 
    If (rsEnreg.RecordCount > 0) Then
        rsEnreg.MoveFirst
        Do Until rsEnreg.EOF
            nenreg = rsEnreg("NumProjet").Value
            rsEnreg.MoveNext
        Loop
        num = CInt(Right(nenreg, 2)) + 1
        If (num < 10) Then
            compteur = Left(nenreg, 1) + "0" + CStr(num)
        Else
            compteur = Left(nenreg, 1) + CStr(num)
        End If
    Else
        compteur = "P01"
    End If
 
    requete = "INSERT INTO PROJET (NumProjet,CodeCategorie,Nom,Lien,Prix,Technologie,Image,Sold,Description) VALUES ('" & compteur & "',1,'" & TxtNom.Text & "','" & TxtLien.Text & "'," & TxtPrix.Text & ",'techno','image','oui','description')"
 
    Db.Execute (requete)
 
    rsEnreg.Close
    Set rsEnreg = Nothing
    Set Db = Nothing
 
    Reponse = MsgBox("Votre projet a été ajouté", vbOKOnly, "Succès")
End Sub

@sovo :

Code:

1
2
rsEnreg.last
nenreg = rsEnreg("NumProjet").Value

Ne fonctionne pas :)

Merci encore pour vos réponses.

Bon essai ce code

Code:

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
29
30
31
32
33
34
35
36
37
38
Private Sub BtnValider_Click()
    Dim Db As Database
    Dim RS, rsEnreg As DAO.Recordset
    Dim nenreg, compteur As String
    Dim num As Integer
    Dim Nom, Reponse As String
    Dim requete As String
    Set Db = OpenDatabase("projet.mdb")
    Set rsEnreg = Db.OpenRecordset("PROJET", dbOpenTable)
 
    If (rsEnreg.RecordCount > 0) Then
        rsEnreg.last
        nenreg = rsEnreg("NumProjet").Value
        num = CInt(Right(nenreg, 2)) + 1
        If (num < 10) Then
            compteur = Left(nenreg, 1) + "0" + CStr(num)
        Else
            compteur = Left(nenreg, 1) + CStr(num)
        End If
    Else
        compteur = "P01"
    End If
 
    rsEnreg.addnew
    rsEnreg!NumProjet = compteur 
    rsEnreg!CodeCategorie = 1
    rsEnreg!Nom = TxtNom.Text
    ......
    'Idem pour les autres champs
    ......
    rsEnreg.update
 
    rsEnreg.Close
    Set rsEnreg = Nothing
    Set Db = Nothing
 
    Reponse = MsgBox("Votre projet a été ajouté", vbOKOnly, "Succès")
End Sub

15/02/2008, 15h01
AdHoc

Bonjour,
1) tu n'as pas d'erreur et pour cause

Citation:

Envoyé par MSDN

Dans un espace de travail Microsoft Jet, si vous fournissez une instruction SQL dont la syntaxe est correcte et si vous disposez des autorisations appropriées, la méthode Execute n'échoue jamais, même si aucune ligne ne peut être modifiée ou supprimée. Utilisez donc toujours l'option dbFailOnError avec la méthode Execute pour exécuter une requête de mise à jour ou de suppression. Cette option engendre une erreur d'exécution et révoque toutes les modifications réussies si l'un des enregistrements concerné est verrouillé et ne peut être mis à jour ou supprimé.

2) Quand tu execute la requete (recupérée dans la fenetre debug grace à ton Debug.print ou en mettant un espion sur ta variable requete) directement dans la base de données, est ce qu'elle marche ?