Archief - [PROG][VB.NET] Public Sub werkt niet?

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
N

Neuskeutel

Legacy Member
Hallo,

Ik ben net overgeschakeld van vb6 naar vb.net en heb het volgende probleem:
Voorlopig wil ik een simpele form maken waarin data geladen wordt (in datagrid of tekstvelden) uit MS Access

Wanneer ik volgende code ingeef, krijg ik geen probleem, de data verschijnt:
Code: 
    Private Sub frmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataSet1.Clear()
        OleDbDataAdapter.Fill(DataSet1)
    End Sub

Nu wil ik hier een public sub van maken om ook in andere forms te kunnen gebruiken, maar dan wordt mijn data niet meer getoond, zelfs in dezelfde form niet. Ik had daarvoor volgende code:

Code: 
    Public Sub LoadData()
        DataSet1.Clear()
        OleDbDataAdapter.Fill(DataSet1)
    End Sub

    Private Sub frmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim LoadData As New frmCustomers
        LoadData.LoadData()
    End Sub

Ik heb al eens gecontroleerd dmv breakpoints te plaatsen en hij doorloopt weldegelijk die public sub, ook wanneer ik aan die public een Msgbox("Hello") toevoeg wordt dit getoond, maar de data komt niet in het tekstveld terecht.

Any help?
C

Cakeman

Legacy Member
Neuskeutel zei:
Code: 
    Public Sub LoadData()
        DataSet1.Clear()
        OleDbDataAdapter.Fill(DataSet1)
    End Sub

    Private Sub frmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim LoadData As New frmCustomers
        LoadData.LoadData()
    End Sub

Ik heb al eens gecontroleerd dmv breakpoints te plaatsen en hij doorloopt weldegelijk die public sub, ook wanneer ik aan die public een Msgbox("Hello") toevoeg wordt dit getoond, maar de data komt niet in het tekstveld terecht.

Any help?
Klik om te vergroten...
Als ik het goed begrijp ga je een nieuw form aanmaken (Dim LoadData As New frmCustomers). Dit nieuwe form zal dus ook een eigen DataAdapter en DateSet hebben. Het probleem is dat dat form nog niet zichtbaar is.

Ofwelf maak je het tweede form zichtbaar (zoals in de post hierboven staat) ofwel voor je die procedure gewoon uit op je eerste form:
Code: 
    Public Sub LoadData()
        DataSet1.Clear()
        OleDbDataAdapter.Fill(DataSet1)
    End Sub

    Private Sub frmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadData()
    End Sub
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan