I have developed a form that would allow the user to load and search a
database several ways, by data range, by specific number or all database
entries. I can successfully load any of the ways once. But when I click a
button labeled "Clear Form" and then attempt to load data again I get the
following error message:
An unhandled exception of type 'System.Argumen tException' occurred in system.
windows.forms.d ll
Additional information: This would cause two bindings in the collection to
bind to the same property.
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
Public Class frmDataEntry
Inherits System.Windows. Forms.Form
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)
Private Sub frmDataEntry_Lo ad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
lblNavLocation. Text = ""
End Sub
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
Dim daAdapter1 As OleDbDataAdapte r = New OleDbDataAdapte r
Dim daAdapter2 As OleDbDataAdapte r = New OleDbDataAdapte r
Dim daAdapter3 As OleDbDataAdapte r = New OleDbDataAdapte r
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_Files. DATE_MODIFIED")
' 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.Add(IDbind ing)
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
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.Add(IDbind ing)
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
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.Add(IDbind ing)
editFILE_NAME.D ataBindings.Add (FileNamebindin g)
editFILE_TITLE. DataBindings.Ad d(FileTitlebind ing)
editFILE_DESCRI PTION.DataBindi ngs.Add(FileDes cbinding)
editREV_LETTER. DataBindings.Ad d(RevLetterbind ing)
editORIGINATION _DATE.DataBindi ngs.Add(OrigDat ebinding)
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
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
