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

Variabele vernieuwen

pororoca - 24/02/2009 09:10 (laatste wijziging 24/02/2009 09:40)
Lid		Dag mensen, Ik heb het volgende: Een class In deze class staat een variabele: strVar. Deze class doet verschillende acties met queries e.d. Het genereerd een lijst, als je een item in de lijst aanklikt wordt de ID geplaatst in strVar. Deze class staat twee keer aangeroepen in het form met "new class": 1 = objClass1 2 = objClass2 Tot nu toe werkt alles. De tweede gedefinieerde class moet de waarde van strVar van de eerste krijgen. Dit kan ik doen door objClass1 en in de class zelf er "strVar" achter plakken, maar dat wil ik niet. Ik wil dat ik dit ongeveer wil doen: vbnet code - Bekijk de code zonder highlighting - Klap code in Dim objClass1 As New Class With objClass1 .query = "SELECT * FROM table" .generatelist() End With Dim objClass2 As New Class With objClass2 .query = "SELECT * FROM table where nummer=%1" .addparameter.add(objClass1.strVal) ' is een arraylist .generatelist() End With Dim objClass1 As New Class With objClass1 .query = "SELECT * FROM table" .generatelist() End With Dim objClass2 As New Class With objClass2 .query = "SELECT * FROM table where nummer=%1" .addparameter.add(objClass1.strVal) ' is een arraylist .generatelist() End With In de class zit een sub die de parameters vult en de %1 moet vervangen met de objClass1.strVal. Als ik de applicatie dan start dan is addparameter(0)(0) leeg. Hoe kan ik deze nou vullen? Hoop dat mijn probleem een beetje duidelijk is... Is moeilijk uit te leggen Alvast bedankt

2 antwoorden

Gesponsorde links

Abbas - 24/02/2009 10:08

Crew .NET

Je kan er toch voor zorgen dat je met een functie of een methode uit de eerste klasse een waarde terugkrijgt in een variabele en dan die variabele gebruikt uit de tweede klasse. Als je dan de methode uit de eerste klasse 'Shared' maakt kan je het heel gemakkelijk aanroepen. Simpel voorbeeld:

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

                Public Class ClassOne
        Public Shared Function GetList() As String
            Return "BLAAT"
        End Function
    End Class

    Public Class ClassTwo
        Public Shared Function ReturnSomeThing(ByVal input As String) As String
            Return input & " BLABLABLA"
        End Function
    End Class

            
Public Class ClassOne
        Public Shared Function GetList() As String
            Return "BLAAT"
        End Function
    End Class
 
    Public Class ClassTwo
        Public Shared Function ReturnSomeThing(ByVal input As String) As String
            Return input & " BLABLABLA"
        End Function
    End Class
 

En dan het gebruik:

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

                Dim naam As String = ClassOne.GetList()
        Dim result As String = ClassTwo.ReturnSomeThing(naam)

Dim naam As String = ClassOne.GetList()
        Dim result As String = ClassTwo.ReturnSomeThing(naam)

Dit is ook maar een heel simpel voorbeeld!

pororoca - 24/02/2009 16:39 (laatste wijziging 24/02/2009 16:41)

Lid

Helaas is dit niet helemaal wat werkt... Hieronder wat code

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

                With objAutofill1
            .objParent = textbox1
            .frmParent = Me
            .sqlSelect = "id, naam"
            .sqlFrom = "tabel1"
            .sqlWhere = "id=1"
            .sqlOrderBy = "2"
            .strSelectField = 1
            .strSaveField = 0
            .arrSearchFields = New String() {"naam"}
            .strConnectionString = connectionString
            .LoadAutofill()
        End With

        With objAutofill2
            .objParent = textbox2
            .frmParent = Me
            .sqlSelect = "id, naam"
            .sqlFrom = "tabel2"
            .sqlWhere = "id=%1"
            ..arrParams.Add(New String() {objProject.strSelectedSaveData})
            .sqlOrderBy = "2"
            .strSelectField = 1
            .strSaveField = 0
            .arrSearchFields = New String() {"naam"}
            .strConnectionString = connectionString
            .LoadAutofill()
        End With
            
With objAutofill1
            .objParent = textbox1
            .frmParent = Me
            .sqlSelect = "id, naam"
            .sqlFrom = "tabel1"
            .sqlWhere = "id=1"
            .sqlOrderBy = "2"
            .strSelectField = 1
            .strSaveField = 0
            .arrSearchFields = New String() {"naam"}
            .strConnectionString = connectionString
            .LoadAutofill()
        End With
 
        With objAutofill2
            .objParent = textbox2
            .frmParent = Me
            .sqlSelect = "id, naam"
            .sqlFrom = "tabel2"
            .sqlWhere = "id=%1"
            ..arrParams.Add(New String() {objProject.strSelectedSaveData})
            .sqlOrderBy = "2"
            .strSelectField = 1
            .strSaveField = 0
            .arrSearchFields = New String() {"naam"}
            .strConnectionString = connectionString
            .LoadAutofill()
        End With
 

De uitleg
Autofill1 en 2 zijn classes die een autofill maken. Voor het geval niet bekend: Een autofill is een object dat lijkt op een dropdown, maar met een soort zoekfunctie (.arrSearchFields) in combinatie met een query in MySQL.
De class maakt een query, die lijkt op:

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

                SELECT id, naam FROM tabel1 WHERE id=1 and (naam like '%INVOER%')
            
SELECT id, naam FROM tabel1 WHERE id=1 and (naam like '%INVOER%')

Als je in de eerste autofill een selectie maakt dan wordt de strSaveField (0 = id) gevul met een waarde. Deze waarde wordt opgeslagen in de var strSelectedSaveData van die autofill.

Dat is de eerste autofill. Nu de tweede.
Deze query lijkt erg veel op de eerste, maar:

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

                SELECT id, naam FROM tabel1 WHERE id=1 and id=[i]strSelectedSaveData_van_autofill1[/i] (naam like '%INVOER%')
            
SELECT id, naam FROM tabel1 WHERE id=1 and id=[i]strSelectedSaveData_van_autofill1[/i] (naam like '%INVOER%')

Snap je mijn probleem? In de tweede query moet dus strSelectedSaveData_van_autofill1 vervangen worden door de waarde uit autofill1, de var strSelectedSaveData om precies te zijn. En dat is wat mij niet lukt.

Ps. ivm bepaalde gegevens en data in de code kan ik het niet helemaal plaatsen. Zitten nml gevoelige zaken in.

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten