Fichier de la base de donnéé .accdb manquant
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:
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