Discussion :

[bigrackham]

Bonjour,
je suis bien largué depuis que j'essaye de quitter VB6.
En ce moment je n'arrive pas a renseigner un textbox avec une donnée extraite d'un dataset lui meme issu d'un dataAdapter.
La connection avec la BDD est OK, la requete SQL qui doit m'envoyer une seule ligne est ok ca marche avec une data grid mais pas moyen de trouver l'astuce pour mettre la valeur d'une des colonnes retournées par la requete dans une zone de texte ou un label.
voici le code dont je me sert:

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
[Imports System.Data
Imports System.IO
Imports System.Windows.Forms.DataGridView
Imports MySql.Data.MySqlClient
 
Public Class Form1
    Dim MySQLConn As New MySqlConnection
    Dim MySQLDataAdapt As MySqlDataAdapter
    Dim MySQLDset As New DataSet
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MySQLConn.ConnectionString = "server=localhost;user id=root;password=;database=film"
        MySQLConn.Open()
        MySQLDataAdapt = New MySqlDataAdapter("select * from individu where id_individu=4", MySQLConn)
        MySQLDataAdapt.Fill(MySQLDset, "INDIVIDU")
        DataGrid1.DataSource = MySQLDset.Tables("INDIVIDU")
 
    End Sub
End Class]

Merci d'avance pour vos tuyaux et aides

[abd2gh]

Essaie ceci:

Code :

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

1
2
 
maTextBox.Text=(String)MySQLDset.Tables("INDIVIDU").Rows[0]["nomDeMaColonne"];

[bigrackham]

Bonne idée Mais, aprés avoir rajouté les guillemets a string il me declare : fin d'instruction attendue.....
je n'ai rien trouvé de coherant la dessus dans msdn....
merci de m'aider

[bigrackham]

toujours pas moyen de sortir quelque chose de la bete....

[bigrackham]

voici la solution:
Imports System.Data
Imports System.IO
Imports System.Windows.Forms.DataGridView
Imports MySql.Data.MySqlClient

Public Class Form1
Dim MySQLConn As New MySqlConnection
Dim MySQLDataAdapt As MySqlDataAdapter
Dim MySQLDset As New DataSet


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MySQLConn.ConnectionString = "server=localhost;user id=root;password=;database=film"
MySQLConn.Open()
MySQLDataAdapt = New MySqlDataAdapter("select * from INDIVIDU where INDIVIDU_PRENOM='Bruce'", MySQLConn)
MySQLDataAdapt.Fill(MySQLDset,"INDIVIDU")
DataGrid1.DataSource = MySQLDset.Tables("INDIVIDU")
TextBox1.Text = MySQLDset.Tables("INDIVIDU").Rows(0).Item("INDIVIDU_PRENOM").ToString
attention a la syntaxe, j'y ai passé un bon bout de temps
Bye
au prochain coup de pouce