Mise à jour d'une table access par VB [Résolu]

Question

Sujet Précédent Sujet Suivant

Mise à jour d'une table access par VB [Résolu]

Signaler

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

- 11 mai 2007 à 20:55
cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

- 12 mai 2007 à 11:11

Bonjour,

Je crée en ce moment un prg qui me permet par un simple clic sur un treeview d'insèrer des données d'un fichier vers une base access.

J'ai toutes les fonctions possibles sur cette base (premier dernier suivant précédent nouveau supprimer) etc etc
sauf ...la mise à jour d"un champ ....

En fait, j'arrive pas à enregistrer les modifications effecuées sur le champ.Il me crée un nouveau record avec les données modifiées .
Je trouve pas la solution, quelqu'un à une idée ?

Merci d'avance

Thyphon

A voir également:

Access mise à jour table à partir d'une autre table
Visual basic table - Meilleures réponses
Vb table - Meilleures réponses
Mettre à jour un champ avec un champ d'une autre table ✓ - Forum - SQL
Update d'une table a partir d'une autre table avec 2 cles primaires ✓ - Forum - SQL
VBA : mise à jour d'un champ d'une table ✓ - Forum - Visual Basic
[Doublon] Mise a jour table access via autre table d une autre base - Forum - Visual Basic 6
Mise à jour DBgrid à partir d'une requête SQL ✓ - Forum - Delphi / Pascal

13 réponses

Réponse 2 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
11 mai 2007 à 21:04

Salut,

Regarde du côté de : UPDATE

A+
Exploreur

Réponse 3 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
11 mai 2007 à 21:05

Salut,

Montre tout de même ton code...

A+
Exploreur

Réponse 4 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

11 mai 2007 à 21:13

Bonjour,

Voici le code une partie du code

Option Explicit
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

Private DicIcones As Scripting.Dictionary
Dim db As Database
Dim rs As Recordset
Dim sql As String
Public DocE As Object

Private Sub CDernier_Click()
rs.MoveLast
Text1.Text = rs!RMC
Text2.Text = rs!Container
Text3.Text = rs!Demandeur
Text4.Text = rs!Date
Text5.Text = rs!Quantité
Text6.Text = rs!Description_1
Text7.Text = rs!Defaut_1
Text8.Text = rs!Description_2
Text9.Text = rs!Defaut_2
Text10.Text = rs!Description_3
Text11.Text = rs!Defaut_3
Text12.Text = rs!Description_4
Text13.Text = rs!Defaut_4
Text14.Text = rs!Description_5
Text15.Text = rs!Defaut_5
Text16.Text = rs!Description_6
Text17.Text = rs!Defaut_6
Text18.Text = rs!Description_7
Text19.Text = rs!Defaut_7
Text20.Text = rs!Description_8
Text21.Text = rs!Defaut_8
Text22.Text = rs!Description_9
Text23.Text = rs!Defaut_9
Text25.Text = rs!Defaut_10
Text24.Text = rs!Description_10
Text29.Text = rs!Defaut_11
Text28.Text = rs!Description_11
Text31.Text = rs!Defaut_12
Text30.Text = rs!Description_12

Text26.Text = rs!N°
End Sub

Private Sub CEnregistrer_Click()

rs.AddNew 'Ajoute un nouvel enregistrement

rs!RMC = Text26.Text
        rs!RMC = Text1.Text
        rs!Container = Text2.Text
        rs!Demandeur = Text3.Text
        rs!Date = Text4.Text
        rs!Quantité = Text5.Text
        rs!Description_1 = Text6.Text
        rs!Defaut_1 = Text7.Text
        rs!Description_2 = Text8.Text
        rs!Defaut_2 = Text9.Text
        rs!Description_3 = Text10.Text
        rs!Defaut_3 = Text11.Text
        rs!Description_4 = Text12.Text
        rs!Defaut_4 = Text13.Text
        rs!Description_5 = Text14.Text
        rs!Defaut_5 = Text15.Text
        rs!Description_6 = Text16.Text
        rs!Defaut_6 = Text17.Text
        rs!Description_7 = Text18.Text
        rs!Defaut_7 = Text19.Text
        rs!Description_8 = Text20.Text
        rs!Defaut_8 = Text21.Text
        rs!Description_9 = Text22.Text
        rs!Defaut_9 = Text23.Text
        rs!Description_10 = Text24.Text
        rs!Defaut_10 = Text25.Text
        rs!Description_11 = Text28.Text
        rs!Defaut_11 = Text29.Text
        rs!Description_12 = Text30.Text
        rs!Defaut_12 = Text31.Text
        rs.Update
