Discussion :

[ptitepo]

Bjr a tous, je cherche a mettre le resultat d'une requete sql dans un variable. Je ne sais pas quel type mettre a ma variable.
Je recupere le nom de l'abonne dans un combobox.

Code :

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

numab = "select idAbonne from abonne where nomabonne ='" & cbx_abonne.Text & "'"

Merci de votre aide

[Sacha999]

Dans l'idéal, il faudrait que le type de ta variable soit du meme type que "idAbonne", et donc apparemment un Integer. Et tu utiliseras la fonction ExecuteScalar(). Le probleme c'est que si tu ne trouve pas l'enregistrement dans la table, il va te retourner un DBNull et non un Integer.
Donc un variable de type Object est necessaire pour prendre en compte tous les cas possibles.
Apres à toi de vérifier que la valeur dedans est bien ce que tu veux, et tu la stocke dans une variable integer si tu veux

[tssi555]

Bonjour,

Pour faire simple, ta requête est une chaine de caractère, alors ta variable doit être String, enfin, pour c'est ce que j'utilise et ca fonctionne sans problème.

[tomlev]

Bjr a tous, je cherche a mettre le resultat d'une requete sql dans un variable. Je ne sais pas quel type mettre a ma variable.
Je recupere le nom de l'abonne dans un combobox.

Code :

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

numab = "select idAbonne from abonne where nomabonne ='" & cbx_abonne.Text & "'"

Merci de votre aide

Attention, quand tu fais ça, numab ne contient pas le résultat de la requête, mais simplement le texte de la requête... il faut ensuite exécuter cette requête pour récupérer le résultat.

[ptitepo]

Oui je sais bien que ca ne contient pas le resultat de ma requete mais la requete en elle même, je ne sais pas comment faire pour mettre uniquement ce resultat dans la requete. J'ai essayé de trouvé comment fonction la fonction ExecuteScalar(), mais sans succés

[tssi555]

Passe le résultat de ton combobox comme paramètre à la requête.

Donc,

Tu va déclarer ta variable qui va contenir le résultat de requête comme suit :

Code :

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

Dim numab as string

Puis,

Code :

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

1
2
3
4
5
 
numab = "select idAbonne from abonne where nomabonne=@NumAb"
Dim cmdSelectAbonnes As New SqlCommand(numab, cnx)
cmdSelectAbonnes.Parameters.Add("@NumAb", SqlDbType.Int).Value = cbx_abonne.SelectedValue 'au lieu de .Text
.....

Ca devra marcher normalement.

[tomlev]

je pense qu'une petite lecture de ce tutoriel te ferait le plus grand bien

[ptitepo]

le type SqlCommand n'est pas défini :S

[tssi555]

Type "SqlCommand" non définit est dù au fait que tu n'a pas importé les nom d'espaces nécéssaires.

Code :

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

1
2
3
Imports System
Imports System.Data
Imports System.Data.SqlClient

Abrakadabra, d'un coup de bagette magique, ton erreur disparaitra!!!

[ptitepo]

Bé oui j'avais bien mis les bon imports, c'est quoi cnx?

Code :

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

Dim cmdSelectAbonnes As New SqlCommand(numab, cnx)

[tssi555]

C'est ta connexion ==> cnx.
Je préfère l'appeler cnx au lieu de conn comme pleins de développeurs, car je ne la trouve pas vraiment conne..
(ici cnx est prédéfinis auparavant dans module global)

Bon courrage

[ptitepo]

Une valeur de type 'System.Data.OleDb.OleDbConnection' ne peut pas être convertie en 'System.Data.SqlClient.SqlConnection'.
Oui j'avais bien compri connexion mais ca me mets ca comme erreur.
J'ai deux connexions et pour les deux ca me met ca

[tssi555]

Tu utilise une base de donnée Acces , c'est normal d'avoir cette erreur. Faut plutot utiliser Oledbcommand et pas SqlCommand.
Quand tu pose une question, merci de préciser en vitesse, ta version de VB, ta base de données.... et bien d'autres choses pourront être utiles et facilitant le traitement de ton cas.

[ptitepo]

Oups :S
Du cou tout le reste ne fonctionne pas ca ve dire.

'Public Function Add(parameterName As String, value As Object) As System.Data.OleDb.OleDbParameter' est obsolète*: 'Add(String parameterName, Object value) has been deprecated. Use AddWithValue(String parameterName, Object value). http://go.microsoft.com/fwlink/?linkid=14202'

[tssi555]

Tu peux nous montrer le code et bien structurer ta principale question, parceque là je commence à perdre le nord avec la paire d'erreurs que tu poste.
Repose ta question, et dis où tu veux arriver , puis tes empêchements.
Comme ca on peut t'aider mieux.

[ptitepo]

cbx_abonne est une zone de liste ou apparisse les nom de abonnée. Je veux récuperé le numero de l'abonné selectionné, pour l'inseré dans ma table preter.
Abonne (idabonne, nomabonne, villeabonne)
preter(idabonne, iddvd, datepret)
dvd(iddvd, titredvd, dureedvd)

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
41
42
43
44
45
46
47
Dim maconnexion As New OleDb.OleDbConnection("provider=Microsoft.jet.OLEDB.4.0;Data source =..\basedonneeDVD.mdb;persist security info=false")
Dim maCommand As New OleDb.OleDbCommand()
Dim chainesql As String
Dim monDA As New OleDb.OleDbDataAdapter()
Dim numab As String
 
    Private Sub dvd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            maconnexion.Open()
            chaineSql = "SELECT * FROM DVD, Preter, Abonne WHERE DVD.idDVD=Preter.idDVD And Preter.idAbonne=Abonne.idAbonne"
            maCommand.CommandText = chaineSql
            maCommand.Connection = maconnexion
            monDA.SelectCommand = maCommand
 
            monDA.Fill(datasetpret, "Liste des prets")
            maDT = datasetpret.Tables("Liste des prets")
            cbx_abonne.DataSource = maDT
            cbx_abonne.DisplayMember = "nomAbonne"
            cbx_titre.DataSource = maDT
            cbx_titre.DisplayMember = "titreDVD"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        maconnexion.Close()    
End Sub
 
 
    Private Sub btn_valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_valider.Click
        If action = 1 Then
Try
 
                OleDbConnectiondvd.Open()
                numab = "select idAbonne from abonne where nomabonne=@NumAb"
                Dim cmdSelectAbonnes As New OleDbCommand(numab, maconnexion)
                cmdSelectAbonnes.Parameters.Add("@NumAb", SqlDbType.Int).Value = cbx_genre.SelectedValue            
 
                chaineSql = "insert into Preter (idAbonne, idDVD, datepret)values ('" & numab & "','" & cbx_titre.Text & "','" & cbx_date.Text & "')"
                commandinsert.CommandText = chaineSql
                commandinsert.Connection = OleDbConnectionpret
                commandinsert.ExecuteNonQuery()
                MsgBox("Pret enregistré")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            OleDbConnectionpret.Close()
        End If
    End Sub