Discussion :

[Batybaty]

Bonjour,
question de débutant.
Si j'écris :

Code :

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

1
2
3
4
5
'....
I = 5
da = New OleDbDataAdapter("Select * from lecons where [NumLecon]= 5", ConnexionOLE)
ds = New DataSet()
'....

ça marche
Si j'écris :

Code :

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

1
2
3
4
5
6
 
'....
I = 5
da = New OleDbDataAdapter("Select * from lecons where [NumLecon]= I", ConnexionOLE)
ds = New DataSet()
'....

ça ne marche pas ???????
Merci

[Sankasssss]

Bonsoir,

Voir les requêtes paramétrées :

Code :

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

1
2
3
4
5
6
7
        Using dc = New OleDbCommand("Select * from lecons where [NumLecon]= ?", ConnexionOLE)
            dc.Parameters.Add("I", OleDbType.Integer).Value = I
            Using da = New OleDbDataAdapter(dc)
                Dim ds = New DataSet()
                da.Fill(ds, "maTable")
            End Using
        End Using

[Batybaty]

Bonjour,
merci pour la réponse, cela marche pour afficher dans un DataGrid, maintenant, je voudrai écrire dan la propriété text d'une richTextBox le contenu d'un champ de "matable", je n'y parviens pas alors que ça le fait quand je prend le champ dans un e table nommée directement.
Merci de votre aide et si vous pouviez m'indiquer quelques livres de référence me permettant d'étudier tout ce qui tourne autour de l'accès aux BD, ce serait sympa.
Je suis un informaticien de l'ancienne époque (depuis 1970) et j'essaie après pas mal de temps d'arrêt de me remettre dans le bain. Les choses ont beaucoup évolué et c'est assez dur. Pour me remettre en course, j'essaie de porter sur Base de données et pour mon intérêt personnel une méthode d'apprentissage de l'anglais bien connue (My tailor is ....)
Merci pour les infos éventuelles

[Sankasssss]

Bonjour,
merci pour la réponse, cela marche pour afficher dans un DataGrid, maintenant, je voudrai écrire dan la propriété text d'une richTextBox le contenu d'un champ de "matable", je n'y parviens pas alors que ça le fait quand je prend le champ dans un e table nommée directement.

J'avoue avoir du mal à vous suivre, pourriez-vous mettre le code qui ne marche pas?

Merci de votre aide et si vous pouviez m'indiquer quelques livres de référence me permettant d'étudier tout ce qui tourne autour de l'accès aux BD, ce serait sympa.

Il y a de très bonnes ressources sur developpez.com grâce aux rédacteurs / traducteurs :
Dans la section cours VB.NET vous trouverez une section Base de données. On retrouve aussi l'excellent cours du Dr. Philippe Lasserre qui est le plus complet que j'aie vu pour VB.NET disponible gratuitement.

Il y a aussi la section FAQ VB.NET qui comprend une section ADO.NET qui vous sera utile.

Si vous avez envie d'aller plus loin et de confirmer vos connaissances, il y a la rubrique ADO.NET sur MSDN qui est très intéressante.

Une fois que vous aurez lu tout cela vous aurez de bonnes connaissances en ADO.NET, après il ne manque plus que la pratique...



P.S. : Les transactions sont vraiment importante pour l'intégrité de la base de données

[Batybaty]

Voici la partie de code concernée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'......
NumLecon = Str(CB_Lecons.Text)
Using dc = New OleDbCommand("Select * from lecons where [NumLecon]= ? order by [NumItem]", ConnexionOLE)
dc.Parameters.Add("I", OleDbType.Integer).Value = NumLecon
Using da = New OleDbDataAdapter(dc)
Dim ds = New DataSet()
da.Fill(ds, "mytable")
dv = ds.Tables("mytable").DefaultView
End Using
DataGridView1.DataSource = dv
dv.AllowEdit = True
RTB_Anglais.Text = ds.Tables("mytable").Rows(5).Item("Anglais")
'.......

Le DataGridView affiche bien tous les Items de la leçon.
Quand je veux afficher 1 item particulier dans le RTB, j'ai le message : "L'exception NullReferenceException n'a pas été gérée"
Merci pour les référence documentaires.

[Batybaty]

Hello,
à force de tattonner, j'ai fini par trouver, il me fallait mettre la ligne concernant la RTB à l'intérieur de la boucle du using da.
A+