Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic PB requete

PB requete

3 réponses
Avatar
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:\Sites\MonSite\Catalogue.mdb;Persist Security Info=False")

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:\Sites\WapDrive\WapDrive.mdb;Persist Security Info=False")

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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles TOURREAU
Le Mon, 05 Nov 2007 16:41:33 +0100, Jean Claude
a écrit:

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
Avatar
Jean Claude
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" a écrit dans le message de news:

Le Mon, 05 Nov 2007 16:41:33 +0100, Jean Claude
a écrit:

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


Avatar
Gilles TOURREAU
Le Mon, 12 Nov 2007 09:32:59 +0100, Jean Claude
a écrit:

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