extraire un fichierRésolu

Question

bonjour,
la question a deja etait posé mais je ne trouve pas de reponse.

j'aimerai extraire un fichier mdb depuis mon application vb.net.

quand je l'ajoute dans les ressouces il veut absolument creer un dataset.

Comment faire pour ajouter mon fichier .mdb puis l'extraire en local une fois application installer?

Merci

scromania · Accepted Answer

c'est bon merci comme même
  Dim nomFichier As String
            Dim cheminPlusFichier As String
            nomFichier = "\compte.mdb"
            cheminPlusFichier = My.Application.Info.DirectoryPath & nomFichier
            File.WriteAllBytes(cheminPlusFichier, My.Resources.Compte())
            My.Settings.EmplacementBdd = My.Application.Info.DirectoryPath & nomFichier

Mayzz · Answer

scromania> C'est que tu ne l'a pas ajouté aux ressources de l'application mais simplement au projet.

Si tu souhaite ajouter un fichier aux ressources de ton exécutable, vas dans les propriétés de ton projet à l'onglet 'ressources' et ajoute une ressource de type 'fichier'.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

scromania · Answer

effectivement comme sa il fonctionne . 
Car quand je veux faire la connexion a la bdd il y a une erreur
  sBase = My.Resources.Compte.ToString
        ConnectBase(sBase)
  Public Sub ConnectBase(ByVal sBase As String)
        Dim strConnect As String

        strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;"
        strConnect &= "User Id=Admin;Password=;"
        strConnect &= "Data Source=" & sBase

        cnx1 = New OleDb.OleDbConnection(strConnect)
        Try
            cnx1.Open()
        Catch ex As Exception
            MsgBox("Base de données introuvable." & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Erreur de chargement")
        End Try
    End Sub
Maintenant s'il te plait comment pourais-je l'exporter de exe.
pour palier l'erreur?.

merci

Extraire un fichier

3 réponses

Votre réponse

Discussions similaires