Text27.Text = rs.RecordCount
CDernier_Click

End Sub

Private Sub CNouveau_Click()
Dim LngNouvelleValeur As Long

Text26.Text = rs.Fields("N°").DefaultValue
Text1.Text = rs.Fields("RMC").DefaultValue
Text2.Text = rs.Fields("Container").DefaultValue
Text3.Text = rs.Fields("Demandeur").DefaultValue
Text4.Text = rs.Fields("Date").DefaultValue
Text5.Text = rs.Fields("Quantité").DefaultValue
Text6.Text = rs.Fields("Description_1").DefaultValue
Text7.Text = rs.Fields("Defaut_1").DefaultValue
Text8.Text = rs.Fields("Description_2").DefaultValue
Text9.Text = rs.Fields("Defaut_2").DefaultValue
Text10.Text = rs.Fields("Description_3").DefaultValue
Text11.Text = rs.Fields("Defaut_3").DefaultValue
Text12.Text = rs.Fields("Description_4").DefaultValue
Text13.Text = rs.Fields("Defaut_4").DefaultValue
Text14.Text = rs.Fields("Description_5").DefaultValue
Text15.Text = rs.Fields("Defaut_5").DefaultValue
Text16.Text = rs.Fields("Description_6").DefaultValue
Text17.Text = rs.Fields("Defaut_6").DefaultValue
Text18.Text = rs.Fields("Description_7").DefaultValue
Text19.Text = rs.Fields("Defaut_7").DefaultValue
Text20.Text = rs.Fields("Description_8").DefaultValue
Text21.Text = rs.Fields("Defaut_8").DefaultValue
Text22.Text = rs.Fields("Description_9").DefaultValue
Text23.Text = rs.Fields("Defaut_9").DefaultValue
Text24.Text = rs.Fields("Description_10").DefaultValue
Text25.Text = rs.Fields("Defaut_10").DefaultValue
Text28.Text = rs.Fields("Description_11").DefaultValue
Text29.Text = rs.Fields("Defaut_11").Value
Text30.Text = rs.Fields("Description_12").DefaultValue
Text31.Text = rs.Fields("Defaut_12").Value

TreeViewFile.SetFocus

End Sub

Private Sub CPrecedent_Click()
rs.MovePrevious
If rs.BOF = True Then
    rs.MoveFirst
End If
Text1.Text = rs!RMC
Text2.Text = rs!Container
Text3.Text = rs!Demandeur
Text4.Text = rs!Date
Text5.Text = rs!Quantité
Text6.Text = rs!Description_1
Text7.Text = rs!Defaut_1
Text8.Text = rs!Description_2
Text9.Text = rs!Defaut_2
Text10.Text = rs!Description_3
Text11.Text = rs!Defaut_3
Text12.Text = rs!Description_4
Text13.Text = rs!Defaut_4
Text14.Text = rs!Description_5
Text15.Text = rs!Defaut_5
Text16.Text = rs!Description_6
Text17.Text = rs!Defaut_6
Text18.Text = rs!Description_7
Text19.Text = rs!Defaut_7
Text20.Text = rs!Description_8
Text21.Text = rs!Defaut_8
Text22.Text = rs!Description_9
Text23.Text = rs!Defaut_9
Text24.Text = rs!Description_10
Text25.Text = rs!Defaut_10
Text26.Text = rs!N°
Text28.Text = rs!Description_11
Text29.Text = rs!Defaut_11
Text30.Text = rs!Description_12
Text31.Text = rs!Defaut_12
Text27.Text = rs.RecordCount
End Sub

Private Sub CPremier_Click()

