Pb VB base de donnees access

Question

Bonjour,

voila j'ai un pb car j'ai fait un petit prog sous VB relie a une BDD access. Le pb est que pour remplir les champs via la BDD ca marche, mais ca ne marche pas quand je veux les modifier. Voila le debut de mon code, c'est la partie ou ca bug si vous pouvez m'aider ce serait cool.

Private Sub Command1_Click()
Dim db As Database
Dim Table As Recordset
Dim str As String
Set db = OpenDatabase(PathMDB)
Set Table = db.OpenRecordset("Client")
SQL = "SELECT * FROM Client WHERE [Adresse mail]=" & Chr(34) & Form6.modif & Chr(34)
Set Table = db.OpenRecordset(SQL)

Table.Edit

    If (Table![Prenom client] <> Form4.Text1) Then
        Table.Fields("Prenom client").Value = Form4.Text1
    End If

Merci par avnce et @+.
L'erreur que ca me sort est que il n'y a aucun enregistrement, et je ne vois pas pourquoi. Merci de m'aider

cs_PrX · Answer

Deux choses:
1/ Type de données dans ta base
je suppose que ton "adr mail" est typée 'String'
ainsi sql s'écrit
"SELECT * FROM matable WHERE [matable]![attribut] = """ & mavariable & """"

( écriture SQL Access :[matable]![attribut] )

2/ Un conseil perso  ;) 
si tu utilise VB6, utilise de pref l'ADO plutôt que le DAO. Plus performants, plus rapide, plus de fonctions...

A plus,

PrX
,  :-p  Initiate To VB6 And Completely Crazy

canard66 · Answer

Salut,

non ca fait toujours pareil pas d'enregistrement en cours. SVP que qq1 m'aide je craque!!!!!  :sad)

ozar · Answer

Ta requête mon garçon s'est (fait un copier coller) :

Dim db As Database
Dim Table As Recordset
Dim str As String
Set db = OpenDatabase(PathMDB)
SQL = "SELECT * FROM Client WHERE [Adresse mail]='" & Form6.modif & "';"
Set Table = db.OpenRecordset(SQL)
if not Table.eof then
    If (Table![Prenom client] <> Form4.Text1) Then
        Table.Fields("Prenom client").Value = Form4.Text1
        Table.Update
    End If
else
    msgbox "Pas d'enregistrement trouvé"
end if 

Le seul truc bizarre dans ton code c : Form6.modif 
vérifie ce kel contient lors de l'execution

Amaramax · Answer

salut,

si form6.modif est un champ text:

SQL = "SELECT * FROM Client WHERE [Adresse mail]=" & "'" & Form6.modif.text & "'"

PrX a raison utilises ADO plus rapide et plus simple que DAO avec VB6
a+
Amaramax

Pb VB base de donnees access

4 réponses

Discussions similaires