adaptation pour ADO.NET

Version imprimable

17/06/2008, 15h37
mohcheb90

adaptation pour ADO.NET

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?
18/06/2008, 08h01
bobby51

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

adaptation des modules en ADO.NET

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

Code:

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

18/06/2008, 09h51
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/
18/06/2008, 12h17
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 "
18/06/2008, 12h23
bobby51

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

j'utilise cette commande là:

Code:

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

probléme d'une requete sur vb.net

Bonjour j'ai ce code là :

Code:

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