VB.Net Ajout ADO Access

Salut à tous...
J'ai déjà fait un post de ce type mais j'ai recu aucune réponse donc je réessaye...

P.S. j'ai fouiller sur le site j'ai trouvé des code mais je ne sais pas le fond du code...

J,aimerais avoir un exemple... J'ai un DataGrid et je clique sur un ligne du DataGrid (Ligne sélectionnée) J'aimerais faire apparitre par exemple la cellules de la Colonne Volume.

Comment je peux faire cela ..

J'utilise un procédure pour faide la connection, le remplissage du DataGrid.....

Pouvez-vous me dire quoi utiliser... comment coder pour dire que je veux l'info d'une colonne du DataGrid et la faire afficher dans un textbox

Merci d'avance...

PrivateSub LoadData(ByVal sql AsString)

Dim Connection AsNew OleDbConnection
Dim Commande As OleDbCommand
Dim Data_Adapter As OleDbDataAdapter
Dim Data_Set AsNew DataSet
Dim Data_Table As DataTable
Dim Connection_String AsString

Try
Connection_String = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Recettes.mdb;"
Commande = New OleDbCommand(sql)
Data_Adapter = New OleDbDataAdapter(Commande)
Connection.ConnectionString = Connection_String
Commande.Connection = Connection
Data_Set = New DataSet
Data_Adapter.Fill(Data_Set, "Recettes")
Data_Table = Data_Set.Tables("Recettes")
DataGrid1.DataSource = Data_Table
Catch ex As Exception
MessageBox.Show("Erreur :" + ex.Message)
EndTry
EndSub

salut
si tu connais la colonne concernée dans ton datagrid :
MonTextBox.text = DataGrid1.CurrentRow.Cells(indexdetacolonne).Value

@+
greg38bj

Salut merci de ton aide....

J'ai essayé la ligne de code et ca crer un erreur.....
Premierement je n'ai pas la possibilité d'utiliser le CurrentRow
Je n'ai que CurrentCell et CurrentRowIndex
CurrentRow is not a member of 'System.Windows.Forms.DataGrid'

Deuxièmement:
De plus tu peux m'expliquer qu'est ce que je fais avec la variable "indexdetacolonne" ????

Comment je la gère qu'est ce qu'elle indique cette index..

merci de ton aide....

Ok merci sa ne génère pas d'erreur.. mais je ne sais pas tout....

Comment je fait pour que ca fonctionne ....

J'ai un erreur causé par le DataTable....
Variable 'Data_Table' is used before it has been assigned a value. A null reference exception could result at runtime. 

Voici le code que j'essais d'utiliser...

Merci de ton aide.....

PrivateSub cmdModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModifier.Click

Dim Connection AsNew OleDbConnection
Dim Commande As OleDbCommand
Dim Data_Adapter As OleDbDataAdapter
Dim Data_Set AsNew DataSet
Dim Data_Table As DataTable
Dim Connection_String AsString

Try
Connection_String = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Recettes.mdb;"
Commande = New OleDbCommand(DataGrid1.CurrentRowIndex)
Data_Adapter = New OleDbDataAdapter(Commande)
Connection.ConnectionString = Connection_StringCommande.Connection = Connection
Data_Set = New DataSet
Data_Adapter.Fill(Data_Set, "Recettes")
Data_Table = Data_Set.Tables("Recettes")
DataGrid1.DataSource = Data_Table
Catch ex As Exception
MessageBox.Show("Erreur :" + ex.Message)
EndTry

txtVolume.Text = Data_Table.Rows(DataGrid1.CurrentRowIndex).Item(1)

EndSub

re ...
c'est normal que ça ne fonctionne pas


PrivateSub cmdModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModifier.Click

Dim Connection AsNew OleDbConnection
Dim Commande As OleDbCommand
Dim Data_Adapter As OleDbDataAdapter
Dim Data_Set AsNew DataSet
Dim Connection_String AsString 
Dim Data_Table As DataTable
Try
Connection_String = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Recettes.mdb;"
Commande = New OleDbCommand(DataGrid1.CurrentRowIndex)
Data_Adapter = New OleDbDataAdapter(Commande)
Connection.ConnectionString = Connection_StringCommande.Connection = Connection
Data_Set = New DataSet
Data_Adapter.Fill(Data_Set, "Recettes")
Data_Table = Data_Set.Tables("Recettes")
DataGrid1.DataSource = Data_Table
txtVolume.Text = Data_Table.Rows(DataGrid1.CurrentRowIndex).Item(1)
Catch ex As Exception
MessageBox.Show("Erreur :" + ex.Message)
EndTry
EndSub

j'aurais fait comme ça, je pense que ça doit marcher

@+
greg38bj

Re..

Ca dit:

Erreur: Fill La Propriété Selectcommand.Connection n'a pas été initialisée

Ca bug sur cette ligne

Data_Adapter.Fill(Data_Set,

"Recettes")

merci encore

Désolé je commence avec ADO et je ne saisi pas tout encore mais ca s'en vient...

merci