![]() |
Anzeige:
|
|
|||||||
| Visual Basic, Visual Basic.NET Alles zum Thema - Visual Basic und Visual Basic.NET
Fragen zu VBA bitte in das Forum Office-Anwendungen posten! |
|
![]() |
|
|
LinkBack | Themen-Optionen | Ansicht |
|
|
#1 (Direktlink) |
|
Forenmaskottchen
![]() Registriert seit: 06.03.2005
Ort: Gera
Beiträge: 732
|
Hallo,
ist es möglich mit VB.NET so eine Access Datenbank aufzurufen das ich z.B. nur eine SQL Abfrage an diese Schicke und die Rückgabe (Sprich passenden Spalten + Werte) in ein DataSet geschrieben werden, welches ich dann nach belieben auswerten kann? mfg Phill
__________________
Aus Fehlern wird man klug, drum ist einer nicht genug! Ich bin nur ein Opfer des Kapitalismus. |
|
|
|
|
|
|
#2 (Direktlink) |
|
War schon mal da
![]() Registriert seit: 19.02.2007
Beiträge: 38
|
Moin,
ja das geht. Ich benutze dazu eigentlich immer folgende class (Auszug): Code:
Imports System.Data.OleDb
Public Class mdbConn
Protected Friend AppPath As String = Application.StartupPath & "\"
Dim psw As String = "MEIN PASSWORT" 'wenn benötigt
Dim db As String = "mydb.mdb"
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";Jet OLEDB:Database Password=" & psw & ";"
'hier nun spezielle Funktion wie gewünscht laut deiner Anfrage
Public Function goGetDataSet(ByVal sQry As String) As DataSet
Dim oDataSet As New DataSet
Dim oConnection As New OleDb.OleDbConnection(sConnectionString)
Dim oCommand As New OleDb.OleDbCommand(sQry, oConnection)
Dim oDataAdapter As OleDb.OleDbDataAdapter
Try
oConnection.Open()
oDataAdapter = New OleDb.OleDbDataAdapter(sQry, oConnection)
oDataAdapter.Fill(oDataSet)
Return oDataSet
Catch ex As Exception
MsgBox("Fehler: " & ex.Message)
Finally
oConnection.Close()
End Try
End Function
End Class
Aufruf wäre dann z.B. : Code:
Dim clsMDB as new mdbConn
Dim sqlResult as DataSet = clsMDB.goGetDataSet("Select * from blalba Where blabla = 1")
'... mache was mit sqlResult
|
|
|
|
![]() |
|
| Lesezeichen |
| Themen-Optionen | |
| Ansicht | |
|
|