Abfrage (View) erstellen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von sandiro.

    Abfrage (View) erstellen

    Hallo,

    Ich arbeite an einem Programm, welches eine Access-Datenbank (mdb) verwendet.
    Beim SQL-Server gibt es ja sogenannte Views (CREATE VIEW Irgendwas AS SELECT...), bei Access gibt es Abfragen.

    Kann ich nun per Code eine neue Abfrage erstellen (und speichern) lassen?

    Gruss
    sandiro

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sandiro“ ()

    Hallo,

    ich verstehe zwar nicht ganz deine Frage. Aber hier hast du mal einen Beispielcode wie du auf eine Accessdatenbank ne Abfrag machst.
    Die Funktion gibt ein Dataset zurück, in dem der komplette Inhalt der Tabelle drin ist bzw was halt durch die Abfrage zurück kommt.

    Es wäre auch über einen OLEDBDataReader möglich verhält sich wie der SQLDataReader..

    VB.NET-Quellcode

    1. Public Function FetchData(ByVal FileName As String) As DataSet
    3. 'Define the connectors
    4. Dim oConn As OleDbConnection
    5. Dim oComm As OleDbCommand
    6. Dim oData As OleDbDataAdapter
    7. Dim resultSet As New DataSet
    8. Dim oConnect, oQuery As String
    10. 'Define connection string
    11. oConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";User ID=Admin;Password="
    13. 'Query String
    14. oQuery = "SELECT * FROM accessTest"
    16. 'Instantiate the connectors
    17. oConn = New OleDbConnection(oConnect)
    18. oComm = New OleDbCommand(oQuery, oConn)
    19. oData = New OleDbDataAdapter(oQuery, oConn)
    21. Try
    23. 'Open connection
    24. oConn.Open()
    26. 'Fill dataset
    27. oData.Fill(resultSet, "accessTest")
    29. 'Close connection
    30. oConn.Close()
    32. Catch ex As OleDb.OleDbException
    33. Catch ex As Exception
    35. 'Show error message and exit
    36. MsgBox(ex.Message & vbCrLf & ex.StackTrace)
    38. Finally
    40. 'Dispose the connector objects
    41. If Not (oConn Is Nothing) Then oConn.Dispose()
    42. oConn = Nothing
    43. If Not (oComm Is Nothing) Then oComm.Dispose()
    44. oComm = Nothing
    45. If Not (oData Is Nothing) Then oData.Dispose()
    46. oData = Nothing
    48. End Try
    50. 'Return results
    51. Return resultSet
    53. End Function

    Hallo,

    Also es gibt beim SQL-Server sogenannte Views. Das ist einfach eine Abfrage auf ein oder mehrere Tabellen,
    welche gespeichert wird. Wie man eine solche View per Code erstellt, weiss ich auch.

    Mein Programm verwendet allerdings nicht den SQL-Server sondern eine Accessdatenbank.
    Access unterstützt sogenannte Abfragen, diese lassen sich in Access selber erstellen.
    Ich möchte nun aber eine solche Abfrage per Code erstellen.

    Der Benutzer kann im Programm einige Optionen vornehmen, welche in der DB gespeichert werden. Zudem wird eine Abfrage (Select... from...) erstellt. Und diese Abfrage möchte ich abspeichern...


    Gruß
    sandiro

    VB.NET-Quellcode

    1. Private Sub TestToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TestToolStripMenuItem.Click
    2. Dim con = CategoryTableAdapter.Connection
    3. Dim cmd = New OleDb.OleDbCommand With {.Connection = con}
    4. Dim query = "SELECT * FROM Article WHERE Article.ArticleName LIKE 'A%'"
    5. cmd.CommandText = query
    6. con.Open()
    7. 'query testen
    8. Dim rd = cmd.ExecuteReader
    9. While rd.Read
    10. Console.WriteLine(rd("ArticleName"))
    11. End While
    12. rd.Close()
    13. '/query testen
    14. Dim ViewCreate = "CREATE VIEW ArticleC AS " & query
    15. cmd.CommandText = ViewCreate
    16. cmd.ExecuteNonQuery()
    17. con.Close()
    18. End Sub

    gugge auch Sql-Tut, war der erste treffer bei google

    Also wie man
    Eine View per SQL erstellt weiss ich schon.
    Aber ich habe dies mal direkt in Access versucht und dort hat es nicht funktioniert,
    möglicherweise lags daran, dass ich in einer Abfrage war...

    Ich werde das heute mal in VB probieren....

    Danke und Gruss
    Sandiro


    Edit: Ich habe das bisher nur in Access getestet und dort hat es logischerweise nicht funktioniert (in dem Abfragefenster kann man nur Abfragen erstellen und kann daher per Code keine View erstellen), mit VB hats problemlos geklappt

    Danke und Gruss
    sandiro

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sandiro“ ()

    Also mit VB funktioniert es bei mir auch.

    In Access 2007 kann man unter "Erstellen | Abfrageentwurf" eine neue Abfrage erstellen.
    Dort (wenn man die Ansicht auf SQL wechselt) muss man ja nur die eigentliche Abfrage "SELECT .... FROM ..." eingeben und ohne das "CREATE VIEW", weil es sich ja um eine Abfrage handelt - die mit Ctrl+S unter einem Namen gespeichert werden kann.
    CREATE VIEW kann in diesem Fenster gar nicht verwendet werden.

    Gruss
    Sandiro

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sandiro“ ()

Facebook
Telefonspende