Discussion :

[ygeeg]

Bonjour,


J'ai form où il y a un textbox1 qui doit contenir la valeur maximum + 1 .

La valeur max est le nombre maximum trouvé dans une colonne "numero" à la table "membre" de ma BDD SQL Server.


donc, j'ai fait comme suit :

Code :

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

1
2
3
4
 
Dim sdd1 As New SqlDataAdapter("select max(m.numero) from membre m", conx)
sdd1.Fill(ds, "req1")
TextBox1.Text = ds.Tables("req1").ToString

Si quelqu'un peut m'aider ou me filer un tutoriel ça sera sympa de sa part !

[tomlev]

donc, j'ai fait comme suit :

Code :

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

1
2
3
4
 
Dim sdd1 As New SqlDataAdapter("select max(m.numero) from membre m", conx)
sdd1.Fill(ds, "req1")
TextBox1.Text = ds.Tables("req1").ToString

Pourquoi utiliser un DataSet et un DataAdapter pour récupérer juste une valeur ?

Il suffit d'utiliser DbCommand.ExecuteScalar :

Code :

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

1
2
Dim command As New SqlCommand("select max(m.numero) from membre m", conx)
TextBox1.Text = command.ExecuteScalar().ToString()

[ygeeg]

Merci pour le temps que vous avez mis à me répondre

Il suffit d'utiliser DbCommand.ExecuteScalar :

Code :

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

1
2
Dim command As New SqlCommand("select max(m.numero) from membre m", conx)
TextBox1.Text = command.ExecuteScalar().ToString()

Merci, c'est en mode connecté, non?
C'est quoi l'équivalent en mode déconnecté ?

@sebnantes : Merci pour le tuto, il est bien surtout que je ne sais pas beaucoup sur le mode connecté, il va être d'une grande utilité pour moi

[tomlev]

Merci, c'est en mode connecté, non?
C'est quoi l'équivalent en mode déconnecté ?

Dans ton code aussi tu es en mode connecté... le mode déconnecté, c'est si tu n'utilises QUE le dataset, sans utiliser la connexion à la base de données. Là tu utilises un DataAdapter, donc la connexion à la base...

Si tu as déjà tes données dans une table de ton DataSet, tu peux obtenir la valeur recherchée comme ça :

Code :

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

1
2
3
4
5
Dim maxNumero As Integer = 1
Dim result As Object = ds.Tables("membre").Compute("MAX(numero) + 1", Nothing)
If result <> DBNull.Value Then
    maxNumero = CInt(result)
End If

Et là c'est effectivement du mode déconnecté, tu travailles sur les données que tu as déjà en mémoire. Si tu n'as pas les données en mémoire, tu ne peux pas travailler en déconnecté...

[ygeeg]

Code :

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

1
2
3
4
5
Dim maxNumero As Integer = 1
Dim result As Object = ds.Tables("membre").Compute("MAX(numero) + 1", Nothing)
If result <> DBNull.Value Then
    maxNumero = CInt(result)
End If

Merci, ça marche nickel.

J'ai lu le tutoriel qui m'a fournit Mr. sebnantes (mode connecté) et apparemment c'est de nouveau pour moi.


Juste une petite question qui peut m'aider peut être à faire la différence entre les deux modes connecté et déconnecté:

Dans mes codes, je n'utilise pas les deux méthodes de connexion Open et Close, est ce que cela veut dire que j'utilise le mode déconnecté ? Je ne fais que déclarer la chaine de connexion dans un module :

Code :

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

Public conx As New SqlConnection("data source=..;initial catalog=...;integrated security=sspi")

Je déclare aussi dans le module un DataRow, DataSet, SQLCommandBuilder , des SqlDataAdapter pour chaque table de ma BDD, puis je les utilise pour mes opérations d'ajout, update et delete..

Merci encore pour votre patience pour répondre à mes quetions

[tomlev]

Dans mes codes, je n'utilise pas les deux méthodes de connexion Open et Close, est ce que cela veut dire que j'utilise le mode déconnecté ?

Le SqlDataAdapter ouvre la connexion si elle n'est pas déjà ouverte.

Mode connecté = requêtes directes sur la base de données
Mode déconnecté = travail sur un DataSet

Le DataAdapter permet de "faire le lien" entre les deux : il se connecte à la base pour remplir le DataSet, et mettre à jour la base en fonction des changements effectués dans le DataSet

[sebnantes]

En gros, tu passes par un DataSet ? Le mieux serait que tu passes par IdataReader, c'est plus simple pour récupérer une valeur.

Donc voilà pour le tuto dessus : http://dotnet.developpez.com/articles/ado1/vbnet/

Et sinon pour ton code ce serait un truc du genre :

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
 
Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" & "Initial Catalog=''le nom de ta bas''"
 
try
 
     Dim oConnection As SqlConnection = New SqlConnection(strConnexion)
     oConnection.Open()
     Dim req as String = "select max(m.numero) as Max_num from membre m"
     Dim oCommand As New SqlCommand(req, oConnection)
     Dim reader As IdataReader = oCommand.executeReader()
 
 
     If reader.read() Then TextBox1.Text = reader("Max_num")
 
     oConnection.close()
Catch e As Exception 
     MsgBox(e.Message)
End try

Corrigez moi si j'ai oublié un truc ^^

[sebnantes]

Oups, il y a plus simple...je laisse ma solution ou pas ?