Correspondance entre VB6/VB12

Version imprimable

Bonjour,
j'ai eu l'habitude de programmer des applis dans VB6 et maintenant que je veux me mettre à VB12 j'ai des difficultés sur les correspondances avec les enregistrements. j'utilisais les recordset de cette façon:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    With EqpRst
        If .State = 1 Then .Close
        .Open "Equipement", Ocnn, adOpenKeyset, adLockOptimistic, adCmdTable
        .AddNew
        !code_eqpt = code_eqp.Text
        !denomination = libelle.Text
        !classe = classe.Text
        !sous_classe = sousclasse.Text
        !Type = type_eqp.Text
        !etat = etat.Text
        !date_fab = date_fab.Text
        !date_mes = date_mes.Text
        !num_serie = num_serie.Text
        !model = model.Text
        !puissance_installe = puissance.Text
        !intensite = intensite.Text
        !marque = marque.Text
        !centrale = frmmenu.lblstatut.Caption
        .Update
        MsgBox libelle.Text & " enregistré", vbInformation, App.Title
    End With

j'aimerais avoir la correspondance dans VB12

pour passer de vb6 à vb.net il faut tout oublier et tout réapprendre, malgré des mots clés similaires ce n'est pas la même méthode de codage

en .net il n'y a plus les recordset, à la place il faut utiliser l'objet dbcommand et un dbdatareader en lecture
pour access : system.data.oledb.*, pour sql server : system.data.sqlclient.* etc...

en fait ouverture de connexion (objet dbconnection)
puis création d'une requete (dbcommand, lui donner l'objet connection et la requete)

pour un insert :
Code:

1 2 3 4 dbcommand.commandtext = "insert into table (ch1, ch2) values (@ch1, @ch2)" dbcommand.parameters.Add("@ch1",untextbox.text) ' pas sur de la syntaxe dbcommand.parameters.Add("@ch2",untextbox.text) dbcommand.executenonquery
pour une lecture (select)
Code:

1 2 3 4 5 6 dim reader = dbcommand.executereader while reader.read ' équivalent à .next je crois, ca passe à la ligne d'après untextbox.text = reader.item("nom colonne").tostring dtpicker.value = directcast(reader.item("nom colonne"),date) end while
je te conseille de lire ce tuto avant de coder :
http://plasserre.developpez.com/cours/vb-net/
(c'est un peu long à lire mais on y gagne du temps)

19/07/2014, 20h58
Invité

Salut,

Pour ce qui est connexion:
Exemples de code ADO.NET - Microsoft
21/07/2014, 11h29
rv26t

Bonjour,

En complément,
sur le site dans les cours et tuto plusieurs aborde ADO (notammant Utiliser ADO.NET, ADO.NET : les objet Connection, Command et Datareader, ADO.NET : les objets DataAdapter et Dataset)