PostgreSQL
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von luka$.
-
-
wie wärs mit SQL??
zb: SELECT ID FROM Tabelle WHERE ID = 5
is nen beispiel
guck mal auf w3schools.com
dort findest du weitere SQL Befehle damit kannst du daten aus der DB auslesen. -
-
-
-
-
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
- Dim connetionString As StringDim cnn As SqlClient.SqlConnection
- connetionString = "Data Source=(local), [[[PORT]]];Initial Catalog=[[[DATENBANK]]];User ID=[[[USER]]];Password="cnn = New SqlClient.SqlConnection(connetionString)
- Try
- cnn.Open()MsgBox("Connection Open ! ")
- cnn.Close()Catch ex As Exception
- MsgBox("Can not open connection ! ")
- End Try
Und leider kommt immer : "Can not open connection ! "
Hmmm -
Mach erstmal eine ordentliche Fehlermeldung:
VB.NET-Quellcode
- Dim connetionString As StringDim cnn As SqlClient.SqlConnection
- connetionString = "Data Source=(local), [[[PORT]]];Initial Catalog=[[[DATENBANK]]];User ID=[[[USER]]];Password="cnn = New SqlClient.SqlConnection(connetionString)
- Try
- cnn.Open()MsgBox("Connection Open ! ")
- cnn.Close()Catch ex As Exception
- MessageBox.Show("Fehler: " & Err.Description & ", Fehlerquelle: " & Err.Source, "Fehler " & Err.Number)
- 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
- con.ConnectionString = _
- "Driver={PostgreSQL};" & _
- "Server=IP des Servers hier eintragen;" & _
- "PORT=5432;" & _
- "Database=Datenbankname hier eintragen;" & _
- "UID=Username eintragen;" & _
- "PWD=Password eintragen"
- cmd.Connection = con
- Catch ex As Exception
- lblInfo.Text = "Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message
- End Try
- und auslesen tue ich dann so:
- Try
- con.Open()
- cmd.CommandText = "select * from db_name
- reader = cmd.ExecuteReader
- Do While reader.Read()
- ......
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:
liegen?!?!?!?!?!?!Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „laterne“ ()
-
-
-
-
-
-
-
Hallo,
der Aktuelle Code ist:VB.NET-Quellcode
- Imports System.Data.Odbc
- Class Programmname
- Private con As New OdbcConnectionPrivate cmd As New OdbcCommandDim reader As OdbcDataReader
- Private Sub SQLLesen()con.ConnectionString = _
- "Driver={PostgreSQL};" & _"Server=IP des Servers hier eintragen;" & _
- "PORT=5432;" & _"Database=Datenbankname hier eintragen;" & _
- "UID=Username eintragen;" & _
- "PWD=Password eintragen"
- cmd.Connection = con
- Catch ex As Exception
- MsgBox("Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message)End Try
- Try
- con.Open()
- cmd.CommandText = "select * from db_name"
- reader = cmd.ExecuteReaderDo While reader.Read()
- Loop
- 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
-
-
Hallo Muecke,
jetzt sieht der Code so aus:
VB.NET-Quellcode
- Imports System.Data.Odbc
- Class Programmname
- Private con As New OdbcConnectionPrivate cmd As New OdbcCommand
- Dim reader As OdbcDataReaderPrivate Sub SQLLesen()
- con.ConnectionString = _"Driver={PostgreSQL};" & _
- "Server=IP des Servers hier eintragen;" & _"PORT=5432;" & _
- "Database=Datenbankname hier eintragen;" & _"UID=Username eintragen;" & _
- "PWD=Password eintragen"
- cmd.Connection = con
- Try
- con.Open()
- cmd.CommandText = "select * from db_name"
- reader = cmd.ExecuteReader
- LoopCatch ex As Exception
- MsgBox("Verbindung zur POS Datenbank fehlgeschlagen " & ex.Message)End Try
- 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
-
Ähnliche Themen
-
kicki6 - - Daten(bank)programmierung
-
jura1982 - - Daten(bank)programmierung
-
2 Benutzer haben hier geschrieben
- Gast (31)
- kevin89 (1)