PB requete

Le
Jean Claude
Bonjour

je veux remplir un treeView avec une requete sur une BD Access.
J'ai trouvé du code pour une base de données SQL et je n'arrive pas à écrire
la ligne en rouge dans le code ci-dessous.
Il me faut également écrire une fonction pour créer un adaptateur de
données, mais je ne sais pas comment faire. Pouvez-vous m'aider

Mon Code :

Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)

lblChoix.Text = "Votre sélection: " & TvwGeneral.SelectedNode.Text

Session("ChoixRayon") = TvwGeneral.SelectedNode.Text

Label1.Text = "Chemin : " & TvwGeneral.SelectedNode.Value

Response.Redirect(TvwGeneral.SelectedNode.Value)

End Sub



Protected Sub tvwGeneral_TreeNodePopulate(ByVal sender As Object, ByVal
e As System.Web.UI.WebControls.TreeNodeEventArgs) _

Handles TvwGeneral.TreeNodePopulate

If e.Node.ChildNodes.Count = 0 Then

Select Case e.Node.Depth

Case 0

PopulateRubriques(e.Node)

Case 1

PopulateSRubriques(e.Node)

End Select

End If

End Sub

Sub PopulateRubriques(ByVal node As TreeNode)

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesMonSiteCatalogue.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select IDrubrique, Rubrique From Rubriques", DBConn)

DBCommand.Fill(DSPageData, "NBRubriques")

If DSPageData.Tables("NBRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("IDrubrique").ToString(), _

Row("Rubrique").ToString())

NewNode.PopulateOnDemand = True

NewNode.SelectAction = TreeNodeSelectAction.Expand

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

Sub PopulateSRubriques(ByVal node As TreeNode) ' a revoir

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesWapDriveWapDrive.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select Srubrique From SRubriques Where IDrubrique=@IDrubrique",
DBConn)

DBCommand.Fill(DSPageData, "SRubriques")



DBCommand.Parameters.Add("@IDrubrique", ????????).Value= _

Node.Value



If DSPageData.Tables("SRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("Srubrique").ToString())

NewNode.PopulateOnDemand = False

NewNode.SelectAction = TreeNodeSelectAction.None

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

' création d'un adaptateur de données

Function MySQL(ByVal DBCommand As OleDbDataAdapter) As DataSet



End Function



Merci pour vos réponses

Cordialement

Jean Claude
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles TOURREAU
Le #12232941
Le Mon, 05 Nov 2007 16:41:33 +0100, Jean Claude

Bonjour

je veux remplir un treeView avec une requete sur une BD Access.
J'ai trouvé du code pour une base de données SQL et je n'arrive pas à
écrire
la ligne en rouge dans le code ci-dessous.
Il me faut également écrire une fonction pour créer un adaptateur de
données, mais je ne sais pas comment faire. Pouvez-vous m'aider

Mon Code :

Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)

lblChoix.Text = "Votre sélection: " &
TvwGeneral.SelectedNode.Text

Session("ChoixRayon") = TvwGeneral.SelectedNode.Text

Label1.Text = "Chemin : " & TvwGeneral.SelectedNode.Value

Response.Redirect(TvwGeneral.SelectedNode.Value)

End Sub



Protected Sub tvwGeneral_TreeNodePopulate(ByVal sender As Object,
ByVal
e As System.Web.UI.WebControls.TreeNodeEventArgs) _

Handles TvwGeneral.TreeNodePopulate

If e.Node.ChildNodes.Count = 0 Then

Select Case e.Node.Depth

Case 0

PopulateRubriques(e.Node)

Case 1

PopulateSRubriques(e.Node)

End Select

End If

End Sub

Sub PopulateRubriques(ByVal node As TreeNode)

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesMonSiteCatalogue.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select IDrubrique, Rubrique From Rubriques", DBConn)

DBCommand.Fill(DSPageData, "NBRubriques")

If DSPageData.Tables("NBRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("IDrubrique").ToString(), _

Row("Rubrique").ToString())

NewNode.PopulateOnDemand = True

NewNode.SelectAction = TreeNodeSelectAction.Expand

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

Sub PopulateSRubriques(ByVal node As TreeNode) ' a revoir

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesWapDriveWapDrive.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select Srubrique From SRubriques Where IDrubrique=@IDrubrique",
DBConn)

DBCommand.Fill(DSPageData, "SRubriques")





