Discussion :

[hamza.hassine.supcom]

Code :

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

1
2
3
4
5
6
7
8
Public Class Form1
    Public daoengine As New DAO.DBEngine
    Public mybd As DAO.Database
    Public employer As DAO.Recordset
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mybd = daoengine.OpenDatabase("‪C:\Users\User\Desktop\projet.mdb")
    End Sub
End Class

il m'affiche l'exception COMExeption n'a pas été gérée
j'arrive pas comprendre le problème

[Médinoc]

Géré, pas généré...
En gros, la connexion échoue, et tu n'as pas mis de try/catch (ou l'équivalent VB) pour choper l'erreur et afficher son message.

PS: VB6, VBA, VBS ou VB.Net?

[hamza.hassine.supcom]

svp chui débutant en vb (j'utilise visual studio 2013 et\ou visual basic 2010 , c'est la meme erreur)
c'est quoi l'erreur exactement?
est ce que vous pouvez me suggérer une coorection
à quoi ça sert try/catch ??
merci beaucoup

[Médinoc]

Tout ça c'est dans la doc... http://msdn.microsoft.com/en-us/library/fk6t46tz.aspx

Ce que je suggère, ce serait un truc de ce genre:

Code VB.Net :

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
Public Class Form1
	Public daoengine As DAO.DBEngine
	Public mybd As DAO.Database
	Public employer As DAO.Recordset
 
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		Try
			daoengine = New DAO.DBEngine
		Catch ex As System.Exception
			Dim msg As String = String.Format("Erreur de type {0} lors de la création du DBEngine: {1}", ex.GetType().Name, ex.Message)
			MessageBox.Show(Me, msg)
		End Try
		If daoengine IsNot Nothing Then
			Try
				mybd = daoengine.OpenDatabase("C:\Users\User\Desktop\projet.mdb")
			Catch ex As System.Exception
				Dim msg As String = String.Format("Erreur de type {0} lors de l'ouverture de la base de données: {1}", ex.GetType().Name, ex.Message)
				MessageBox.Show(Me, msg)
			End Try
		End If
	End Sub
End Class

Cela n'empêchera pas l'erreur, mais te donnera plus d'infos sur ce qui se passe.

Note: Je ne me rappelle plus par cœur de la syntaxe VB.Net, il est donc possible que ce que j'ai posté ne compile pas. Si tu ne peux pas corriger les erreurs de syntaxe, tu n'es pas encore assez bon en VB.Net pour toucher à des bases de données.

PS: Il y a un truc bizarre dans ta ligne mybd = daoengine.OpenDatabase("C:\Users\User\Desktop\projet.mdb"):
Quand je la copie-colle dans Notepad++, elle devient mybd = daoengine.OpenDatabase("?C:\Users\User\Desktop\projet.mdb"), suggérant qu'il y a un caractère bizarre invisible au début de ta chaîne de caractères.

[hamza.hassine.supcom]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class Form1
    Public daoengine As New DAO.DBEngine
    Public mybd As DAO.Database
    Public employer As DAO.Recordset
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            mybd = daoengine.OpenDatabase("‪C:\Users\User\Desktop\projet.accdb")
        Catch ex As System.Exception
        End Try
    End Sub
End Class

ça marché bien avec try/catch
mais s'il vous plait est ce que quelqu'un peut m'expliquer à quoi ça sert "Catch ex As System.Exception"?

[Médinoc]

Félicitations, tu viens de soigner le malade en cassant le thermomètre.
Tu es trop con pour apprendre l'informatique.

De plus, tu sembles tenter d'apprendre le VB.Net sans un vrai cours. Très mauvais. Trouve un cours de VB.Net ou apprends un autre langage où les cours ne manquent pas (comme C#).