Search access database by search work or filter database for results

EDN Admin

EDN Admin

Well-known member
Joined
Aug 7, 2010
Messages
12,794
Location
In the Machine
Hi, My code below displays my database in listview. At the moment the database is filtered in ASC order by the manufacturer. Ive tried to filter to filter the database in decending order but i get an error something the start must be less than infinity.
But i would also like the put a key word into the database and display the row with the result. can anyone give me any ideas???
<span style="color:#0000ff; font-size:small <span style="color:#0000ff; font-size:small <span style="color:#0000ff; font-size:small <span style="font-size:small <span style="font-size:small <a> <span style="font-size:small <span style="font-size:small <span style="font-size:small <span style="font-size:small


<span style="font-family:Consolas; color:blue; font-size:9.5pt Imports<span style="font-family:Consolas; font-size:9.5pt System.Data.OleDb

<span style="font-family:Consolas; color:blue; font-size:9.5pt Public<span style="font-family:Consolas; font-size:9.5pt
<span style="color:blue Class <span style="color:#2b91af frmCustomersList
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Dim sSql <span style="color:blue As <span style="color:blue
String

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub frmCustomersList_Load(<span style="color:blue ByVal sender
<span style="color:blue As System.<span style="color:#2b91af Object,
<span style="color:blue ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles <span style="color:blue MyBase.Load
<span style="font-family:Consolas; font-size:9.5pt <span>
sSql = <span style="color:#a31515 "SELECT PartNo, Model, Manufacturer, Description, NumberinStock FROM Stock ORDER BY Manufacturer ASC"

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Call FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub lvList_DoubleClick(<span style="color:blue ByVal sender
<span style="color:blue As <span style="color:blue Object, <span style="color:blue
ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles lvList.DoubleClick
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Dim PartNo <span style="color:blue As
<span style="color:blue String

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue For <span style="color:blue Each sItem
<span style="color:blue As <span style="color:#2b91af ListViewItem
<span style="color:blue In lvList.SelectedItems
<span style="font-family:Consolas; font-size:9.5pt <span>
PartNo = sItem.Text
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Next

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue With frmCustomers
<span style="font-family:Consolas; font-size:9.5pt <span>
.State = <span style="color:#2b91af gModule.<span style="color:#2b91af FormState.adStateEditMode
<span style="font-family:Consolas; font-size:9.5pt <span>
.PartNo = PartNo

<span style="font-family:Consolas; font-size:9.5pt <span>
.ShowDialog()

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Call FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue With

<span style="font-family:Consolas; font-size:9.5pt <span>
frmCustomers = <span style="color:blue Nothing
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub frmCustomersList_Resize(<span style="color:blue ByVal sender
<span style="color:blue As <span style="color:blue Object, <span style="color:blue
ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles <span style="color:blue Me.Resize
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue If <span style="color:blue Me.WindowState <>
<span style="color:#2b91af FormWindowState.Minimized <span style="color:blue
Then
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue If <span style="color:blue Me.Width < 550
<span style="color:blue Then <span style="color:blue Me.Width = 550
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue If <span style="color:blue Me.Height < 250
<span style="color:blue Then <span style="color:blue Me.Height = 250
<span style="font-family:Consolas; font-size:9.5pt <span>
lvList.Height = <span style="color:blue Me.Height - 96
<span style="font-family:Consolas; font-size:9.5pt <span>
lvList.Width = <span style="color:blue Me.Width - 10
<span style="font-family:Consolas; font-size:9.5pt <span> <span> <span style="color:blue End
<span style="color:blue If
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub btnAdd_Click(<span style="color:blue ByVal sender
<span style="color:blue As System.<span style="color:#2b91af Object,
<span style="color:blue ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles btnAdd.Click
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green Dim PartNo As String
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Dim Customers <span style="color:blue As
<span style="color:blue New <span style="color:#2b91af frmCustomers

<span style="font-family:Consolas; font-size:9.5pt <span>
Customers.State = <span style="color:#2b91af gModule.<span style="color:#2b91af FormState.adStateAddMode

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green For Each sItem As ListViewItem In lvList.SelectedItems
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green <span> PartNo = sItem.Text
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green Next

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green frmCustomers.PartNo = PartNo
<span style="font-family:Consolas; font-size:9.5pt <span>
Customers.ShowDialog()

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Call FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub btnDelete_Click(<span style="color:blue ByVal sender
<span style="color:blue As System.<span style="color:#2b91af Object,
<span style="color:blue ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles btnDelete.Click
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Dim PartNo <span style="color:blue As
<span style="color:blue String

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue For <span style="color:blue Each sItem
<span style="color:blue As <span style="color:#2b91af ListViewItem
<span style="color:blue In lvList.SelectedItems
<span style="font-family:Consolas; font-size:9.5pt <span>
PartNo = sItem.Text
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Next

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue If PartNo <> <span style="color:#a31515
"" <span style="color:blue Then
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:green Delete the selected record
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Dim strDeleted <span style="color:blue As
<span style="color:blue Boolean

<span style="font-family:Consolas; font-size:9.5pt <span>
strDeleted = ExecNonQuery(<span style="color:#a31515 "DELETE Customers.PartNo FROM Stock WHERE PartNo= " & PartNo &
<span style="color:#a31515 "")

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue If strDeleted = <span style="color:#a31515
"True" <span style="color:blue Then
<span style="font-family:Consolas; font-size:9.5pt <span>
MsgBox(<span style="color:#a31515 "Records deleted.", <span style="color:#2b91af
MsgBoxStyle.Information)

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Call FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Else
<span style="font-family:Consolas; font-size:9.5pt <span>
MsgBox(strDeleted)
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue If
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Else
<span style="font-family:Consolas; font-size:9.5pt <span>
MsgBox(<span style="color:#a31515 "Please select record to delete.",
<span style="color:#2b91af MsgBoxStyle.Critical)
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue If
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue With lvList
<span style="font-family:Consolas; font-size:9.5pt <span>
.Clear()

<span style="font-family:Consolas; font-size:9.5pt <span>
.View = <span style="color:#2b91af View.Details
<span style="font-family:Consolas; font-size:9.5pt <span>
.FullRowSelect = <span style="color:blue True
<span style="font-family:Consolas; font-size:9.5pt <span>
.GridLines = <span style="color:blue True
<span style="font-family:Consolas; font-size:9.5pt <span>
.Columns.Add(<span style="color:#a31515 "PartNo ", 100)
<span style="font-family:Consolas; font-size:9.5pt <span>
.Columns.Add(<span style="color:#a31515 "Model", 150)
<span style="font-family:Consolas; font-size:9.5pt <span>
.Columns.Add(<span style="color:#a31515 "Manufacturer", 140)
<span style="font-family:Consolas; font-size:9.5pt <span>
.Columns.Add(<span style="color:#a31515 "Description", 130)
<span style="font-family:Consolas; font-size:9.5pt <span>
.Columns.Add(<span style="color:#a31515 "NumberinStock", 200)

<span style="font-family:Consolas; font-size:9.5pt <span>
FillListView(lvList, GetData(sSql))
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue With
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub Button1_Click(<span style="color:blue ByVal sender
<span style="color:blue As System.<span style="color:#2b91af Object,
<span style="color:blue ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles Button1.Click
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Me.Close()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Private <span style="color:blue Sub Refresh_Click(<span style="color:blue ByVal sender
<span style="color:blue As System.<span style="color:#2b91af Object,
<span style="color:blue ByVal e <span style="color:blue As System.<span style="color:#2b91af EventArgs)
<span style="color:blue Handles Refresh.Click
<span style="font-family:Consolas; font-size:9.5pt <span>
sSql = <span style="color:#a31515 "SELECT Stock WHERE manufacturer=Balluff "

<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue Call FillList()
<span style="font-family:Consolas; font-size:9.5pt <span>
<span style="color:blue End <span style="color:blue Sub
<span style="font-family:Consolas; color:blue; font-size:9.5pt End<span style="font-family:Consolas; font-size:9.5pt
<span style="color:blue Class

View the full article
 

Similar threads

M
StartupNextInstance not always firing
Replies
0
Views
836
mjscott007
M
M
StartupNextInstance not always firing
Replies
0
Views
688
mjscott007
M
M
StartupNextInstance not always firing
Replies
0
Views
413
mjscott007
M
C
Can someone help me take a look.
Replies
0
Views
141
christing
C
X
Determine which groupbox triggered button click event
Replies
0
Views
233
x73
X
Back
Top