Discussion :

[mohcheb90]

Bonjour
j'ai des modules en vb.net pas en ADO.net et je veux les transformer en ADO.NET comment puis je faire svp?

[bobby51]

ADO.net n'est pas un langage !!
c'est un ensemble de "classe" permettant la manipulation des données sous les langages .net
que veut tu modifier dans tes modules?

[mohcheb90]

par exemple j'ai un morceau de code comme ça:

Code :

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
23
24
Dim rs As New ADODB.Recordset
Dim rsbase As New ADODB.Recordset
 
Try
Select Case provenance
Case "auteur"
rs.Open("SELECT * FROM aut_notes", Depart.ConnectionBd, ADOR.CursorTypeEnum.adOpenDynamic, ADOR.LockTypeEnum.adLockOptimistic)
rs.AddNew()
rs.Fields("no_auteur").Value = noauteur
rs.Fields("nom_utilisateur").Value = Depart.nomUtil
Case "article"
rs.Open("SELECT * FROM art_notes", Depart.ConnectionBd, ADOR.CursorTypeEnum.adOpenDynamic, ADOR.LockTypeEnum.adLockOptimistic)
rs.AddNew()
rs.Fields("no_article").Value = noauteur
rs.Fields("nom_utilisateur").Value = Depart.nomUtil
 
End Select
With Me
rs.Fields("date").Value = .DTdate.Value
rs.Fields("commentaire").Value = .Tcommentaire.Text
'-----------------------------------
End With
rs.Update()
rs.Close() "

merci

[Philippe Vialatte]

Salut,

jete un œil aux différents tutoriels disponibles sur le site de DVP...


http://dotnet.developpez.com/cours/?...bnet#sqlservvb

-> http://dotnet.developpez.com/cours/ado.net/

[mohcheb90]

En fait j'ai lu un peu sur ce lien j'ai essayé un truc mé il me donne l'erreur suivante:" ExecuteReader néssicite une connexion ouverte et disponible "

[bobby51]

il faut que tu ouvre la connexion a ta base de donnée, dans les tutos ca doit etre marqué comment faire

[mohcheb90]

j'utilise cette commande là:

Code :

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

1
2
Dim conn As New OleDb.OleDbConnection(Depart.ConnectionBd.ConnectionString)
conn.Open()

[mohcheb90]

Bonjour j'ai ce code là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
rs.Open("SELECT * FROM aut_notes",Depart.ConnectionBd,ADOR.CursorTypeEnum.adOpenDynamic,ADOR.LockTypeEnum.adLockOptimistic)
 
rs.AddNew()
rs.Fields("no_auteur").Value = noauteur
rs.Fields("nom_utilisateur").Value = Depart.nomUtil
rs.Fields("date").Value = .DTdate.Value
rs.Fields("commentaire").Value = .Tcommentaire.Text
 
est ce que j''ai le droit de la transformer comme sa dans une requete :
 
reader = FctSGBD.Execution_Requete("INSERT INTO aut_notes (no_auteur,nom_utilisateur,date,commentaire) Values (' noauteur', '" & Depart.nomUtil & "','" & DTdate.Value & "', '" & Tcommentaire.Text & "')")

Merci bcp