DBCommand.Parameters.Add("@IDrubrique", DbType.Int32).Value =
Convert.ToInt32(node.Text)

'DBCommand.Parameters.Add("@IDrubrique", ????????).Value= _

Node.Value



If DSPageData.Tables("SRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("Srubrique").ToString())

NewNode.PopulateOnDemand = False

NewNode.SelectAction = TreeNodeSelectAction.None

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

' création d'un adaptateur de données

Function MySQL(ByVal DBCommand As OleDbDataAdapter) As DataSet



End Function



Merci pour vos réponses

Cordialement

Jean Claude





Que doit faire la méthode MySQL ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Jean Claude
Le #12232841
Bonjour Gilles

Elle doit remplir un treeView à partir d'une table Access

Je ne sais plus écrire la requète à partir de la ligne :
("Select Srubrique From SRubriques Where IDrubrique=@IDrubrique",
DBConn)


Jean Claude
"Gilles TOURREAU"
Le Mon, 05 Nov 2007 16:41:33 +0100, Jean Claude

Bonjour

je veux remplir un treeView avec une requete sur une BD Access.
J'ai trouvé du code pour une base de données SQL et je n'arrive pas à
écrire
la ligne en rouge dans le code ci-dessous.
Il me faut également écrire une fonction pour créer un adaptateur de
données, mais je ne sais pas comment faire. Pouvez-vous m'aider

Mon Code :

Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)

lblChoix.Text = "Votre sélection: " &
TvwGeneral.SelectedNode.Text

Session("ChoixRayon") = TvwGeneral.SelectedNode.Text

Label1.Text = "Chemin : " & TvwGeneral.SelectedNode.Value

Response.Redirect(TvwGeneral.SelectedNode.Value)

End Sub



Protected Sub tvwGeneral_TreeNodePopulate(ByVal sender As Object,
ByVal
e As System.Web.UI.WebControls.TreeNodeEventArgs) _

Handles TvwGeneral.TreeNodePopulate

If e.Node.ChildNodes.Count = 0 Then

Select Case e.Node.Depth

Case 0

PopulateRubriques(e.Node)

Case 1

PopulateSRubriques(e.Node)

End Select

End If

End Sub

Sub PopulateRubriques(ByVal node As TreeNode)

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesMonSiteCatalogue.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select IDrubrique, Rubrique From Rubriques", DBConn)

DBCommand.Fill(DSPageData, "NBRubriques")

If DSPageData.Tables("NBRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("IDrubrique").ToString(), _

Row("Rubrique").ToString())

NewNode.PopulateOnDemand = True

NewNode.SelectAction = TreeNodeSelectAction.Expand

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

Sub PopulateSRubriques(ByVal node As TreeNode) ' a revoir

Dim DBConn As OleDbConnection

Dim DBCommand As OleDbDataAdapter

Dim DSPageData As New DataSet

DBConn = New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:SitesWapDriveWapDrive.mdb;Persist Security Infoúlse")

DBCommand = New OleDbDataAdapter _

("Select Srubrique From SRubriques Where IDrubrique=@IDrubrique",
DBConn)

DBCommand.Fill(DSPageData, "SRubriques")





DBCommand.Parameters.Add("@IDrubrique", DbType.Int32).Value =
Convert.ToInt32(node.Text)

'DBCommand.Parameters.Add("@IDrubrique", ????????).Value= _

Node.Value



If DSPageData.Tables("SRubriques").Rows.Count > 0 Then

Dim Row As DataRow

For Each Row In DSPageData.Tables(0).Rows

Dim NewNode As TreeNode = New _

TreeNode(Row("Srubrique").ToString())

NewNode.PopulateOnDemand = False

NewNode.SelectAction = TreeNodeSelectAction.None

node.ChildNodes.Add(NewNode)

Next

End If

End Sub

' création d'un adaptateur de données

Function MySQL(ByVal DBCommand As OleDbDataAdapter) As DataSet



End Function



Merci pour vos réponses

Cordialement

Jean Claude





Que doit faire la méthode MySQL ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr


Gilles TOURREAU
Le #12232691
Le Mon, 12 Nov 2007 09:32:59 +0100, Jean Claude

Bonjour Gilles

Elle doit remplir un treeView à partir d'une table Access





Pouvez-vous publier la structure de la table ?

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Publicité
Poster une réponse
Anonyme