Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Access Feld(er) auslesen
Autor: lars007
Datum: 10.06.04 17:50
Hallo Nils, so schnell kan es gehen und schon benötige ich selber sowas... Und nach reichlichem Studium der Unterlagen, kann ich sagen es geht, man kann eine Listbox fest an eine DB anbinden, bedarf aber ein wenig Extracode... Deshalb habe ich wieder den kompletten Beispiel-Code nachfolgend gepostet... Code: Imports System.Windows.Forms Imports System.Data.OleDb Public Class Form1 Inherits System.Windows.Forms.Form Dim cm As CurrencyManager Dim dv As DataView #Region " Vom Windows Form Designer generierter Code " Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ds As DataSet Dim da As OleDbDataAdapter Dim dt As DataTable Dim SQL As String = "Select * from Test" Dim conn As OleDbConnection conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb") Dim cmd As New OleDbCommand(SQL, conn) da = New OleDbDataAdapter(cmd) ds = New DataSet Try conn.Open() da.Fill(ds, "Test") dt = ds.Tables.Item("Test") cm = Me.BindingContext(dt) dv = ds.DefaultViewManager.CreateDataView(dt) TextBox1.DataBindings.Add("Text", dt, "Feld1") TextBox2.DataBindings.Add("Text", dt, "Feld2") TextBox3.DataBindings.Add("Text", dt, "Feld3") ListBox1.DataSource = dv ListBox1.DisplayMember = "Feld1" Catch ex As Exception MessageBox.Show(ex.Message) End Try conn.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cm.Position += 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cm.Position -= 1 End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged TextBox1.Text = dv.Item(ListBox1.SelectedIndex).Row.Item("Feld1") TextBox2.Text = dv.Item(ListBox1.SelectedIndex).Row.Item("Feld2") TextBox3.Text = dv.Item(ListBox1.SelectedIndex).Row.Item("Feld3") End Sub End Class Gruß Lars

Access Feld(er) auslesen	1.511	nilslueders	02.06.04 15:30
Re: Access Feld(er) auslesen	988	lars007	02.06.04 17:35
Re: Access Feld(er) auslesen	935	lars007	02.06.04 18:34
Re: Access Feld(er) auslesen	991	nilslueders	07.06.04 11:25
Re: Access Feld(er) auslesen	992	lars007	07.06.04 12:48
Re: Access Feld(er) auslesen	957	nilslueders	07.06.04 13:02
Re: Access Feld(er) auslesen	933	spike24	07.06.04 13:14
Re: Access Feld(er) auslesen	928	nilslueders	07.06.04 13:22
Re: Access Feld(er) auslesen	947	spike24	07.06.04 13:33
Re: Access Feld(er) auslesen	1.038	nilslueders	07.06.04 13:46
Re: Access Feld(er) auslesen	906	spike24	07.06.04 13:56
Re: Access Feld(er) auslesen	996	lars007	07.06.04 13:57
Re: Access Feld(er) auslesen	914	nilslueders	07.06.04 15:39
Re: Access Feld(er) auslesen	909	lars007	07.06.04 18:33
Re: Access Feld(er) auslesen	918	nilslueders	08.06.04 06:30
Re: Access Feld(er) auslesen	990	lars007	08.06.04 13:30
Re: Access Feld(er) auslesen	962	lars007	10.06.04 17:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen