VBiB/ACCB.net - Visual Basic in België | .net Ineta User Group  
(login to hide)
Hoofdmenu

Advertenties

Het Computer Winkeltje HCW

Evenementen

DATABASE-CoNNECTIE CLASSE - Oud Forum inhoud (alleen lezen)
U bevindt zich > Oude forum > Visual Basic .Net > Databases ... (VB.Net) > Database-connectie classe
Gepost door Jerre2005 gepost op 02/05/2005 om 20:37

Hallo,

Ik zit met een probleem. Ik heb in een formulier een functie staan waarin een tabel in een database wordt doorlopen. Maar nu heb ik deze functie op meerdere plaasten nodig en was ik vanplan deze in een classe te zetten. Maar nu heb ik problemen met de connectie van de database. Is er iemand die een voorbeeld weet waar mee verder kan, of wil iemand helpen met de code?

De code:

 

Friend WithEvents damelding As New System.Data.OleDb.OleDbDataAdapter

Friend WithEvents cmdselectmelding As New System.Data.OleDb.OleDbCommand

Dim dsmelding As New System.Data.DataSet

Public Function meldingControle()

'hier gaat men ma of de waarborg al betaald is

While (inttellerbet <= inteindebet)

strBetStudNrDb = dsmelding.Tables("Betalingen").Rows(inttellerbet).Item("bets tudnr")

strBetCodeDb = dsmelding.Tables("Betalingen").Rows(inttellerbet).Item("betc ode")

dateBetDatumDb = dsmelding.Tables("Betalingen").Rows(inttellerbet).Item("betd atum")

If (strBetStudNrDb = strgebrnaam) Then

If (dateBetDatumDb >= dateTorenBeginDatDb) Then

If (strBetCodeDb = "W") Then

strwaarborg = ""

blnwaarborg = True

inttellerbet = inteindebet + inttellerbet

Else

strwaarborg = "U heeft de waarborg van 500 euro nog niet betaald!"

End If

End If

End If

inttellerbet = inttellerbet + 1

End While

Hoe kan ik dit nu in een classe zetten?

Alvast bedankt!!

Gepost door Dudeke gepost op 02/05/2005 om 20:52
Heykes,

Ik heb dit een tijdje geleden zo opgelost:
Code:
Public Class DBStuff
    'nodig voor DB en moet in programma ingesteld worden, bij voorkeur bij Form_Load
    Public StartUpPath As String = ""

    Private Function GetConnection() As OleDb.OleDbConnection
        Dim Path As String
        Dim DB As String = "Settings.mdb" 'DB filenaam

        If StartUpPath = "" Then
             MsgBox("Please set the parameter StartUpPath to the right directory to prevent major errors")
             Path = DB
        Else
             Path = StartUpPath & "" & DB
        End If
        'return a new connection to the database
        Return New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
    End Function
    Public Function GetFromDB(ByVal SQLstring As String, ByVal Tabel As String) As DataSet
        Dim conn As OleDb.OleDbConnection = GetConnection()
        Try
             Dim ds As New DataSet
             Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(SQLstring, conn)

             Try
                da.Fill(ds, Tabel)
             Finally
                da.Dispose()
             End Try

             Return ds
        Finally
             conn.Close()
             conn.Dispose()
        End Try
    End Function
End Class


Je moet een referentie aanbrengen naar uw DLL in uw project. Vervolgens Code:
Public DLL as new DBStuff

Als je nu 'DLL.' intypt, dan krijg je alle public classes te zien van uw DLL.
Gepost door Jerre2005 gepost op 03/05/2005 om 18:26
Merci, het werkt !!
Start - Zoeken op oude forum

 
 
Postnuke - ADODB Database - PHP 4/5 - pnPhpBB2 - Hosting bij Openminds
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno 21-12-2000)
vbib.be gestart op 1/03/06 (extra vanaf 1/09: vbnet.be en vbdotnet.be)
VBiB is gerelateerd met wintips.be

Nieuwsbrief RSS Feed: backend.php