Discussion :

[ramanov]

bonjour;
je suis débutant en vb.net,
je souhaite recevoir le résultat d'une requete et le mettre dans un textbox,
voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim daMyName As New Data.SqlClient.SqlDataAdapter
        Dim myConnString As String
        myConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\etat_civil.mdb"
 
        Dim dsMyName As New Data.DataSet
        Dim mySelectQuery As String = "select * from table1 where nom = dupon"
        Dim myConnection As New Data.OleDb.OleDbConnection(myConnString)
        Dim myCommand As New Data.SqlClient.SqlCommand(mySelectQuery)
        myConnection.Open()
        daMyName.SelectCommand = myCommand
        daMyName.Fill(dsMyName)
        TextBox1.Text = dsMyName.Tables(0).Rows(0).Item("nom").ToString
        myConnection.Close()

le problème c'est que j'obtiens le message d'erreur :

"Fill : la propriété SelectCommand.Connection n'a pas été initialisée."

pouvez vous m'aider a résoudre ça?

merci.

[tomlev]

Ajoute ça :

Code :

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

myCommand.Connection = myConnection

Par contre, utiliser un dataset et un dataadapter pour récupérer un champ, c'est un peu comme utiliser un bazooka pour tuer une mouche
D'ailleurs, évite de faire des "SELECT *", sauf quand tu ne sais pas à l'avance les champs que tu vas récupérer.

Tu pourrais simplifier ton code en ceci :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim myConnString As String
        myConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\etat_civil.mdb"
         Dim mySelectQuery As String = "select nom from table1 where nom = dupon"
        Dim myConnection As New Data.OleDb.OleDbConnection(myConnString)
        Dim myCommand As New Data.SqlClient.SqlCommand(mySelectQuery)
        myConnection.Open()
        myCommand.Connection = myConnection
        TextBox1.Text = myCommand.ExecuteScalar().ToString()
        myConnection.Close()

Pour gérer proprement la connection et s'assurer qu'elle sera bien fermée même en cas d'erreur, utilise l'instruction Using :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim myConnString As String
        myConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\etat_civil.mdb"
         Dim mySelectQuery As String = "select nom from table1 where nom = dupon"
 
        Using myConnection As New Data.OleDb.OleDbConnection(myConnString)
            myConnection.Open()
            Using myCommand As New Data.SqlClient.SqlCommand(mySelectQuery)
                myCommand.Connection = myConnection
                TextBox1.Text = myCommand.ExecuteScalar().ToString()
            End Using
        End Using

[ramanov]

merci pour votre réponse;
mais il y a un message d'erreur lors de la compilation;
et c'est au niveau de

Code :

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

1
2
 
myCommand.Connection = myConnection

le message est :

Error 1 Value of type 'System.Data.OleDb.OleDbConnection' cannot be converted to 'System.Data.SqlClient.SqlConnection'.

"remarque : j'utilise une base de données access avec environnement visual studio 2005"

[tomlev]

Ah oui, j'avais même pas fait gaffe... dans ton code il y a des classes pour SQL Server (Data.SqlClient.Sql***) et des classes pour OleDb (Data.OleDb.OleDb***). Tu mélanges tout

Remplace tous les "Data.SqlClient.Sql" par "Data.OleDb.OleDb", et ça devrait marcher...