connection à une base access

Question

Je débute en VB 2005
j'ai configuré à l'aide de l'assistant de connection à une base de donnée, une connection sur une base access(nomée "essais.mdb").
Tout se passe très simplement avec configuration automatique 
-d'un dataset ("essaisdataset")
-d'un dataadapter ( "admintableadapter")
-du bindingsource ("adminbindingsource")
-et du binding navigator('adminbindingnavigator")


Tout cela est très facile et , sans une ligne de code....seulement voilà, je voudrais mois même configurer, par le code ,ma connection....pour pouvoir la stocker dans une variable et la conserver en base de registre par ex.
j'ai essayé dans Form_Load:

Dim connection 
As OleDbConnection
connection = 
New OleDbConnection
connection.ConnectionString = 
"Provider=microsoft.jet.oledb.4.0;Data source=d:\essais.mdb"
Dim EssaisDataSet 
As
New DataSet

Dim AdminTableAdapte 
As
New OleDbDataAdapter(
"SELECT*FROM admin", connection)

mais sans résultats.....la connection préconfigurée par l'assistant demeure est n'est pas remplacée.
Comment puis-je faire? Merci pour vos suggestions+++

cs_GeorgesDeLajungle · Answer

Bonjour,
Pour ta connexion, ça m'a l'air bon sauf ta requête SQL où il manque les espaces entre SELECT et * et FROM,  ensuite, il faut que tu utilises ton data adapter pour quelque chose parce que là, il n'est relié à rien, de même à quoi sert ton dataset ?
Si tu veux récupérer ta table admin et l'afficher dans un datagridview par exemple, essaie de faire :

              dim command as string = "SELECT * FROM admin"
            Dim connection As System.Data.OleDb.OleDbConnection
            Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\essais.mdb"
            Dim table As New System.Data.DataTable

            connection = New System.Data.OleDb.OleDbConnection(connectionstring)

            Dim admins As System.Data.OleDb.OleDbDataAdapter
            admins = New System.Data.OleDb.OleDbDataAdapter(command, connection)

            admins.Fill(table)

        dim bindingsource1 as new bindingsource

        bindingsource1.datasource = table

            datagridview1.datasource = bindingsource1

Ce code suppose que sur ta form il existe un tableau nommé datagridview1
(tu peux remplacer le datatable par un dataset, regarde la doc de la fonction Fill de dataadapter)

Eric

cs_arpege · Answer

dataadapter et data set sont préconfigurés automatiquement par l'assistant............ils alimentent le databinding (et datagridview)et autre bindingnavigator.........qui sont tous "posés" sur la form par l'assistant......
En fait, j'aimerais conserver cette facilité qu'offre l'assistant tout en gardant la possibilité de reconfigurer ma connection par du code adapté.(j'ai decouvert que mes paramètres de connection sont conservés dans my.settings.essaisconnection mais qui malheureusement est en lecture seul..........

Connection à une base access

2 réponses

Votre réponse

Discussions similaires