Bonjour,
Je suis en Bts IG et je n'arrive pas a me conecter a ma bade de donnée access
j'utilise VB.Net 2005 express
VB me dit que New ADODB.Connection est de type "non definie"or je ne voi pas où est le probleme
Voici mon code:
Private
Sub RempComboTypeMatiere()
'----------------------------------------------------------------------'
'Remplissage de la comboBox TypeMatiere
'----------------------------------------------------------------------'
'Declaration
'Variables
Dim connex
As
New ADODB.Connection
Dim ReqListeTypeMat
As
String
Dim JeListeTypeMat
As
New ADODB.Recordset
'DEBUT
'{Se connecter à la base de donnée}connex.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
"C:\Documents and Settings\User\Bureau\Guillaume\GestionStock1.mdb"connex.Open()
'{Requette SQL pour comper le nombre de participants}ReqListeTypeMat =
"SELECT [MATIERES TYPE].MatTypeCode, [MATIERES TYPE].MatTypeDesc" & _
"FROM [MATIERES TYPE]" & _
"ORDER BY [MATIERES TYPE].MatTypeDesc; "
'{Execution de la requette et recuperation du resultat}JeListeTypeMat.DataSource = connex.Execute(ReqListeTypeMat)
While JeListeTypeMat.readCbTypeMat.Items.Add(JeListeTypeMat.getstring(0))
End
While
'{Fermeture du jeux d enregistrement}JeListeTypeMat.Close()
'{Fermeture de la connexion a la Bdd}connex.Close()
'FIN
End
Sub
MERCI DE VOTRE AIDE