Hy Leute!
Ich spiele mich gerade ein wenig mit VB.NET und möchte eine Datenbankanbindung mittels einer Klasse realisieren. Ich hänge nur leider bei der Variablenübergabe. Ich habe mal folgendes ausprobiert:
Hier der Text aus der Klasse:
Hier der Text aus der Hauptform:
Das ganze wird mittels eines Button_Click Ereignisses aufgerufen! Ich bekomme jedesmal die Fehlermeldung, dass kein Befehlstext übergeben wurde bzw. SQL=Nothing obwohl ja dbconnect.SQL = "Select * from Kunden" ist!
Was mache ich falsch?
mfg
dust
Ich spiele mich gerade ein wenig mit VB.NET und möchte eine Datenbankanbindung mittels einer Klasse realisieren. Ich hänge nur leider bei der Variablenübergabe. Ich habe mal folgendes ausprobiert:
Hier der Text aus der Klasse:
Code:
Public Class ConnectionClass
Private conn As ADODB.Connection
Private datenbank As String
Public SQL as String
Public rs As ADODB.Recordset
Public Sub New()
conn = New ADODB.Connection
datenbank = Application.StartupPath & "\diskontdb.mdb"
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & datenbank)
rs = New ADODB.Recordset
rs.Open(SQL, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
End Sub
End Class
Hier der Text aus der Hauptform:
Code:
Public Class KundenAnlage
Inherits System.Windows.Forms.Form
Private dbconnect As ConnectionClass
Private Sub KundenAnlegen()
dbconnect = New ConnectionClass
dbconnect.SQL = "Select * from Kunden"
txtNachname.Text = dbconnect.rs.Fields("Nachname").Value
End Sub
End Class
Das ganze wird mittels eines Button_Click Ereignisses aufgerufen! Ich bekomme jedesmal die Fehlermeldung, dass kein Befehlstext übergeben wurde bzw. SQL=Nothing obwohl ja dbconnect.SQL = "Select * from Kunden" ist!
Was mache ich falsch?
mfg
dust