rs.MoveFirst
Text1.Text = rs!RMC
Text2.Text = rs!Container
Text3.Text = rs!Demandeur
Text4.Text = rs!Date
Text5.Text = rs!Quantité
Text6.Text = rs!Description_1
Text7.Text = rs!Defaut_1
Text8.Text = rs!Description_2
Text9.Text = rs!Defaut_2
Text10.Text = rs!Description_3
Text11.Text = rs!Defaut_3
Text12.Text = rs!Description_4
Text13.Text = rs!Defaut_4
Text14.Text = rs!Description_5
Text15.Text = rs!Defaut_5
Text16.Text = rs!Description_6
Text17.Text = rs!Defaut_6
Text18.Text = rs!Description_7
Text19.Text = rs!Defaut_7
Text20.Text = rs!Description_8
Text21.Text = rs!Defaut_8
Text22.Text = rs!Description_9
Text23.Text = rs!Defaut_9
Text24.Text = rs!Description_10
Text25.Text = rs!Defaut_10
Text26.Text = rs!N°
Text28.Text = rs!Description_11
Text29.Text = rs!Defaut_11
Text30.Text = rs!Description_12
Text31.Text = rs!Defaut_12
End Sub

Private Sub CQuitter_Click()
Unload Me

End Sub

Private Sub CSuivant_Click()
On Error Resume Next
rs.MoveNext
If rs.EOF = True Then
    rs.MoveLast
End If

Text1.Text = rs!RMC
Text2.Text = rs!Container
Text3.Text = rs!Demandeur
Text4.Text = rs!Date
Text5.Text = rs!Quantité
Text6.Text = rs!Description_1
Text7.Text = rs!Defaut_1
Text8.Text = rs!Description_2
Text9.Text = rs!Defaut_2
Text10.Text = rs!Description_3
Text11.Text = rs!Defaut_3
Text12.Text = rs!Description_4
Text13.Text = rs!Defaut_4
Text14.Text = rs!Description_5
Text15.Text = rs!Defaut_5
Text16.Text = rs!Description_6
Text17.Text = rs!Defaut_6
Text18.Text = rs!Description_7
Text19.Text = rs!Defaut_7
Text20.Text = rs!Description_8
Text21.Text = rs!Defaut_8
Text22.Text = rs!Description_9
Text23.Text = rs!Defaut_9
Text24.Text = rs!Description_10
Text25.Text = rs!Defaut_10
Text26.Text = rs!N°
Text28.Text = rs!Description_11
Text29.Text = rs!Defaut_11
Text30.Text = rs!Description_12
Text31.Text = rs!Defaut_12
End Sub

Private Sub Form_Load()
On Error GoTo Erreurs

    Dim strCommand As String
    Dim strDestination As String

    Set DicIcones = CreateObject("Scripting.Dictionary")
    With DicIcones
        .Add "xls", 3
        .Add "mdb", 19
     End With


    strCommand = CStr(Command)

    If strCommand = vbNullString Then
        strDestination = Left(Drive.Drive, 2)
    Else
        strDestination = Right(strCommand, Len(strCommand) - 1)
        strDestination = Left(strDestination, Len(strDestination) - 1)        If Right(strDestination, 1) "" Then strDestination Left(strDestination, Len(strDestination) - 1)
    End If
    BuildDriveTree (strDestination)
    Me.Show
    OuvDB_Click
    Text27.Text = rs.RecordCount
Exit Sub

Erreurs:
    MsgBox "Voici le chemin spécifié : " & strDestination
End Sub

Private Sub BuildDriveTree(p_strDestination As String)
'déclaration d'un objet Node
    Dim NodeX As Node
    Dim strArray() As String

    strArray = Split(p_strDestination, "")

    'Préparation du view tree
    TreeViewCtl.Nodes.Clear

    Set NodeX = TreeViewCtl.Nodes.Add(, , p_strDestination, strArray(UBound(strArray)), 1, 2)
    TreeViewCtl.Nodes.Item(p_strDestination).Selected = True
    Set NodeX = TreeViewCtl.SelectedItem

    'sablier
    Me.MousePointer = 11
    FindFilesAPI p_strDestination, NodeX

    NodeX.Expanded = True
    'pointeur de la souris
    Me.MousePointer = 0
    NodeX.Selected = True
End Sub

