| 

.NET C# Java Javascript Exception

4

Wie sucht und filtert man Datensätze in einer Datenbank ?

Zwei Methoden zum Suchen und Filtern der Datensätze von einer Datenbank sind unten beschrieben:

1) T-SQL Select Befehl verwenden, um Datensätze zu filtern

Vorbedingungen: DataGridView1 und TextBox1 auf Form1.

 

Imports System.Data.OleDb
Public Class Form1
 '//TextBox_TextChanged Ereignis 
 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 Dim keywords As String = TextBox1.Text
 Dim con As OleDbConnection = New OleDbConnection( _
 "Provider=Microsoft.jet.oledb.4.0;data source=D:\myDB.mdb")
 '//Verwenden von Platzhalter
 Dim cmd As OleDbCommand = New OleDbCommand( _
 "SELECT * FROM Table1 WHERE Filed1 Like '%" & keywords & "%' ", con)
 '//oder Where Filed1='" & keywords & "' 
 con.Open()
 Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
 Dim myDataSet As DataSet = New DataSet()
 myDA.Fill(myDataSet, "MyTable")
 DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView
 End Sub
End Class

2) DataView.RowFilter Eigenschaft verwenden, um Datensätze zu filtern

Vorbedingungen: DataGridView1 und TextBox1 auf Form1.

 

System.Data.OleDb
Public Class Form1
 Dim ds As DataSet
 '//Erstens alle Datensätze an DataGridView binden
 Private Sub Form1_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles MyBase.Load
 Dim con As OleDbConnection = New OleDbConnection( _
 "Provider=Microsoft.jet.oledb.4.0;data source=D:\myDB.mdb")
 Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Table1", con)
 con.Open()
 Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
 ds = New DataSet()
 myDA.Fill(ds, "MyTable")
 con.Close()
 DataGridView1.DataSource = ds.Tables("MyTable").DefaultView
 End Sub
 '//Datentabelle Ansicht filtern
 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 Dim keywords As String = TextBox1.Text
 ds.Tables("MyTable").DefaultView.RowFilter = "Field1 =" & keywords
 '//oder = "Field1 Like '%" & keywords & "%' " 
 End Sub
End Class

[Nach oben]

.net vb.net visual-basic.net
Weitere News:
Schreibe einen Kommentar:
Themen:
visual-basic.net vb.net .net
Entweder einloggen... ...oder ohne Wartezeit registrieren
Benutzername
Passwort
Passwort wiederholen
E-Mail
TOP TECHNOLOGIES CONSULTING GmbH