Converstion ADO VB6 vers ADO VB .netRésolu

Question

Bonjour,

N'ayant trouv&#233; de r&#233;ponse claire et surtout simple &#224; cette question, je me suis d&#233;cid&#233; &#224; tenter ma chance aupr&#232;s de vous.

Mon probl&#232;me est simple : je souhaite passer de VB6 &#224; VB .net.
J'ai &#233;crit tout un programme de donn&#233;es en VB6. Etant aussi un de mes programmes, j'y avais m&#233;lang&#233; des acc&#232;s aux bases Access en code et en objet ADO.

Ce que je souhaite, c'est transformer le code d'ouverture, gestion et fermeture de base en VB .net. Et l&#224; probl&#232;me : c'est trop compliqu&#233; &#224; comprendre sur des exemples tous faits et je n'arrive &#224; trouver le tutoriel qui va bien pour essayer de comprendre. Alors voil&#224;, est-ce que quelqu'un pourrait convertir le code VB6 dessous en VB .net avec de commentaires pour que je puisse en comprendre le principe ?

Merci beaucoup pour votre aide ! ;p

--- Code

Dim ConnectionBase As New ADODB.Connection
Dim Total As New ADODB.Recordset

_

    ConnectionBase.Provider = "Microsoft.jet.OLEDB.4.0"
    ConnectionBase.ConnectionString = App.Path & "\Compta.mdb"
    ConnectionBase.Open
    'Ouverture de la requ&#234;te SQL dans le recordset
    Total.Open "Select * from Total", ConnectionBase, adOpenDynamic, adLockReadOnly

   'Ci-dessous du code pour afficher la valeur d'un champ &#224; l'&#233;cran
    Set Label.DataSource = TableAccess
    Label.DataField = "ChampAccess"

   'Ci-dessous du code pour enregistrer la valeur de Label_2.Caption dans la base de donn&#233;es
   TablesAccess.Fields!ChampAccess = Label_2.Caption

Total.Close
ConnectionBase.Close

--- Fin code

cs_labout · Accepted Answer

une fois la connection etablie

dim rs as new adodb.recordset
Set rs = goCnx.Execute("select from table")

label1.caption=rs.fields("nom du champ").value
ou en vb.net
label1.text=rs.fields("nom du champ").value

Mais cela affiche le contenu du champ du premier enregistrement
@+

labout

cs_labout · Answer

Il n'y a pas de diff&#233;rence, il suffit d'ajouter la r&#233;f&#233;rence ADODB au projet
dans un module
Public gOcnx 
As 
New ADODB.Connection

function init


Function init() as boolean


Dim sConnectString As 
String

sConnectString = _
 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vb.net\Immo\Immo\Database\immo.mdb;Persist Security Info=False"

gOcnx.connection=sConnectstring
gOcnx.open
if gOcnx.state=1 then
  init=true
else
init=false
endif
end sub

Dans le moad de la form principaleif init=false then
msgbox "Erreur de connection"
endif
labout

pjouy · Answer

Merci pour l'info, mais apparament, mon probl&#232;me viendrait des lignes suivantes : 

    Set Label.DataSource = TableAccess
    Label.DataField = "ChampAccess
"

et

  TablesAccess.Fields!ChampAccess = Label_2.Text

En effet, je n'arrive pas &#224; afficher dans mon label les valeurs de mon champ Access...
Je pense que &#231;a doit commencer par Label.Text = ??????
La grande question est : que mettre &#224; la place du ?????

Merci encore pour votre aide

pjouy · Answer

Merci beaucoup !

Petite question bonus ;)  : sauriez-vous pourquoi, lorsque je demande d'ouvrir une autre fen&#234;tre, le programme s'arr&#234;te ?

Voici exactement ce qui se passe : 

Fenetre2.show  =>Affichage de la fen&#234;tre

End Sub  =>Arr&#234;t du programme

Merci encore de votre aide

cs_labout · Answer

Bien sur
Fenetre2.showdialog

labout

pjouy · Answer

Malheureusement, &#231;a n'a pas corrig&#233; le probl&#232;me. Si &#231;a peut vous aider, mon projet est un projet import&#233; de VB 6...

Converstion ADO VB6 vers ADO VB .net

6 réponses

Discussions similaires