Sub FindFilesAPI(ByVal sPath As String, ByRef pNode As Node)
On Error GoTo Erreurs
    Dim DirName As String ' Nom du sous-dossiers
    Dim hSearch As Long ' Handle de recherche
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Integer
    Dim nNombreDir As Integer
    Dim tempNode As Node
    Dim tempNode2 As Node
    Dim lngNombreDeSousFichier As Long
    Dim objFSO As Scripting.FileSystemObject

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Met le bon format du chemin
    If Right(sPath, 1) <> "" Then
        sPath = sPath & ""
    End If

    ' Recherche les sous-dossiers
    Cont = True

    hSearch = FindFirstFile(sPath & "*", WFD)
    If TreeViewCtl.SelectedItem.children < 1 Then
        If hSearch <> INVALID_HANDLE_VALUE Then
            Do While Cont
                Set tempNode2 = TreeViewCtl.SelectedItem
                DirName = StripNulls(WFD.cFileName)
                If objFSO.FolderExists(sPath & DirName & "") And (DirName <> ".") And (DirName <> "..") Then
                    If objFSO.GetFolder(sPath & DirName & "").Attributes <> 22 Then
                        lngNombreDeSousFichier = objFSO.GetFolder(sPath & DirName & "").Files.Count
                        If lngNombreDeSousFichier <> 0 Then
                            Set tempNode = TreeViewCtl.Nodes.Add(, , sPath & DirName & "", DirName & " ( nombres de fichiers : " & lngNombreDeSousFichier & ")", 1, 2)
                        Else
                            Set tempNode = TreeViewCtl.Nodes.Add(, , sPath & DirName & "", DirName, 1, 2)
                        End If

                        'objFSO.Drives.Count
                        nNombreDir = objFSO.GetFolder(sPath & DirName & "").SubFolders.Count
                        If nNombreDir <> 0 Then
                            Set tempNode2 = TreeViewCtl.Nodes.Add(, , DirName & nNombreDir, , 1, 2)
                            Set tempNode2.Parent = tempNode
                        End If
                        Set tempNode.Parent = pNode
                    End If
                'End If
                End If
                Cont = FindNextFile(hSearch, WFD) 'Obtient le sous-dossier suivant.
            Loop
            Cont = FindClose(hSearch)
            pNode.Sorted = True
        End If
    End If
Exit Sub

Erreurs:
    MsgBox "Voici le chemin spécifié : " & sPath
End Sub

Private Sub BuildFileTree(p_strDestination As String)
On Error GoTo Erreurs

    'déclaration d'un objet Node
    Dim NodeX As Node
    Dim NodeParent As Node
    Dim strArray() As String
    Dim hSearch As Long
    Dim Cont As Long
    Dim FileName As String
    Dim strExtension As String
    Dim WFD As WIN32_FIND_DATA
    Dim lngIcone As Long
    Dim objFSO As Scripting.FileSystemObject

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Me.MousePointer = 11

    'Met le bon format du chemin
    If Right(p_strDestination, 1) <> "" Then p_strDestination = p_strDestination & ""

    strArray = Split(p_strDestination, "")
    'Préparation du view tree
    TreeViewFile.Nodes.Clear

    hSearch = FindFirstFile(p_strDestination & "*", WFD)
    Set NodeParent = TreeViewFile.Nodes.Add(, , "root", strArray(UBound(strArray) - 1), 21, 15)
    NodeParent.Expanded = True
    NodeParent.Selected = True
    Cont = 1
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
            FileName = StripNulls(WFD.cFileName)
                If objFSO.FileExists(p_strDestination & FileName) Then
                    strExtension = LCase(objFSO.GetExtensionName(p_strDestination & FileName))
                    If DicIcones.Exists(strExtension) Then
                        lngIcone = (DicIcones.Item(strExtension))
                    Else
                        lngIcone = 9
                    End If
                    Set NodeX = TreeViewFile.Nodes.Add(, , p_strDestination & FileName, FileName, lngIcone, lngIcone)
                    Set NodeX.Parent = NodeParent
                End If
            Cont = FindNextFile(hSearch, WFD) 'Obtient le sous-dossier suivant.
        Loop
    End If
    Cont = FindClose(hSearch)
    Me.MousePointer = 0
    TreeViewFile.SelectedItem.Sorted = True
Exit Sub

Erreurs:
    MsgBox "Voici le chemin spécifié : " & p_strDestination
End Sub

Function StripNulls(OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = Left$(OriginalStr, 1) & (Mid$(OriginalStr, 2))
If Err.Number = 35602 Then Exit Function
End Function

Private Sub Label1_Click()
CNouveau_Click
Text1.Text = TreeViewFile.SelectedItem
Set DocE = GetObject(TreeViewFile.SelectedItem.Key)

'DocE.sheets("Description").Select
Text2.Text = (DocE.worksheets(1).range("AK8"))
Text5.Text = (DocE.worksheets(1).range("AO12"))
Text3.Text = (DocE.worksheets(1).range("C8"))
Text4.Text = (DocE.worksheets(1).range("Y8"))
Text6.Text = (DocE.worksheets(1).range("E16"))
Text8.Text = (DocE.worksheets(1).range("E19"))
Text10.Text = (DocE.worksheets(1).range("E22"))
Text12.Text = (DocE.worksheets(1).range("E25"))
Text14.Text = (DocE.worksheets(1).range("E28"))
Text16.Text = (DocE.worksheets(1).range("E31"))
Text18.Text = (DocE.worksheets(1).range("E34"))
Text20.Text = (DocE.worksheets(1).range("E37"))
Text22.Text = (DocE.worksheets(1).range("E40"))
Text24.Text = (DocE.worksheets(1).range("E43"))
Text28.Text = (DocE.worksheets(1).range("E46"))
Text30.Text = (DocE.worksheets(1).range("E49"))
If Text6.Text = "" Then
Text6.Text = rs.Fields("Description_1").DefaultValue
End If
If Text8.Text = "" Then
Text8.Text = rs.Fields("Description_2").Value
End If
If Text10.Text = "" Then
Text10.Text = rs.Fields("Description_3").DefaultValue
End If
If Text12.Text = "" Then
Text12.Text = rs.Fields("Description_4").DefaultValue
End If
If Text14.Text = "" Then
Text14.Text = rs.Fields("Description_5").DefaultValue
End If
If Text16.Text = "" Then
Text16.Text = rs.Fields("Description_6").DefaultValue
End If
If Text18.Text = "" Then
Text18.Text = rs.Fields("Description_7").DefaultValue
End If
If Text20.Text = "" Then
Text20.Text = rs.Fields("Description_8").DefaultValue
End If
If Text22.Text = "" Then
Text22.Text = rs.Fields("Description_9").DefaultValue
End If
If Text24.Text = "" Then
Text24.Text = rs.Fields("Description_10").DefaultValue
End If
If Text28.Text = "" Then
Text28.Text = rs.Fields("Description_10").DefaultValue
End If
If Text30.Text = "" Then
Text30.Text = rs.Fields("Description_10").DefaultValue
End If

Text7.Text = (DocE.worksheets(1).range("AI16"))
Text9.Text = (DocE.worksheets(1).range("AI19"))
Text11.Text = (DocE.worksheets(1).range("AI22"))
Text13.Text = (DocE.worksheets(1).range("AI25"))
Text15.Text = (DocE.worksheets(1).range("AI28"))
Text17.Text = (DocE.worksheets(1).range("AI31"))
Text19.Text = (DocE.worksheets(1).range("AI34"))
Text21.Text = (DocE.worksheets(1).range("AI37"))
Text23.Text = (DocE.worksheets(1).range("AI40"))
Text25.Text = (DocE.worksheets(1).range("AI43"))
Text29.Text = (DocE.worksheets(1).range("AI46"))
Text31.Text = (DocE.worksheets(1).range("AI49"))

If Text7.Text = "" Then
Text7.Text = rs.Fields("Defaut_1").Value
End If
If Text9.Text = "" Then
Text9.Text = rs.Fields("Defaut_2").Value
End If
If Text11.Text = "" Then
Text11.Text = rs.Fields("Defaut_3").DefaultValue
End If
If Text13.Text = "" Then
Text13.Text = rs.Fields("Defaut_4").DefaultValue
End If
If Text15.Text = "" Then
Text15.Text = rs.Fields("Defaut_5").DefaultValue
End If
If Text17.Text = "" Then
Text17.Text = rs.Fields("Defaut_6").DefaultValue
End If
If Text19.Text = "" Then
Text19.Text = rs.Fields("Defaut_7").DefaultValue
End If
If Text21.Text = "" Then
Text21.Text = rs.Fields("Defaut_8").DefaultValue
End If
If Text23.Text = "" Then
Text23.Text = rs.Fields("Defaut_9").DefaultValue
End If
If Text25.Text = "" Then
Text25.Text = rs.Fields("Defaut_10").DefaultValue
End If
If Text28.Text = "" Then
Text28.Text = rs.Fields("Defaut_10").DefaultValue
End If
If Text29.Text = "" Then
Text29.Text = rs.Fields("Defaut_10").DefaultValue
End If
If Text30.Text = "" Then
Text30.Text = rs.Fields("Defaut_10").DefaultValue
End If
If Text31.Text = "" Then
Text31.Text = rs.Fields("Defaut_10").DefaultValue
End If

End Sub

Private Sub MAJ_Click()
rs.OpenRecordset

End Sub

Private Sub OuvDB_Click()

Set db = OpenDatabase(App.Path & "\RMC.mdb") 'Ouvre la base de données
Set rs = db.OpenRecordset("select * from RMC", dbOpenDynaset)
rs.MoveLast

'Affiche le premier enregistrement
Text1.Text = rs!RMC
Text2.Text = rs!Container
Text3.Text = rs!Demandeur
Text4.Text = rs!Date
Text5.Text = rs!Quantité
Text6.Text = rs!Description_1
Text7.Text = rs!Defaut_1
Text8.Text = rs!Description_2
Text9.Text = rs!Defaut_2
Text10.Text = rs!Description_3
Text11.Text = rs!Defaut_3
Text12.Text = rs!Description_4
Text13.Text = rs!Defaut_4
Text14.Text = rs!Description_5
Text15.Text = rs!Defaut_5
Text16.Text = rs!Description_6
Text17.Text = rs!Defaut_6
Text18.Text = rs!Description_7
Text19.Text = rs!Defaut_7
Text20.Text = rs!Description_8
Text21.Text = rs!Defaut_8
Text22.Text = rs!Description_9
Text23.Text = rs!Defaut_9
Text24.Text = rs!Description_10
Text25.Text = rs!Defaut_10
Text26.Text = rs!N°
Text28.Text = rs!Description_11
Text29.Text = rs!Defaut_11
Text30.Text = rs!Description_12
Text31.Text = rs!Defaut_12

OLE1.SetFocus
End Sub

Private Sub TreeViewCtl_NodeClick(ByVal pNode As ComctlLib.Node)

    'sablier
    Me.MousePointer = 11

    If pNode.children > 0 Then
        pNode.Expanded = True
    Else
        FindFilesAPI pNode.Key, pNode
    End If

    BuildFileTree (pNode.Key)

    'pointeur de la souris
    Me.MousePointer = 0
End Sub

Private Sub TreeViewCtl_Collapse(ByVal Node As ComctlLib.Node)
    Node.Expanded = False
End Sub

Private Sub TreeViewCtl_Expand(ByVal pNode As ComctlLib.Node)
    If pNode.Child = vbNullString Then
        TreeViewCtl.Nodes.Remove (pNode.Child.Index)
    End If

    'sablier
    Me.MousePointer = 11

    pNode.Selected = True
    FindFilesAPI pNode.Key, pNode

    'pointeur de la souris
    Me.MousePointer = 0
End Sub

Private Sub TreeViewFile_Click()
    Dim NodeX As Node
    Set NodeX = TreeViewFile.SelectedItem
    If Not (TreeViewFile.SelectedItem.Key = "root") Then

    OLE1.CreateLink (TreeViewFile.SelectedItem.Key)


    Else
        If NodeX.Expanded = False Then
            NodeX.Expanded = False
            NodeX.Selected = False
        Else
            NodeX.Expanded = True
            NodeX.Selected = True
        End If
    End If
End Sub

Réponse 5 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

11 mai 2007 à 21:17

J'ai trouvé ceci sur le site

<li>PublicSub MODIFIER(rs As ADODB.Recordset, cn As ADODB.Connection, sql AsString, Frm As Form, ParamArray NomChamp() AsVariant)
</li><li>    Dim i, compt AsInteger
</li><li>    rs.Open sql, cn, 1, 2
</li><li>        i = rs.Fields.Count
</li><li>        For compt = 0 To i - 1
</li><li>            rs.Fields(NomChamp(compt)) = Frm(NomChamp(compt)).Text
</li><li>        Next compt
</li><li>        rs.Update
</li><li>    rs.Close
</li><li>EndSub
Je vais voir ce que cela donne </li>

Réponse 6 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
11 mai 2007 à 21:32

Salut,

Boudiout...C'est toute la source que tu as posté là...
Pour faire la modife d'un enregistrement dans ta base, il te faut avant te positionner dessus...Une fois que tu es positionné dessus, tu utilises : Rs.update

A+
Exploreur

Réponse 7 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

11 mai 2007 à 21:33

pas concluant ce que j'ai trouvé....je suppose qu'il y a une fonction Edit et update quelque part sur recordset mais je vois pas pour le moment

Réponse 8 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
11 mai 2007 à 21:38

Salut,

Est-ce dans ta base tu as un clé primaire de définit ? Si, oui, utilises là pour te positionner sur ton enregistrement(en la recherchant dans la base soit pas une requête SQL, soit par l'instruction Find) et ensuite tu ton ton update(pas de addnew)...

A+
Exploreur

Réponse 9 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

11 mai 2007 à 21:40

Réponse acceptée !

Salut,

Boudiout...C'est toute la source que tu as posté là...
Pour faire la modife d'un enregistrement dans ta base, il te faut avant te positionner dessus...Une fois que tu es positionné dessus, tu utilises : Rs.update

A+
Exploreur

Et ben non, c'est une partie du code située sur une console....en fait les fichiers sont de type excel, visu en OLE etc etc mais çà c'est la partie "gestion" du prg....je me rends compte que je crée un monstre lol...

Merci à toi pour ton soutient Explorer...dès que j'ai la bonne solution je la reposte ici et je mettrais bien le prg en source après

Réponse 10 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

11 mai 2007 à 21:45

Oui j'ai une clé primaire (j'entends encore les cris de l'instructeur disant...on ne crée pas de base access sans clé primaire !!)
mwais....sur une base simple je la mets...sinon.....

Mais merci encore pour le soutient...là je vais m'aérer les neuronnes puis je m'y remettrais....@pluche

Réponse 11 / 13

thyphonfalcon

Messages postés: 41
Date d'inscription: vendredi 27 octobre 2006
Statut: Membre
Dernière intervention: 12 mai 2007

12 mai 2007 à 09:10

Salut,

Matinal à ce que je vois !

Et bien je me suis replongé dans mes notes d'autrefois et oui, je pense que je vais modifier le tout et opter pour le SQL.
Mon problème....je ne fais jamais de plan de projet....mais là, j'ai restructuré le tout cette nuit et je vais épurer ce code un peu
touffu...encore merci pour tout et bonne continuation

@pluche

Thyphon

Réponse 12 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
12 mai 2007 à 09:17

Salut,

Et bien, bonne prog à toi...Si tu as un problème et que je " peux " t'aider, je le ferai volontier...

A+
Exploreur

Réponse 13 / 13

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

14
12 mai 2007 à 11:11

Salut,

Je voulais te dire une dernier petit truc..du moins un "conseil" par rapport à ton code...Utilises plutôt des textbox indexés, c'est beaucoup plus pratique quand tu dois faire des boucles...

Cela n'engage que moi bien sur...

A+
Exploreur

Répondre Posez votre question

cs_Exploreur · Accepted Answer · 2007-05-12T08:50:53+0200

Salut,

Je serai toi, pour tout ce qui est de : Nouveau, modifier, supprimer, j'utiliserai des requêtes SQL que tu exécute via ton recordset et ta connection à la base, plus rapide à l'exécution...

Exemple de 3 requêtes SQL issue de ma source:

Requêtes Ajout :

        ' Préparation de la requête
         Sql = "INSERT INTO TaTable(Champ1,Champ2,Champ3,Champ4)" & _
               "Values('" & Txt_détails(1).Text & "','" & Txt_détails(2).Text & "','" & Txt_détails(3).Text & "', '" & Txt_détails(4).Text & "')"

Requêtes Modifier:

            ' Préparation Requête
            Sql = "UPDATE TaTable" & _
                  "SET Champ1= '" & Txt_détails(1).Text & "' , Champ2= '" & Txt_détails(2).Text & "'," & _
                  "Champ3= " & Txt_détails(3).Text & ", Champ4= '" & Txt_détails(4).Text & "' Where N° = " & Key & ";"

Ici Key représente ma clé primaire, qui me sert à me positionner sur mon enrgistrement à modifier...

Requêtes Supprimer:

        ' Préparation requête         Sql "DELETE FROM TaTableWHERE N° " & Key & ""

Ici Key représente ma clé primaire, qui me sert à me positionner sur mon enrgistrement à supprimer...

    ' Execution requête avec paramètre recordset via CnxAdo     RstAdo.CursorLocation = adUseClient
     RstAdo.Open Sql, CnxAdo, adOpenDynamic, adLockPessimistic

' ** RstAdo = Object Recordset
' ** CnxAdo = Object connection base

Voilà des exemples facile à modifier pour toi...

A+
Exploreur

Votre réponse