Discussion :

[Robert222]

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

[spamitovic]

Peut-être que je n'ai pas très bien compris ta question ou bien je n'ai pas vu la ligne contenant la liaison de ton programme au fichier de base de données .accdb

Bon pour ton fichier de base de données, copie le dans le répertoire bin\debug