Discussion :

[roleto]

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 :

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
    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

[Pol63]

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 :

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

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 :

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

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)

[Invité]

Salut,

Pour ce qui est connexion:
Exemples de code ADO.NET - Microsoft

[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)