1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| ' Exemple d'utilisation d'un DataSet en mise à jour
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Namespace ExempleAdoNetCSharp
'/ Description résumée de SqlDataSet.
Public Class SqlDataSet
Public Shared Sub Main()
Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" + "Initial Catalog=Northwind"
Dim strRequete As String = "SELECT * FROM Categories ORDER BY CategoryID"
Try
Dim oConnection As New SqlConnection(strConnexion)
oConnection.Open()
' Chargement de la liste des catégories dans oDataSet
Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, oConnection)
Dim oDataSet As New DataSet("Categories")
oSqlDataAdapter.Fill(oDataSet, "Categories")
' Affichage du contenu de oDataSet avant insertion de données
Console.WriteLine(" *** Liste des catégories avant la mise à jour *** ")
Dim i As Integer
For i = 0 To (oDataSet.Tables("Categories").Rows.Count) - 1
Console.WriteLine(ControlChars.Tab + "{0}" + ControlChars.Tab + "{1}", oDataSet.Tables("Categories").Rows(i)(0).ToString(), oDataSet.Tables("Categories").Rows(i)(1).ToString())
Next i
Console.WriteLine(ControlChars.Lf)
' Remplissage de la commande InsetCommand
oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO Categories(CategoryName, Description, Picture) Values(@CategoryName,@Description,@Picture)", oConnection)
oSqlDataAdapter.InsertCommand.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15, "CategoryName")
oSqlDataAdapter.InsertCommand.Parameters.Add("@Description", SqlDbType.NText, 16, "Description")
oSqlDataAdapter.InsertCommand.Parameters.Add("@Picture", SqlDbType.Image, 16, "Picture")
Dim oDataRow As DataRow
Dim byteArray As Byte () = {&H0, &H0}
oDataRow = oDataSet.Tables("Categories").NewRow()
oDataRow("CategoryName") = "Wine"
oDataRow("Description") = "French Wine"
oDataRow("Picture") = byteArray
oDataSet.Tables("Categories").Rows.Add(oDataRow)
' Mise à jour de la source de données à partir du DataSet
oSqlDataAdapter.Update(oDataSet, "Categories")
' Rechargement des données de la source mise à jour
oDataSet.Clear()
oSqlDataAdapter.Fill(oDataSet, "Categories")
' Affichage du contenu de oDataSet après insertion d'une ligne de données
Console.WriteLine(" *** Liste des catégories après la mise à jour *** ")
Dim i As Integer
For i = 0 To (oDataSet.Tables("Categories").Rows.Count) - 1
Console.WriteLine(ControlChars.Tab + "{0}" + ControlChars.Tab + "{1}", oDataSet.Tables("Categories").Rows(i)(0).ToString(), oDataSet.Tables("Categories").Rows(i)(1).ToString())
Next i
oConnection.Close()
Catch e As Exception
Console.WriteLine(("L'erreur suivante a été rencontrée :" + e.Message))
End Try
End Sub 'Main
End Class 'SqlDataSet
End Namespace 'ExempleAdoNetCSharp |
[ADO.NET] questions à propos du mode déconnecté
Répondre avec citation
Envoyé par 007007
Pas de questions techniques par MP ! Le forum est là pour ça...
Tutoriels : 
Partager