Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Dataset

finduilas - 19/05/2008 20:54

PHP gevorderde

Hallo,

Ik heb het volgende:

        vb code - Bekijk de code zonder highlighting - Klap code in
    

                Imports System.Data.SqlClient
Partial Class winkelmandje2
    Inherits System.Web.UI.Page
    Public strKlant_id As Integer
    Public GegArray As Array
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cnnConnectie As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("conGIP").ToString())
        Dim myReader As SqlDataReader
        If Session("login") = "" Then
            Response.Redirect("inloggen.aspx")
        Else
            Dim strCookie As String
            strCookie = Session("login")
            GegArray = Split(strCookie, "-")
            Dim strLogin As String = "SELECT login_id FROM tblLogin WHERE login_id='" & GegArray(0) & "' AND password='" & GegArray(1) & "'"
            Dim myCommand As New SqlCommand(strLogin, cnnConnectie)
            cnnConnectie.Open()
            myReader = myCommand.ExecuteReader()
            myReader.Read()
            Dim aantal As Integer = myReader.RecordsAffected
            If aantal <> "-1" Then
                Response.Redirect("inloggen.aspx")
            Else
                strKlant_id = myReader.GetValue(0)
            End If
            cnnConnectie.Close()
        End If
        Dim strBestellingen As String = "SELECT * FROM tblBestellingen WHERE klant_id ='" & GegArray(0) & "' AND bestel_bevestigd='0'"
        Dim myCommand2 As New SqlCommand(strBestellingen, cnnConnectie)
        cnnConnectie.Open()
        myReader = myCommand2.ExecuteReader()
        Dim Openbestelling As String
        If myReader.Read() Then
            Openbestelling = myReader.GetValue(0)
        Else
            Openbestelling = "none"
        End If
        cnnConnectie.Close()
        If Openbestelling <> "none" Then
            'hier moet die dataset aangepast worden
        Else
            'hier niet maar das nie moeilijk
        End If
    End Sub
End Class

            
Imports System.Data.SqlClient
Partial Class winkelmandje2
    Inherits System.Web.UI.Page
    Public strKlant_id As Integer
    Public GegArray As Array
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cnnConnectie As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("conGIP").ToString())
        Dim myReader As SqlDataReader
        If Session("login") = "" Then
            Response.Redirect("inloggen.aspx")
        Else
            Dim strCookie As String
            strCookie = Session("login")
            GegArray = Split(strCookie, "-")
            Dim strLogin As String = "SELECT login_id FROM tblLogin WHERE login_id='" & GegArray(0) & "' AND password='" & GegArray(1) & "'"
            Dim myCommand As New SqlCommand(strLogin, cnnConnectie)
            cnnConnectie.Open()
            myReader = myCommand.ExecuteReader()
            myReader.Read()
            Dim aantal As Integer = myReader.RecordsAffected
            If aantal <> "-1" Then
                Response.Redirect("inloggen.aspx")
            Else
                strKlant_id = myReader.GetValue(0)
            End If
            cnnConnectie.Close()
        End If
        Dim strBestellingen As String = "SELECT * FROM tblBestellingen WHERE klant_id ='" & GegArray(0) & "' AND bestel_bevestigd='0'"
        Dim myCommand2 As New SqlCommand(strBestellingen, cnnConnectie)
        cnnConnectie.Open()
        myReader = myCommand2.ExecuteReader()
        Dim Openbestelling As String
        If myReader.Read() Then
            Openbestelling = myReader.GetValue(0)
        Else
            Openbestelling = "none"
        End If
        cnnConnectie.Close()
        If Openbestelling <> "none" Then
            'hier moet die dataset aangepast worden
        Else
            'hier niet maar das nie moeilijk
        End If
    End Sub
End Class
 

Het probleem is dat ik een gridvieuw heb, met een datasource. Nu wil ik na het laden (page_load) van die pagina die select query aanpassen. Ik haal namelijk eerst een session op (login) waarin er een login_id-username-pass staat. Deze splits ik op en zo controleer ik of het een geldig login is. Dan gebruik ik dat login_id om te kijken of er open bestellingen zijn voor deze klant en indien ja welk ID.

Nu is dus mijn probleem dat ik maar na een aantal codestukken weet hoe mijn where er zal uit zien. De qry maken is niet moeilijk:

php code - Bekijk de code zonder highlighting - Klap code in

                "SELECT tblBestellingen_details.aantal, tblProducten.prod_naam, tblProducten.prod_prijs FROM tblBestellingen INNER JOIN tblBestellingen_details ON tblBestellingen.bestel_id = tblBestellingen_details.bestel_id INNER JOIN tblProducten ON tblBestellingen_details.prod_id = tblProducten.prod_id WHERE (tblBestellingen.bestel_id ='" & Openbestelling & "')"
            
"SELECT tblBestellingen_details.aantal, tblProducten.prod_naam, tblProducten.prod_prijs FROM tblBestellingen INNER JOIN tblBestellingen_details ON tblBestellingen.bestel_id = tblBestellingen_details.bestel_id INNER JOIN tblProducten ON tblBestellingen_details.prod_id = tblProducten.prod_id WHERE (tblBestellingen.bestel_id ='" & Openbestelling & "')"

Maar hoe wijzig ik dat aan mijn gridvieuw. Snappen jullie het zo beetje of is er meer uitleg nodig?

3 antwoorden

Gesponsorde links

Abbas - 19/05/2008 21:24 (laatste wijziging 19/05/2008 21:24)

Crew .NET

Als ik je begrijp wil je gewoon opnieuw gegevens aan de DataGrid koppelen, niet? Dan doe je gewoon:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim myAdapter As SqlDataAdapter = New SqlDataAdapter("query", "verbinding")
Dim mySet As New DataSet()

myAdapter.Fill(mySet)
Jouw_DataGrid.DataSource = mySet
Jouw_DataGrid.DataBind()

            
Dim myAdapter As SqlDataAdapter = New SqlDataAdapter("query", "verbinding")
Dim mySet As New DataSet()
 
myAdapter.Fill(mySet)
Jouw_DataGrid.DataSource = mySet
Jouw_DataGrid.DataBind()
 

finduilas - 19/05/2008 21:30 (laatste wijziging 19/05/2008 21:32)
PHP gevorderde		Owkey, Ik probeer het even uit... Finduilas EDIT: Dataset bestaat niet, maar ik vermoed dat ik terug een bestand moet importeren. Heb er momenteel data.dataset van gemaakt omdat die wel bestond. Ik kan alvast even uitproberen.

Abbas - 19/05/2008 21:38
Crew .NET		Ja natuurlijk, je moet de library "Data" importeren! Zet dit bovenaan je file bij je andere Imports. vbnet code - Bekijk de code zonder highlighting - Klap code in Imports System.Data Imports System.Data

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten