I have developed a form that would allow the user to load and search a
database several ways, by data range using two combo boxes, by specific
number entered in a text box or all database entries. I'm able to use the
combo box selection method multiple times with no problem However, when I try
to type in a specific drawing number in the txtDrawingNum.t ext field and
click btnLoad I get the
same dataset that I previously had from the combo boxes. Any ideas?
The data bindings are all to text boxes and one checkbox. It is an MS ACCESS
database I am connecting to.
Imports System.Data
Imports System.Data.Ole Db
+ Windows Form Designer generated code
Dim dataset1 As New DataSet1
Dim ConnectionStrin g As String = "Provider=Micro soft.Jet.OLEDB. 4.0; Data
Source = C:\AutoCAD Project\AutoCAD _Files.mdb; User ID=Admin"
Dim Connection1 As OleDbConnection = New OleDbConnection (ConnectionStri ng)
Dim IDbinding As New Binding("Text", dataset1, "AutoCAD_Files. ID")
Dim FileNamebinding As New Binding("Text", dataset1, "AutoCAD_Fi les.
FILE_NAME")
Dim FileTitlebindin g As New Binding("Text", dataset1, "AutoCAD_Fi les.
FILE_TITLE")
Dim FileDescbinding As New Binding("Text", dataset1, "AutoCAD_Fi les.
FILE_DESCRIPTIO N")
Dim RevLetterbindin g As New Binding("Text", dataset1, "AutoCAD_Fi les.
REV_LETTER")
Dim OrigDatebinding As New Binding("Text", dataset1, "AutoCAD_Fi les.
ORIGINATION_DAT E")
Dim DateModifiedbin ding As New Binding("Text", dataset1, "AutoCAD_Fi les.
DATE_MODIFIED")
Dim daAdapter1 As OleDbDataAdapte r = New OleDbDataAdapte r
Dim daAdapter2 As OleDbDataAdapte r = New OleDbDataAdapte r
Dim daAdapter3 As OleDbDataAdapte r = New OleDbDataAdapte r
Public Sub btnLoad_Click(B yVal sender As System.Object, ByVal e As System.
EventArgs) Handles btnLoad.Click
Dim Command1 As OleDbCommand = New OleDbCommand("S ELECT * FROM
AutoCAD_Files", Connection1)
Connection1.Ope n()
Command1.Connec tion = Connection1
' Check if a drawing number range is selected
If ComboBox1.Selec tedItem <> "" And ComboBox2.Selec tedItem <> "" Then
Dim FromRange As String
Dim ToRange As String
Dim SQLRange As String
FromRange = Trim(UCase(Comb oBox1.SelectedI tem))
ToRange = Trim(UCase(Comb oBox2.SelectedI tem))
SQLRange = "SELECT * FROM AutoCAD_Files WHERE FILE_NAME BETWEEN
""" & FromRange & """ AND """ & ToRange & """"
Dim Command3 As OleDbCommand = New OleDbCommand(SQ LRange,
Connection1)
daAdapter3.Sele ctCommand = Command3
DataGrid1.Visib le = True
daAdapter3.Fill (dataset1, "AutoCAD_Files" )
DataGrid1.SetDa taBinding(datas et1, "AutoCAD_Files" )
editID.DataBind ings.Clear()
editID.DataBind ings.Add(IDbind ing)
editFILE_NAME.D ataBindings.Cle ar()
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Cl ear()
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Clear()
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Cl ear()
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Clear()
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
editDATE_MODIFI ED.DataBindings .Clear()
editDATE_MODIFI ED.DataBindings .Add(DateModifi edbinding)
Me.lblNavLocati on.Text = (((Me.BindingCo ntext(dataset1,
"AutoCAD_Files" ).Position + 1).ToString + " of ") _
+ Me.BindingConte xt(dataset1, "AutoCAD_Files" ).Count.
ToString)
Connection1.Clo se()
Exit Sub
End If
' Check if a drawing number is specified
If txtDrawingNum.T ext <> "" Then
Dim SearchString As String
Dim SQL As String
SearchString = Trim(UCase(txtD rawingNum.Text) )
SQL = "SELECT * FROM AutoCAD_Files WHERE FILE_NAME LIKE """ &
SearchString & """"
Dim command2 As OleDbCommand = New OleDbCommand(SQ L, Connection1)
daAdapter2.Sele ctCommand = command2
DataGrid1.Visib le = True
daAdapter2.Fill (dataset1, "AutoCAD_Files" )
DataGrid1.SetDa taBinding(datas et1, "AutoCAD_Files" )
editID.DataBind ings.Clear()
editID.DataBind ings.Add(IDbind ing)
editFILE_NAME.D ataBindings.Cle ar()
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Cl ear()
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Clear()
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Cl ear()
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Clear()
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
editDATE_MODIFI ED.DataBindings .Clear()
editDATE_MODIFI ED.DataBindings .Add(DateModifi edbinding)
Me.lblNavLocati on.Text = (((Me.BindingCo ntext(dataset1,
"AutoCAD_Files" ).Position + 1).ToString + " of ") _
+ Me.BindingConte xt(dataset1, "AutoCAD_Files" ).Count.
ToString)
Connection1.Clo se()
Exit Sub
End If
daAdapter1.Sele ctCommand = Command1
DataGrid1.Visib le = True
daAdapter1.Fill (dataset1, "AutoCAD_Files" )
DataGrid1.SetDa taBinding(datas et1, "AutoCAD_Files" )
editID.DataBind ings.Clear()
editID.DataBind ings.Add(IDbind ing)
editFILE_NAME.D ataBindings.Cle ar()
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Cl ear()
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Clear()
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Cl ear()
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Clear()
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
editDATE_MODIFI ED.DataBindings .Clear()
editDATE_MODIFI ED.DataBindings .Add(DateModifi edbinding)
Me.lblNavLocati on.Text = (((Me.BindingCo ntext(dataset1,
"AutoCAD_Files" ).Position + 1).ToString + " of ") _
+ Me.BindingConte xt(dataset1, "AutoCAD_Files" ).Count.
ToString)
Connection1.Clo se()
Exit Sub
End Sub
Private Sub btnClearForm_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnClearForm.Cl ick
dataset1.Clear( )
DataGrid1.Hide( )
lblNavLocation. Text = ""
txtNumber_of_Dr awings.Text = ""
txtDrawingNum.T ext = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
End Sub
--
Message posted via http://www.dotnetmonster.com
