Verbindung mit Firebird 2.5

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von marctheshark.

    Verbindung mit Firebird 2.5

    Hallo zusammen,

    ich suche nach einem Ansatz mich mit der SQL Datenbank (Firebird) zu verbinden und dort lediglich daten auszulesen.
    Da ich bei Google leider nichts brauchbares gefunden habe oder vielleich nur die falschen Schlüsselwörter benutzt habe
    versuche ich nun hier mein Glück.
    Ich benötige lediglich einen Ansatz.

    Vielen Dank

    Gruß Vom Shark

    Hallo,
    hab nun die Verbindung stehen und kann auch die Daten in ein DataGridView ausgeben.
    Nun möchte ich gerne die selection in verschiedene Textboxen verteilen.
    Jedoch komme ich nicht weiter.... :(



    VB.NET-Quellcode

    1. Imports FirebirdSql.Data.FirebirdClient
    2. Public Class Form1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim login As String
    6. Dim sql As String
    8. login = "Database=e:\test.FDB;" & "User=******;" & "Password=********;" & "Dialect=3;" & "Server=localhost"
    10. Dim verbindung As New FbConnection(login)
    12. verbindung.Open()
    13. Dim dbcmd As IDbCommand = verbindung.CreateCommand()
    14. sql = "select distinct * from kunde where vname like 'Suchname%'"
    16. dbcmd.CommandText = sql
    17. Dim ds As DataSet = New DataSet()
    18. Dim da As FbDataAdapter = New FbDataAdapter(sql, verbindung)
    19. da.Fill(ds)
    21. DataGridView1.DataSource = ds.Tables(0)
    23. verbindung.Close()
    26. End Sub

    Ne es geht um bindingSource ich möchte Textboxen mit Daten füllen und ich dachte das geht nur wenn ich es in einem datagridview anzeigen lasse.
    Jedoch sieht die Lösung ganz einfach aus....

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_datensatz_laden.Click
    2. Dim logindata As String
    3. Dim sql As String
    8. logindata = "Database=c:\test.FDB;" & "User=xxxxx;" & "Password=xxxxx;" & "Dialect=3;" & "Server=localhost"
    10. Dim verbindung As New FbConnection(logindata)
    12. verbindung.Open()
    13. Dim dbcmd As IDbCommand = verbindung.CreateCommand()
    14. sql = "SELECT * FROM KUNDE
    15. dbcmd.CommandText = sql
    16. Dim ds As DataSet = New DataSet()
    17. Dim da As FbDataAdapter = New FbDataAdapter(sql, verbindung)
    18. da.Fill(ds, "kunde")
    20. 'dgv_vertragsliste.DataSource = ds.Tables(0)
    21. bs.DataSource = ds
    22. bs.DataMember = "kunde"
    24. txt_kd_nr.DataBindings.Add("Text", bs, "vname")


    Gruß vom Shark

Facebook
Telefonspende