Vérifier une requete sql en vb.net

Bonjour,

Je veux savoir comment en vb.net vérifier le resultat de ma requete sql :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim c_Cnn As ADODB.Connection     Private Sub frm_Stat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c_Cnn = New ADODB.Connection c_Cnn.ConnectionString = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False; Initial Catalog=Gestion_Informatique;Data Source=FAB\instancesql" c_Cnn.Open()         Dim l_Rds As ADODB.RecordsetClass l_Rds = New ADODB.RecordsetClass l_Rds.Open("select SUM(Duree) As TotalSaFM from Appels where NomPrenomCIS = 'CIS' and NomSociete = 'Societe'", c_Cnn) tbx_SaFM.Text = l_Rds.Fields("TotalSaFM").Value

---

Je demande la duree totale par societe pour un CIS et je l'envoi dans mon textbox, mais le problème est qu'un cis nest pas forcement intervenu dans cette societe et donc ma somme est nulle, j'aimerais avant d'envoyer le résultat savoir si ma somme est nulle car si c'est le cas ca me plante tout.

Merci.

Bonjour,

Pourquoi tu ne ferais pas quequechose du genre :

Code:

---

1 2 3 4 5

if Not (l_Rds.Fields("TotalSaFM").Value = 0) then tbx_SaFM.Text = l_Rds.Fields("TotalSaFM").Value else tbx_SaFM.Text = "Pas de CIS" end if

---

P.S: Penses à mettre ton code entre les balises [code.] et [/code]

Merci de ta réponse mais ca ne fonctionne pas. Je n'ai rien dans ma base de donnée donc il devrais afficher "pas de cis" dans tous les textbox. mais quand je lance la requete visual studio me dit :

Citation:

---

L'opérateur '=' n'est pas défini pour type 'DBNULL' et type 'Integer'.

---

Merci

Il faut que tu adaptes, j'ai écrit ça sans vérifier la syntaxe, comme un algo...

Code:

---

1 2 3 4 5

if (l_Rds.Fields("TotalSaFM").Value > 0) then tbx_SaFM.Text = l_Rds.Fields("TotalSaFM").Value else tbx_SaFM.Text = "Pas de CIS" end if

---

Code:

---

1 2 3 4 5

if Not (l_Rds.Fields("TotalSaFM").Value is null) then tbx_SaFM.Text = l_Rds.Fields("TotalSaFM").Value else tbx_SaFM.Text = "Pas de CIS" end if

---

Désolé de faire le boulet, je connais pas trop le language et quand je met is null ca me le souligne en bleu il le prends pas. Et quand je met < ca me fait pareil que egual.

Si tu prends ton code du début et que tu l'exécute en mode debuggage avec un point d'arret sur

Code:

---

tbx_SaFM.Text = l_Rds.Fields("TotalSaFM).Value

---

Qu'est ce qu'il te met comme valeurs ?

Sinon essaye d'utiliser ce code, en fait j'utilise les DataReader à la place des RecordSet.

Code:

---

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

Dim myConnection As Data.SqlClient.SqlConnection Dim myCommand As Data.SqlClient.SqlCommand Dim myDataReader As Data.SqlClient.SqlDataReader Dim Sum_SaFm As Integer   myConnection = New Data.SqlClient.SqlConnection myConnection.ConnectionString = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False; Initial Catalog=Gestion_Informatique;Data Source=FAB\instancesql" myCommand = New Data.SqlClient.SqlCommand("select SUM(Duree) As TotalSaFM from Appels where NomPrenomCIS = @NomPrenomCIS and NomSociete = @NomSociete", myConnection)   myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@NomPrenomCIS", Data.SqlDbType.NVarChar, 50)) myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@NomSociete ", Data.SqlDbType.NVarChar, 50))   myCommand.Parameters("@NomPrenomCIS").Value = "CIS" myCommand.Parameters("@NomSociete").Value = "Societe"   myConnection.Open() myDataReader = myCommand.ExecuteReader() Do Until (Not myDataReader.Read()) Sum_SaFm = myDataReader("TotalSaFM") Loop myDataReader.Close() myConnection.Close() If (Sum_SaFm > 0) Then tbx_SaFM.Text = Sum_SaFm.ToString() Else tbx_SaFM.Text = "Pas de CIS" End If

---

Dans

Code:

---

tbx_SaFM.Text

---

il me met "".

C'est normal lors du debuggage, car tu n'assignes pas encore de valeur à tbx_SaFM.Text. Regarde plutôt les autres variables.
As-tu essayé de mettre en place ce que je t'ai envoyé (en l'adaptant bien sûr) ?

ouai j'ai essayer de mettre ce que tu m'a donné, mais il ne veut pas de ma chaine de connexion, je ne sais pas quoi mettre à la place. il me dit que le mot clé provider n'est pas correct.

Mais dans tous les cas j'aimerais que mes connexions et mes requetes ne changent pas de syntaxe car dans toute l'appli c'est avec adodb et j'aimerais que mes collègues puissent la modifier facilement.

merci

Tu utilises quoi pour developper ?
Si c'est Visual Studio, je te conseille de créer une chaine de connection dans ton web.config :

Code:

---

1 2	<addname="ConnectTO_DB"connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Tutorial.MDF;Integrated Security=True;User Instance=True"providerName="System.Data.SqlClient"/>

---

Voici un exemple de ta chaine de connection, que tu dois adapter à ton cas. Que tu appelles avec la méthode :

Code:

---

1 2	myConnection.ConnectionString = ConfigurationManager.ConnectionStrings("ConnectTO_DB").ConnectionString

---

Sinon pour ta chaine de connection, je ne connais pas la syntaxe exacte. Il faut que tu regardes dans des codes sources.

Merci pour ton aide en fait c'etais tout con, j'ai trouvé, il fallais que je rajoute :

Code:

---

.ToString

---

à la fin de mon :

Code:

---

tbx_SaFM.Text = l_Rds.Fields("TotalSaFM").Value

---

Ok d'accord, n'oublie pas de mettre la discussion en résolu.

Pour ce qui est de ta requête, essaye de voir si tu ne peux pas la gérer avec des paramètres, ton code serait plus sécurisé.

Pour la connectionstring, essaye ce dont je t'ai parlé, si tu dois utiliser souvent ta connection c'est quand même plus pratique.