Discussion :

[Massigne]

Bonjour à tous j'ai une question tout bête mais qui m'enpêche d'avancer
voila j'ai trouver cette fonction sur internet

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Function CreateCustomerAdapter( _
ByVal connection As SqlConnection) As SqlDataAdapter
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
' Create the SelectCommand.
Dim command As SqlCommand = New SqlCommand( _
"SELECT * FROM Customers " & _
"WHERE Country = @Country AND City = @City", connection)
' Add the parameters for the SelectCommand.
command.Parameters.Add("@Country", SqlDbType.NVarChar, 15)
command.Parameters.Add("@City", SqlDbType.NVarChar, 15)
adapter.SelectCommand = command
' Create the InsertCommand.
command = New SqlCommand( _
"INSERT INTO Customers (CustomerID, CompanyName) " & _
"VALUES (@CustomerID, @CompanyName)", connection)
' Add the parameters for the InsertCommand.
command.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
command.Parameters.Add("@CompanyName", SqlDbType.NVarChar, 40, "CompanyName")
adapter.InsertCommand = command
' Create the UpdateCommand.
command = New SqlCommand( _
"UPDATE Customers SET CustomerID = @CustomerID, CompanyName = @CompanyName " & _
"WHERE CustomerID = @oldCustomerID", connection)
' Add the parameters for the UpdateCommand.
command.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, "CustomerID")
command.Parameters.Add("@CompanyName", SqlDbType.NVarChar, 40, "CompanyName")
Dim parameter As SqlParameter = command.Parameters.Add( _
"@oldCustomerID", SqlDbType.NChar, 5, "CustomerID")
parameter.SourceVersion = DataRowVersion.Original
adapter.UpdateCommand = command
' Create the DeleteCommand.
command = New SqlCommand( _
"DELETE FROM Customers WHERE CustomerID = @CustomerID", connection)
' Add the parameters for the DeleteCommand.
command.Parameters.Add( _
"@CustomerID", SqlDbType.NChar, 5, "CustomerID")
parameter.SourceVersion = DataRowVersion.Original
adapter.DeleteCommand = command
Return adapter
End Function

je voudrais donc à partir de cette fonction insérer les données, afficher les données ou les modifiés mais je ne sais comment faire pour appelé cette fonction merci de m'aider

[Invité]

Bonjour,
L'exemple que tu fournis fait référence à Sql server c'est bien de cela qu'il s'agit ?

[Massigne]

Oui elle fait référence à sql server

[Massigne]

Bonjour dysorthographie il s'agit bien de SQL server et je voudrais remplir mes données directement dans un datagridview

Ma question ici est de savoir comment appeler cette fonction dans un événement clic pour insérer les donnés dans la table par exemple

[wallace1]

Ma question ici est de savoir comment appeler cette fonction dans un événement clic pour insérer les donnés dans la table par exemple

En lisant quelque cours VBNET : http://plasserre.developpez.com/cours/vb-net/

[Massigne]

Merci wallace1 je me lance tout de suite

[Invité]

Bonjour,

Code :

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

1
2
3
4
VarCustomerID="12345"
Command.Parameters.Add("@CustomerID", SqlDbType.NChar, 5, VarCustomerID)
command.Parameters.Add("@Country", SqlDbType.NVarChar, 15,"France")

[Massigne]

ok merci dysorthographie j'essai et je te fait signe