Er zijn 6 reacties in dit onderwerp

[Hypenate]

Ik heb tot dusver toe alles inzake database gedaan via designer, alsook op mijn formulier.
Probleem is nu als ik dat formulier wil opendoen, (waar beneden een hoopje TableAdapters etc staan) hij lang moet laden eer dat ik dat formulier eindelijk te zien krijg.

Nu was mijn idee om deze (visuele) TableAdapters te verwijderen en dit via een klasse te doen.
Bijvoorbeeld:

Code:

Public Class dbZiekenbriefje
	Dim dtZiekenbriefje As New tblSnelVerslag_ZiekenbriefDataTable
	Dim daZiekenbriefje As New tblSnelVerslag_ZiekenbriefTableAdapter
	Public Sub Insert(ByVal ziekenbriefje As Ziekenbriefjes, ByVal bezorger As Personen, ByVal zieke As Personen)
	 daZiekenbriefje.Insert(Now, PassAgentId, ziekenbriefje.LocatieId, Nothing, Nothing, bezorger.PersoonId, zieke.PersoonId)
	End Sub
End Class

Met Insert en dergelijke gaat het goed, echter mijn probleem is de .Fill, hoe regel ik dit?

[SilentBob]

Kan je het probleem wat beter omschrijven?
Als je via de designer werkt worden er datasets gecreëerd, die je dan verder gebruikt op je forms.
Als je manueel gaat werken moet je zelf objecten of datasets voorzien (objecten krijgt tegenwoordig de voorkeur) om je data van de database te bewaren in het geheugen.
'k Had hier een redelijk goede tutorial (C#) van, maar die zijn nog even offline.

Kan iemand van de moderators misschien die pdf hier aan hangen?

Grtz,

[Hypenate]

SilentBob, op 08 February 2012 - 09:57, zei:

Kan je het probleem wat beter omschrijven?
Als je via de designer werkt worden er datasets gecreëerd, die je dan verder gebruikt op je forms.

Ik zal het korter omschrijven.
Hoe doe ik een .Fill in mijn apparte klasse om deze te gebruiken in mijn hoofdformulier? Daar komt het eig op neer

[Hypenate]

Dit lijkt te werken:

In mijn klasse:
Code:

	Public Sub Fill(ByRef tblLeveringCheckoutTemp1 As NikeDataSet.tblLeveringCheckoutTempDataTable)
		TblLeveringCheckoutTempTableAdapter1.Fill(tblLeveringCheckoutTemp1)
	End Sub

In mijn hoofdformulier:
Code:

'In btnCheckout sub
	Dim dbDeliveryTemp1 As New dbDeliveryTemp
	dbDeliveryTemp1.Delete(Me.dgv2LeveringCheckoutTemp.Item(0, rij).Value)
	dbDeliveryTemp1.Fill(Me.NikeDataSet.tblLeveringCheckoutTemp)

Is dit een juiste/correctie manier? Of zijn er beteren oplossing?
Want dit is nieuw voor mij, op deze manier nog nooit gewerkt.

[SilentBob]

Als het werkt is het juist.
Maar 'k snap je code niet goed. Volgens mij gebruik je nog steeds de adapter die je er in designer hebt opgesleept, je hebt er alleen een eigen Fill() rond geschreven.

Grtz,

[Hypenate]

Code:

dbDeliveryTemp1.Fill(Me.NikeDataSet.tblLeveringCheckoutTemp)

Die Me.NikeDataSet.tblLeveringCheckoutTemp is inderdaad gemaakt in Designer.
Maar het is gewoon dat ik al die prul van mijn hoofdformulier afwil.

[Hypenate]

Solved.