Discussion :

[Igmar]

Bonjour,
J'aimerais lire le contenu d'un fichier .ini et récupéré certaine choses dans une liste déroulante dans un DataGridView qui est lié a une base de données.

Explications: Admettons le fichier .ini

Code :

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

1
2
3
4
[IO]
1=toto
2=tutu
3=tata

Je voudrai mettre "toto" "tutu" et "tata" dans la liste déroulante dans mon DGV. Le fichier est modifiable a souhait et je dois donc si quelqu'un veu rajouter

Code :

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

4=titi

le rajouter ds la liste déroulante....

Comment dois je procéder ?

Grâce a Môssieur Lasserre j'arrive a lire ce que le veut dans le fichier en utilisant GetPrivatefileString, mais c'est tout.

[Igmar]

Après un petite réflexion, je pense qu'il serait plus judicieux de rentrer les valeurs du fichier .ini directement dans la BDD, et qu'en suite j'utilise un DataSet et DataAdapter pour remplir le DGV.

Mais comment faire pour lire toutes les informations ?? Et si un utilisateur en rajoute ??? hum hum

[Igmar]

Péniblement j'avance, et maintenant je n ai plus qu'insérer les éléments dans la liste déroulante d'Access.
Avez vous une idée de comment faire ??
Pour l'instant je lis tous les éléments lié a mon étiquette (cRepertoire)

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
29
30
31
32
str = "Blocs FB"
                    Dim cKeyInit As String = "Init"
                    Dim cRubrique As String = str   '"Blocs FB""VisualBasic"
                    cRubrique = Mid(str, 7)
                    Dim cKeyDefaut As String = "Defaut"
                    Dim cKey As String = "1"           'Nom de la clé
                    Dim cRepertoire As String = Space(255)  'Variable récupérant la string 
                    Dim cIniFile As String = "C:\Documents and Settings\stagiaire1\Bureau\format.ini"   'Nom du fichier Ini
                    Dim istat As Integer
                    Dim SQLinsert, SQLadd, adr As String
                    'Appel de la fonction
                    istat = Get_Private_Profile_String(cRubrique, cKeyInit, "", cRepertoire, cIniFile)
                    If cRepertoire = "Auto" Then
                        istat = Get_Private_Profile_String(cRubrique, cKeyDefaut, "", cRepertoire, cIniFile)
                        cKey = Trim(cRepertoire)
                        istat = Get_Private_Profile_String(cRubrique, cKey, "", cRepertoire, cIniFile)
                        cRepertoire = cRepertoire.Replace("n", "")
                        Dim i, j, pe, taille As Integer
                        'allé voir ds fichier ini si auto si manu 
                        For i = 0 To Val(TextBox2.Text) - 1
                            pe = Val(TextBox1.Text) + i
                            taille = CType(pe, String).Length
                            adr = CType(pe, String)
                            For j = Val(taille) To 2
                                adr = "0" & adr
                            Next
                            SQLinsert = "INSERT INTO Liste_FB (FB_adr,FB_ID_format)" & _
                             "VALUES ('" & adr & "','" & cRepertoire & adr & "')"
                            cmd.CommandText = SQLinsert
                            cmd.Connection = cn
                            cmd.ExecuteNonQuery()
                        Next

Apres je pensais utiliser récuperer la colonne avec une requete et chargé les Items dans la DataSet. Mais j'y arrive pô ... Mais je cherche !!

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
                  ElseIf Trim(cRepertoire) = "Manu" Then
                        ' Dim SQLinsert As String

                        While cRepertoire <> ""
                            dsFB.Clear()
                            MsgBox("Dans Manu " & cRepertoire & "  " & cKey)
                            istat = Get_Private_Profile_String(cRubrique, cKey, "", cRepertoire, cIniFile)
                            cKey = CType(Val(cKey) + 1, String)
                            SQLadd = "SELECT FB_ID_format FROM  Liste_FB "
                            cmd.CommandText = SQLadd
                            cmd.Connection = cn
                            cmd.ExecuteNonQuery()
                            cbListeFB = New OleDbCommandBuilder(da1)
                            da1.SelectCommand = cmd
                            da1.Fill(dsFB, "ListeFB")
                            dtt = dsFB.Tables("ListeFB")
                            dtt.Rows(1).Item("FB_ID_format") = cRepertoire
                        End While
                        da1.Update(dsFB, "ListeFB")
                        dsFB.AcceptChanges()

                    Else
                        MsgBox("Dans l'else " & cRepertoire)
                    End If

Pour l'instant ca plante sur le da1.Update
La génération SQL dynamique de UpdateCommand n'est pas prise en charge pour un SelectCommand qui ne retourne pas des informations de colonne clé.

En plus je suis pas certain de la méthode ...