Bonjour,
J'ai créer une application en vb qui permet de faire une recherche sur un champs d'une base de donnée access...
tout fonctionne meme après la compilation
Seul hic a la publication du .exe et du setup, le programme bug en prevenant que le fichier de la base de donnee .accdb n'est pas trouvé.
Si je le copie à l'endroit indique ca refonctionne

voici à quoi ressemble mon code...
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO*: cette ligne de code charge les données dans la table 'NewDataSet.table. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        txt.Select()
 
        Me.tableTableAdapter.Fill(Me.NewDataSet.table')
        Web.Navigate("C:\\new\pub.html")
        pb.Maximum = Me.NewDataSet.table.Rows.Count()
    End Sub
 
    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        Dim taille As Integer
        Dim a As String
        Dim b As String
        Dim i As Integer
        Dim j As Integer
        i = 0
        j = Me.NewDataSet.table.Rows.Count
 
        While (i < j)
            pb.Value = i
 
            a = Me.NewDataSet.table.Rows(i).Item(1)
            If a = txt.Text Then
                b = Me.NewDataSet.table.Rows(i).Item(2)
            End If
            i = i + 1
        End While
        pb.Value = 0
 
 
        taille = Len(b) / 7
 
        Dim table As Object
        table = Split(b, ";")
        Debug.Print(table(0))
 
 
 
 
        If b = "" Then
            b = "Pas de résultats"
        End If
 
        rslt.Text = b
        txt.Select()
    End Sub
 
 
    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        End
 
    End Sub
End Class
En attndant votre réponse Merci à tous