Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Autovervollständigen
Autor: lars007
Datum: 14.06.04 14:29
Hallo Ria, wenn ich Dich richtig verstanden habe, dann könnte Dir folgendes Beispiel helfen... [u]Code-Beispiel: Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If TextBox1.Text = "" Then Label1.DataBindings.Clear() Label2.DataBindings.Clear() Label3.DataBindings.Clear() Label1.Text = "" Label2.Text = "" Label3.Text = "" Exit Sub End If Dim conn As OleDb.OleDbConnection Dim cmd As OleDb.OleDbCommand Dim da As OleDb.OleDbDataAdapter Dim ds As DataSet Dim dt As DataTable conn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb") Label1.DataBindings.Clear() Label2.DataBindings.Clear() Label3.DataBindings.Clear() Label1.Text = "" Label2.Text = "" Label3.Text = "" Try Dim sql As String sql = "Select * from Test1 where Feld1 Like '" & TextBox1.Text & "%" & "' order by Feld1" cmd = New OleDb.OleDbCommand(sql, conn) da = New OleDb.OleDbDataAdapter(cmd) ds = New DataSet conn.Open() da.Fill(ds, "Test1") dt = ds.Tables.Item("Test1") Label1.DataBindings.Add("Text", dt, "Feld1") Label2.DataBindings.Add("Text", dt, "Feld2") Label3.DataBindings.Add("Text", dt, "Feld3") Catch ex As Exception MessageBox.Show(ex.Message) End Try conn.Close() TextBox1.Focus() End Sub Gruß Lars

Autovervollständigen	712	Rookie_in_Action	14.06.04 10:10
Re: Autovervollständigen	485	leth	14.06.04 11:11
Re: Autovervollständigen	477	Rookie_in_Action	14.06.04 11:18
Re: Autovervollständigen	455	leth	14.06.04 11:20
Re: Autovervollständigen	464	lars007	14.06.04 14:29
Re: Autovervollständigen	542	Rookie_in_Action	14.06.04 16:52
Re: Autovervollständigen	492	Micke	14.06.04 17:30

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