Hallo,
ich habe folgenden Code (Danke an das Internet). Allerdings möchte ich das ich mein Programm auf mehreren Computern im Netzwerk ausführen kann. Dann kommt jedoch der Fehler. Mein Provider sei nicht installiert- Stimmt ja auch. Ich möchte Ihn aber nicht installieren (handelt sich so um 60 PC´s).
Gibts ne alternative? Die dll im Exe Verzeichnis hat nicht geklappt.
Danke vorab. LG
*Topic verschoben*
ich habe folgenden Code (Danke an das Internet). Allerdings möchte ich das ich mein Programm auf mehreren Computern im Netzwerk ausführen kann. Dann kommt jedoch der Fehler. Mein Provider sei nicht installiert- Stimmt ja auch. Ich möchte Ihn aber nicht installieren (handelt sich so um 60 PC´s).
Gibts ne alternative? Die dll im Exe Verzeichnis hat nicht geklappt.
Danke vorab. LG
VB.NET-Quellcode
- Imports System.Data.OleDb
- Public Class Form1
- Private ConnectionString As String = "Provider=VFPOLEDB;Data Source=\\NAS-QNAP\Daten;Collating Sequence=MACHINE"
- Private filteredRows As DataRow()
- Private currentFilteredIndex As Integer = 0
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- FilterData()
- ShowFilteredData(currentFilteredIndex)
- End Sub
- Private Sub FilterData()
- Try
- Using connection As New OleDbConnection(ConnectionString)
- connection.Open()
- ' SQL-Abfrage erstellen
- Dim query As String = "SELECT MEMO, IST_MEMO FROM bericht WHERE IST_DAT = CTOD('1899-12-30') AND betreff LIKE '%Meldungen%'"
- ' Datenadapter erstellen
- Using adapter As New OleDbDataAdapter(query, connection)
- ' DataTable erstellen und Daten aus der DBF-Datei laden
- Dim dataTable As New DataTable()
- adapter.Fill(dataTable)
- ' Filtern der Daten im DataTable
- filteredRows = dataTable.Select()
- End Using
- End Using
- Catch ex As Exception
- MessageBox.Show("Fehler beim Laden der Daten: " & ex.Message)
- End Try
- End Sub
- Private Sub ShowFilteredData(index As Integer)
- ' Überprüfen, ob der angegebene Index gültig ist
- If index >= 0 AndAlso index < filteredRows.Length Then
- ' Den Text der MEMO-Spalte in TextBox1 einfügen
- TextBox1.Text = filteredRows(index)("MEMO").ToString()
- ' Den Text der IST_MEMO-Spalte in TextBox2 einfügen
- TextBox2.Text = filteredRows(index)("IST_MEMO").ToString()
- Else
- TextBox1.Text = "Keine weiteren Datensätze vorhanden, Zeige ersten Datensatz"
- TextBox2.Text = ""
- currentFilteredIndex = 0
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ' Zum nächsten Datensatz wechseln
- currentFilteredIndex += 1
- ShowFilteredData(currentFilteredIndex)
- End Sub
- End Class
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()