PostgreSQL

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von luka$.

    PostgreSQL

    Hallo Leute,

    Ich muss eine PostgreSQL-Datenbank auslesen und den letzten wert der Tabelle in eine Datei schreiben.

    Das Problem ist das auslesen der Datenbank. Hat einer schon erfahrung, die Googleergebnisse haben nicht zur Lösung geführt. 8| ?(

    ich habe zwar noch nie mit solch einer Datenbank gearbeitet
    aber normalerweise ist die ablaufroutine die dass du eine Verbindung durch einen Connection string aufbauen musst
    und dann mittels SQL Befehl deine Daten aus der Datenbanka auslesen kannst.

    Hallo lukas,

    sorry, kommt was spät, aber habs leider noch nicht hinbekommen... DU denn?

    (Bin noch dran) Thema ist noch offen

    Habe das hier gefunden:

    VB.NET-Quellcode

    1. Dim connetionString As StringDim cnn As SqlClient.SqlConnection
    2. connetionString = "Data Source=(local), [[[PORT]]];Initial Catalog=[[[DATENBANK]]];User ID=[[[USER]]];Password="cnn = New SqlClient.SqlConnection(connetionString)
    3. Try
    4. cnn.Open()MsgBox("Connection Open ! ")
    5. cnn.Close()Catch ex As Exception
    6. MsgBox("Can not open connection ! ")
    7. End Try


    Und leider kommt immer : "Can not open connection ! "



    Hmmm ?( 8|

    Mach erstmal eine ordentliche Fehlermeldung:

    VB.NET-Quellcode

    1. Dim connetionString As StringDim cnn As SqlClient.SqlConnection
    2. connetionString = "Data Source=(local), [[[PORT]]];Initial Catalog=[[[DATENBANK]]];User ID=[[[USER]]];Password="cnn = New SqlClient.SqlConnection(connetionString)
    3. Try
    4. cnn.Open()MsgBox("Connection Open ! ")
    5. cnn.Close()Catch ex As Exception
    6. MessageBox.Show("Fehler: " & Err.Description & ", Fehlerquelle: " & Err.Source, "Fehler " & Err.Number)
    7. End Try


    Das wird dir schonmal helfen ^^

    Kommt zwar später aber ich habe bei Probleme schom mal gehabt^^
    Also zur DB Verbinden:

    VB.NET-Quellcode

    1. con.ConnectionString = _
    2. "Driver={PostgreSQL};" & _
    3. "Server=IP des Servers hier eintragen;" & _
    4. "PORT=5432;" & _
    5. "Database=Datenbankname hier eintragen;" & _
    6. "UID=Username eintragen;" & _
    7. "PWD=Password eintragen"
    8. cmd.Connection = con
    9. Catch ex As Exception
    10. lblInfo.Text = "Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message
    11. End Try
    13. und auslesen tue ich dann so:
    14. Try
    15. con.Open()
    16. cmd.CommandText = "select * from db_name
    17. reader = cmd.ExecuteReader
    18. Do While reader.Read()
    19. ......


    Und um die Letzte Zeile nur auszugeben kannst du wenn die Tabelle eine Laufende Nummer hat, diese umkehren und dann nur die erste Zeile anzeigen lassen....

    Danke erstmal für eure Hilfe, ja es kommt spät aber nicht zu spät :) Wie gesagt Thema ist noch offen bin an dem Code derzeit am basteln, wenn es funktioniert oder nicht denke ich mal morgen werde ich mich nochmal melden...



    ------------------



    Schlüsselwort wird nicht unterstützt: 'driver'. <--- Hab diese Meldung :(), muss an:

    VB.NET-Quellcode

    1. "Driver={PostgreSQL};" & _


    liegen?!?!?!?!?!?!

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

    Hallo,
    der Aktuelle Code ist:

    VB.NET-Quellcode

    1. Imports System.Data.Odbc
    2. Class Programmname
    3. Private con As New OdbcConnectionPrivate cmd As New OdbcCommandDim reader As OdbcDataReader
    5. Private Sub SQLLesen()con.ConnectionString = _
    6. "Driver={PostgreSQL};" & _"Server=IP des Servers hier eintragen;" & _
    7. "PORT=5432;" & _"Database=Datenbankname hier eintragen;" & _
    8. "UID=Username eintragen;" & _
    9. "PWD=Password eintragen"
    10. cmd.Connection = con
    11. Catch ex As Exception
    12. MsgBox("Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message)End Try
    14. Try
    15. con.Open()
    16. cmd.CommandText = "select * from db_name"
    17. reader = cmd.ExecuteReaderDo While reader.Read()
    18. Loop
    19. End Sub


    Fehler 1 "Catch" kann nicht außerhalb einer Try-Anweisung verwendet werden. CForm1.vb 26 9
    Fehler 2 "Try" muss mindestens ein "Catch" oder ein "Finally" haben. Form1.vb 31 9
    Fehler 3 "Try" muss mit einem entsprechenden "End Try" abgeschlossen werden. Form1.vb 31 9

    ?( 8| ;(

    zuerst kommt try und dann catch. so müsste das aussehen:

    VB.NET-Quellcode

    1. Try
    2. con.Open()
    3. cmd.CommandText = "select * from db_name"
    4. reader = cmd.ExecuteReaderDo While reader.Read()
    5. Loop
    6. Catch ex As Exception
    7. MsgBox("Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message)
    8. End Try
    9. End Sub

    Hallo Muecke,



    jetzt sieht der Code so aus:

    VB.NET-Quellcode

    1. Imports System.Data.Odbc
    2. Class Programmname
    3. Private con As New OdbcConnectionPrivate cmd As New OdbcCommand
    4. Dim reader As OdbcDataReaderPrivate Sub SQLLesen()
    5. con.ConnectionString = _"Driver={PostgreSQL};" & _
    6. "Server=IP des Servers hier eintragen;" & _"PORT=5432;" & _
    7. "Database=Datenbankname hier eintragen;" & _"UID=Username eintragen;" & _
    8. "PWD=Password eintragen"
    9. cmd.Connection = con
    10. Try
    11. con.Open()
    12. cmd.CommandText = "select * from db_name"
    13. reader = cmd.ExecuteReader
    14. LoopCatch ex As Exception
    15. MsgBox("Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message)End Try
    16. End Sub


    Und folgene Fehlermeldungen:
    Fehler 1 "Try" muss mindestens ein "Catch" oder ein "Finally" haben. Form1.vb 28 9
    Fehler 2 "Loop" muss ein entsprechendes "Do" voranstehen. Form1.vb 32 1
    Fehler 3 "Catch" kann nicht außerhalb einer Try-Anweisung verwendet werden. Form1.vb 33 9

    Wie gesagt ich noch anfänger und habe mittlerweile total den überblick verloren was jetzt das Problem ist. :pinch:
    Gruß Pascal

Facebook
Telefonspende