Ik heb een vraag over bestandsaansturing onder VB.net. Ik werk nu met VB 6.0 en daar heb ik een module gemaakt (met de naam bo):
Global sconn As ADODB.Connection
Global rs1 As ADODB.Recordset
Global sconn2 As ADODB.Connection
Option Explicit
-------------------------------------------------------------------------------------------
Sub bo()
Dim i As Byte
On Error GoTo fout
Set sconn = New ADODB.Connection
sconn.CursorLocation = adUseServer
sconn.Provider = "Microsoft.Jet.OLEDB.4.0"
sconn.Open "c:\bestanden\gegevens.mdb"
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = sconn
rs1.CursorType = adOpenStatic
end sub
-------------------------------------------------------------------------------------------
Daarmee kan ik overal in het programma het bestand aanroepen. Ik hoef slechts het volgende commando te geven:
call bo
rs1.open("select * from gegevens where ..."),,, adLockReadOnly
gegeven_nr1 = rs1("gegeven_uit_tabel")
rs1.close
PROBLEEM 1: ik ben overgestapt op VB.net en nu weet ik niet hoe ik het daar ook zo zou moeten doen. Alle commando's e.d. zijn volledig anders. Dus: hoe zou zo'n module daar uitzien ?
PROBLEEM 2: als ik i.p.v. een MSAccess.mdb bestand een SQLSERVER-bestand zou willen aansturen, wat zou er dan moeten staan ?
Ter info: ik hoef geen gedoe met wachtwoord, beveiliging, user_id e.d. Gewoon, heel simpel recht toe recht aan.
Willem
Global sconn As ADODB.Connection
Global rs1 As ADODB.Recordset
Global sconn2 As ADODB.Connection
Option Explicit
-------------------------------------------------------------------------------------------
Sub bo()
Dim i As Byte
On Error GoTo fout
Set sconn = New ADODB.Connection
sconn.CursorLocation = adUseServer
sconn.Provider = "Microsoft.Jet.OLEDB.4.0"
sconn.Open "c:\bestanden\gegevens.mdb"
Set rs1 = New ADODB.Recordset
Set rs1.ActiveConnection = sconn
rs1.CursorType = adOpenStatic
end sub
-------------------------------------------------------------------------------------------
Daarmee kan ik overal in het programma het bestand aanroepen. Ik hoef slechts het volgende commando te geven:
call bo
rs1.open("select * from gegevens where ..."),,, adLockReadOnly
gegeven_nr1 = rs1("gegeven_uit_tabel")
rs1.close
PROBLEEM 1: ik ben overgestapt op VB.net en nu weet ik niet hoe ik het daar ook zo zou moeten doen. Alle commando's e.d. zijn volledig anders. Dus: hoe zou zo'n module daar uitzien ?
PROBLEEM 2: als ik i.p.v. een MSAccess.mdb bestand een SQLSERVER-bestand zou willen aansturen, wat zou er dan moeten staan ?
Ter info: ik hoef geen gedoe met wachtwoord, beveiliging, user_id e.d. Gewoon, heel simpel recht toe recht aan.
Willem