matt_swinburne
asked on
I have two tables and I need to display data from one table into a textbox
Basically this is a simple question as my knowledge on .net is limited. I have two tables;
Main;
ID (int obviously)
LocationID (also int)
(there are more fields but arent relevent)
Location;
LocationID
LocationName
I have used the wizard to create a dataform and had all of the results displayed in textboxes. My problem is that LocationID(Main) consists of a refernance no. refering to LocationName(Location) . Unfortunatley all I can get it to display is the ID number and not the Location name as required. I heard you use Look up tables? As I say my knowledge is limited and any help would be much apprecitated.
Main;
ID (int obviously)
LocationID (also int)
(there are more fields but arent relevent)
Location;
LocationID
LocationName
I have used the wizard to create a dataform and had all of the results displayed in textboxes. My problem is that LocationID(Main) consists of a refernance no. refering to LocationName(Location) . Unfortunatley all I can get it to display is the ID number and not the Location name as required. I heard you use Look up tables? As I say my knowledge is limited and any help would be much apprecitated.
Also I forgot, to probably want it to update the main table
so also add this
combobox1.datasource = yourlocationtable
combobox1.displaymember = locationname
combobox1.Valuemember = locationID
ComboBox1.DataBindings.Add ("selected value", yourmaintable, "LocationId")
so also add this
combobox1.datasource = yourlocationtable
combobox1.displaymember = locationname
combobox1.Valuemember = locationID
ComboBox1.DataBindings.Add
sorry again (its early here)
combobox1.datasource = yourlocationtable
combobox1.displaymember = "LocationName"
combobox1.Valuemember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", yourmaintable, "LocationID")
combobox1.datasource = yourlocationtable
combobox1.displaymember = "LocationName"
combobox1.Valuemember = "LocationID"
ComboBox1.DataBindings.Add
ASKER
Hi thanks for the prompt reply. Tried the top help;
combobox1.datasource = yourlocationtable
combobox1.displaymember = locationname
combobox1.Valuemember = locationID
Edited it to this;
ComboBox1.DataSource = DbLocation
ComboBox1.DisplayMember = "locationname"
ComboBox1.ValueMember = "locationID"
Now get;
An unhandled exception of type 'System.Exception' occurred in system.windows.forms.dll
Additional information: Complex DataBinding accepts as a data source either an IList or an IListSource
(Remember my knowledge is basic so dont presume anything!!)
Thankyou for all help
combobox1.datasource = yourlocationtable
combobox1.displaymember = locationname
combobox1.Valuemember = locationID
Edited it to this;
ComboBox1.DataSource = DbLocation
ComboBox1.DisplayMember = "locationname"
ComboBox1.ValueMember = "locationID"
Now get;
An unhandled exception of type 'System.Exception' occurred in system.windows.forms.dll
Additional information: Complex DataBinding accepts as a data source either an IList or an IListSource
(Remember my knowledge is basic so dont presume anything!!)
Thankyou for all help
what is dblocation, the error says that it is not a datasource
ASKER
dblocation is the dataadapter i renamed to be more clear. I create the connection and drag the relevent tables onto the Form. For example I start with a blank form and drag the table Main onto the form and rename the adapter as DbMain, then do the same for the table Locations, rename the adapter as DbLocations. I then generate the dataset. I then add a combo box to the form. Add the code to the form load, and then get that error.
ASKER
I forgot to mention, I am dragging the tables from Server explorer
the datasource of the combobox should be a table not a dataadapter.
so if your dataset is called ds
then use
combobox1.datasource = Ds.tables(0) ' or ds.tables(1) depends on which one is the location table
so if your dataset is called ds
then use
combobox1.datasource = Ds.tables(0) ' or ds.tables(1) depends on which one is the location table
ASKER
Hi again! Really apreciate the help as I am sure you find answering simple questions like these a chore. But anyway, I now dont have any errors and am using this coding you supplied;
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables(1), "LocationID")
End Sub
However nothing is populating the combobox and is just left blank. Do remember post:
I create the connection and drag the relevent tables onto the Form. For example I start with a blank form and drag the table Main onto the form and rename the adapter as DbMain, then do the same for the table Locations, rename the adapter as DbLocations. I then generate the dataset. I then add a combo box to the form. Add the code to the form load, and then get that error
(This is all I do and am no longer using the wizard it is purely just a combobox on the form)
Thanks
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
However nothing is populating the combobox and is just left blank. Do remember post:
I create the connection and drag the relevent tables onto the Form. For example I start with a blank form and drag the table Main onto the form and rename the adapter as DbMain, then do the same for the table Locations, rename the adapter as DbLocations. I then generate the dataset. I then add a combo box to the form. Add the code to the form load, and then get that error
(This is all I do and am no longer using the wizard it is purely just a combobox on the form)
Thanks
ok, you also have to fill the dataset with data, like
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbmain.fill(dataset11,"Mai n")
dblocation.fill(dataset11, "Location" )
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location "), "LocationID")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbmain.fill(dataset11,"Mai
dblocation.fill(dataset11,
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
ASKER
OK. Added that;
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Location")
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables(1), "LocationID")
End Sub
The combo box now displays the ID number not the location name
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
The combo box now displays the ID number not the location name
ASKER
Sorry slight alteration;
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Location")
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
>> ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location s"), "LocationID")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
>> ComboBox1.DataBindings.Add
End Sub
these don't match
DbLocations.Fill(DataSet11 , "Location")
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location s"), "LocationID")
if the table is called "locations" in your typed dataset
than it should be
DbLocations.Fill(DataSet11 , "Locations")
or if it is called location
then it should be
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location "), "LocationID")
DbLocations.Fill(DataSet11
ComboBox1.DataBindings.Add
if the table is called "locations" in your typed dataset
than it should be
DbLocations.Fill(DataSet11
or if it is called location
then it should be
ComboBox1.DataBindings.Add
Sorry, this should probably be
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location s"), "LocationID")
this
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Main"), "LocationID")
ComboBox1.DataBindings.Add
this
ComboBox1.DataBindings.Add
ASKER
OK. Changed name (so simple should have noticed)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Locations")
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Location s"), "LocationID")
End Sub
However I am still getting the actual ID as oppose to the actual location name (i don't need relationships set up or anything do I) I just want the combobox to look up the Location ID in Main and then goto Locations table and get the corrosponding Location Name.
Sorry to take so long getting this right, perhaps I am being unclear, please ask me anything you need expanding on although I think you know exactly what I am doing here.
Once again thanks
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
However I am still getting the actual ID as oppose to the actual location name (i don't need relationships set up or anything do I) I just want the combobox to look up the Location ID in Main and then goto Locations table and get the corrosponding Location Name.
Sorry to take so long getting this right, perhaps I am being unclear, please ask me anything you need expanding on although I think you know exactly what I am doing here.
Once again thanks
ASKER
OK; Made change from Locations to Main
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Locations")
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Main"), "LocationID")
End Sub
Still getting the ID number and not the ID name
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
Still getting the ID number and not the ID name
the members are casesensitive
so locationname is different from LocationName use the exact name that is in your table. If that doesn't work could you then post your entire form (including the windows generated code)
so locationname is different from LocationName use the exact name that is in your table. If that doesn't work could you then post your entire form (including the windows generated code)
ASKER
How can I upload it?
Just paste it in here
just the code ofcourse :-)
ASKER
Sorry i thought you meant to upload the .net files and the database
No just the form code (including the windows generated code)
ASKER
OK, This is the form code
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.ICon tainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbCon nection
Friend WithEvents DbMain As System.Data.OleDb.OleDbDat aAdapter
Friend WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbUpdateCommand2 As System.Data.OleDb.OleDbCom mand
Friend WithEvents OleDbDeleteCommand2 As System.Data.OleDb.OleDbCom mand
Friend WithEvents DbLocations As System.Data.OleDb.OleDbDat aAdapter
Friend WithEvents DataSet11 As WindowsApplication3.DataSe t1
Friend WithEvents ComboBox1 As System.Windows.Forms.Combo Box
<System.Diagnostics.Debugg erStepThro ugh()> Private Sub InitializeComponent()
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCom mand
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCom mand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCom mand
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCom mand
Me.OleDbConnection1 = New System.Data.OleDb.OleDbCon nection
Me.DbMain = New System.Data.OleDb.OleDbDat aAdapter
Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCom mand
Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCom mand
Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCom mand
Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCom mand
Me.DbLocations = New System.Data.OleDb.OleDbDat aAdapter
Me.DataSet11 = New WindowsApplication3.DataSe t1
Me.ComboBox1 = New System.Windows.Forms.Combo Box
CType(Me.DataSet11, System.ComponentModel.ISup portInitia lize).Begi nInit()
Me.SuspendLayout()
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.Com mandText = "SELECT BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], DestroyDate" & _
", DestroyFlag, FeeEarnerID, ID, LocationID, MatterNo, MatterTypeID, Notes, Offic" & _
"eName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, truede" & _
"stroydate FROM Main"
Me.OleDbSelectCommand1.Con nection = Me.OleDbConnection1
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.Com mandText = "INSERT INTO Main(BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], D" & _
"estroyDate, DestroyFlag, FeeEarnerID, LocationID, MatterNo, MatterTypeID, Notes," & _
" OfficeName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, " & _
"truedestroydate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
")"
Me.OleDbInsertCommand1.Con nection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Bo xNumber", System.Data.OleDb.OleDbTyp e.Integer, 0, "BoxNumber"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Cl ientName", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "ClientName"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Cl oseDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "CloseDate"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Da teIn", System.Data.OleDb.OleDbTyp e.DBDate, 0, "DateIn"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroy_this _File", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "Destroy this File"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroyDate" , System.Data.OleDb.OleDbTyp e.DBDate, 0, "DestroyDate"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroyFlag" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, "DestroyFlag"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Fe eEarnerID" , System.Data.OleDb.OleDbTyp e.Integer, 0, "FeeEarnerID"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Lo cationID", System.Data.OleDb.OleDbTyp e.Integer, 0, "LocationID"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Ma tterNo", System.Data.OleDb.OleDbTyp e.VarWChar , 10, "MatterNo"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Ma tterTypeID ", System.Data.OleDb.OleDbTyp e.Integer, 0, "MatterTypeID"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("No tes", System.Data.OleDb.OleDbTyp e.VarWChar , 0, "Notes"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Of ficeName", System.Data.OleDb.OleDbTyp e.Integer, 0, "OfficeName"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re callReques t", System.Data.OleDb.OleDbTyp e.Boolean, 2, "RecallRequest"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re callReques tDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "RecallRequestDate"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re moveDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "RemoveDate"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("St atusID", System.Data.OleDb.OleDbTyp e.Integer, 0, "StatusID"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("St oreDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "StoreDate"))
Me.OleDbInsertCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("tr uedestroyd ate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "truedestroydate"))
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.Com mandText = "UPDATE Main SET BoxNumber = ?, ClientName = ?, CloseDate = ?, DateIn = ?, [Destro" & _
"y this File] = ?, DestroyDate = ?, DestroyFlag = ?, FeeEarnerID = ?, LocationID " & _
"= ?, MatterNo = ?, MatterTypeID = ?, Notes = ?, OfficeName = ?, RecallRequest = " & _
"?, RecallRequestDate = ?, RemoveDate = ?, StatusID = ?, StoreDate = ?, truedestr" & _
"oydate = ? WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS NULL)" & _
" AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = ? OR " & _
"? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS NULL" & _
") AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL) AND" & _
" (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = ? OR " & _
"? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND FeeEarn" & _
"erID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND (Matt" & _
"erNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS NULL A" & _
"ND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS NULL" & _
") AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND RecallRequ" & _
"estDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) AND (S" & _
"tatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS NULL A" & _
"ND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroydate " & _
"IS NULL)"
Me.OleDbUpdateCommand1.Con nection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Bo xNumber", System.Data.OleDb.OleDbTyp e.Integer, 0, "BoxNumber"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Cl ientName", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "ClientName"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Cl oseDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "CloseDate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Da teIn", System.Data.OleDb.OleDbTyp e.DBDate, 0, "DateIn"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroy_this _File", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "Destroy this File"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroyDate" , System.Data.OleDb.OleDbTyp e.DBDate, 0, "DestroyDate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("De stroyFlag" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, "DestroyFlag"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Fe eEarnerID" , System.Data.OleDb.OleDbTyp e.Integer, 0, "FeeEarnerID"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Lo cationID", System.Data.OleDb.OleDbTyp e.Integer, 0, "LocationID"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Ma tterNo", System.Data.OleDb.OleDbTyp e.VarWChar , 10, "MatterNo"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Ma tterTypeID ", System.Data.OleDb.OleDbTyp e.Integer, 0, "MatterTypeID"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("No tes", System.Data.OleDb.OleDbTyp e.VarWChar , 0, "Notes"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Of ficeName", System.Data.OleDb.OleDbTyp e.Integer, 0, "OfficeName"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re callReques t", System.Data.OleDb.OleDbTyp e.Boolean, 2, "RecallRequest"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re callReques tDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "RecallRequestDate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Re moveDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "RemoveDate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("St atusID", System.Data.OleDb.OleDbTyp e.Integer, 0, "StatusID"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("St oreDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "StoreDate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("tr uedestroyd ate", System.Data.OleDb.OleDbTyp e.DBDate, 0, "truedestroydate"))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_ID" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Box Number", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Box Number1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Cli entName", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Cli entName1", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Clo seDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Clo seDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Dat eIn", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Dat eIn1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troy_this_ File", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troy_this_ File1", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyDate1" , System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyFlag", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyFlag1" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Fee EarnerID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Fee EarnerID1" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terNo", System.Data.OleDb.OleDbTyp e.VarWChar , 10, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terNo1", System.Data.OleDb.OleDbTyp e.VarWChar , 10, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terTypeID" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terTypeID1 ", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Off iceName", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Off iceName1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest ", System.Data.OleDb.OleDbTyp e.Boolean, 2, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest Date", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest Date1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rem oveDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rem oveDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sta tusID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sta tusID1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sto reDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sto reDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_tru edestroyda te", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_tru edestroyda te1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion .Original, Nothing))
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.Com mandText = "DELETE FROM Main WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS " & _
"NULL) AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = " & _
"? OR ? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS" & _
" NULL) AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL" & _
") AND (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = " & _
"? OR ? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND Fe" & _
"eEarnerID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND " & _
"(MatterNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS N" & _
"ULL AND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS" & _
" NULL) AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND Recal" & _
"lRequestDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) A" & _
"ND (StatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS N" & _
"ULL AND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroy" & _
"date IS NULL)"
Me.OleDbDeleteCommand1.Con nection = Me.OleDbConnection1
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_ID" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Box Number", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Box Number1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Cli entName", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Cli entName1", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Clo seDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Clo seDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Dat eIn", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Dat eIn1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troy_this_ File", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troy_this_ File1", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyDate1" , System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyFlag", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Des troyFlag1" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Fee EarnerID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Fee EarnerID1" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terNo", System.Data.OleDb.OleDbTyp e.VarWChar , 10, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terNo1", System.Data.OleDb.OleDbTyp e.VarWChar , 10, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terTypeID" , System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Mat terTypeID1 ", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Off iceName", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Off iceName1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest ", System.Data.OleDb.OleDbTyp e.Boolean, 2, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest Date", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rec allRequest Date1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rem oveDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Rem oveDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sta tusID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sta tusID1", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sto reDate", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Sto reDate1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_tru edestroyda te", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand1.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_tru edestroyda te1", System.Data.OleDb.OleDbTyp e.DBDate, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion .Original, Nothing))
'
'OleDbConnection1
'
Me.OleDbConnection1.Connec tionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _
"s\matthewm\Desktop\File Tracking.mdb"";Password=;J et OLEDB:Engine Type=4;Jet OLED" & _
"B:Global Bulk Transactions=1;Provider="" Microsoft. Jet.OLEDB. 4.0"";Jet OLEDB:System" & _
" database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLE" & _
"DB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't" & _
" Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Use" & _
"r ID=Admin;Jet OLEDB:Encrypt Database=False"
'
'DbMain
'
Me.DbMain.DeleteCommand = Me.OleDbDeleteCommand1
Me.DbMain.InsertCommand = Me.OleDbInsertCommand1
Me.DbMain.SelectCommand = Me.OleDbSelectCommand1
Me.DbMain.TableMappings.Ad dRange(New System.Data.Common.DataTab leMapping( ) {New System.Data.Common.DataTab leMapping( "Table", "Main", New System.Data.Common.DataCol umnMapping () {New System.Data.Common.DataCol umnMapping ("BoxNumbe r", "BoxNumber"), New System.Data.Common.DataCol umnMapping ("ClientNa me", "ClientName"), New System.Data.Common.DataCol umnMapping ("CloseDat e", "CloseDate"), New System.Data.Common.DataCol umnMapping ("DateIn", "DateIn"), New System.Data.Common.DataCol umnMapping ("Destroy this File", "Destroy this File"), New System.Data.Common.DataCol umnMapping ("DestroyD ate", "DestroyDate"), New System.Data.Common.DataCol umnMapping ("DestroyF lag", "DestroyFlag"), New System.Data.Common.DataCol umnMapping ("FeeEarne rID", "FeeEarnerID"), New System.Data.Common.DataCol umnMapping ("ID", "ID"), New System.Data.Common.DataCol umnMapping ("Location ID", "LocationID"), New System.Data.Common.DataCol umnMapping ("MatterNo ", "MatterNo"), New System.Data.Common.DataCol umnMapping ("MatterTy peID", "MatterTypeID"), New System.Data.Common.DataCol umnMapping ("Notes", "Notes"), New System.Data.Common.DataCol umnMapping ("OfficeNa me", "OfficeName"), New System.Data.Common.DataCol umnMapping ("RecallRe quest", "RecallRequest"), New System.Data.Common.DataCol umnMapping ("RecallRe questDate" , "RecallRequestDate"), New System.Data.Common.DataCol umnMapping ("RemoveDa te", "RemoveDate"), New System.Data.Common.DataCol umnMapping ("StatusID ", "StatusID"), New System.Data.Common.DataCol umnMapping ("StoreDat e", "StoreDate"), New System.Data.Common.DataCol umnMapping ("truedest roydate", "truedestroydate")})})
Me.DbMain.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbSelectCommand2
'
Me.OleDbSelectCommand2.Com mandText = "SELECT LocationID, LocationName FROM Locations"
Me.OleDbSelectCommand2.Con nection = Me.OleDbConnection1
'
'OleDbInsertCommand2
'
Me.OleDbInsertCommand2.Com mandText = "INSERT INTO Locations(LocationName) VALUES (?)"
Me.OleDbInsertCommand2.Con nection = Me.OleDbConnection1
Me.OleDbInsertCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Lo cationName ", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "LocationName"))
'
'OleDbUpdateCommand2
'
Me.OleDbUpdateCommand2.Com mandText = "UPDATE Locations SET LocationName = ? WHERE (LocationID = ?) AND (LocationName = " & _
"? OR ? IS NULL AND LocationName IS NULL)"
Me.OleDbUpdateCommand2.Con nection = Me.OleDbConnection1
Me.OleDbUpdateCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Lo cationName ", System.Data.OleDb.OleDbTyp e.VarWChar , 50, "LocationName"))
Me.OleDbUpdateCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationName" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbUpdateCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationName1 ", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion .Original, Nothing))
'
'OleDbDeleteCommand2
'
Me.OleDbDeleteCommand2.Com mandText = "DELETE FROM Locations WHERE (LocationID = ?) AND (LocationName = ? OR ? IS NULL A" & _
"ND LocationName IS NULL)"
Me.OleDbDeleteCommand2.Con nection = Me.OleDbConnection1
Me.OleDbDeleteCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationID", System.Data.OleDb.OleDbTyp e.Integer, 0, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationName" , System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion .Original, Nothing))
Me.OleDbDeleteCommand2.Par ameters.Ad d(New System.Data.OleDb.OleDbPar ameter("Or iginal_Loc ationName1 ", System.Data.OleDb.OleDbTyp e.VarWChar , 50, System.Data.ParameterDirec tion.Input , False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion .Original, Nothing))
'
'DbLocations
'
Me.DbLocations.DeleteComma nd = Me.OleDbDeleteCommand2
Me.DbLocations.InsertComma nd = Me.OleDbInsertCommand2
Me.DbLocations.SelectComma nd = Me.OleDbSelectCommand2
Me.DbLocations.TableMappin gs.AddRang e(New System.Data.Common.DataTab leMapping( ) {New System.Data.Common.DataTab leMapping( "Table", "Locations", New System.Data.Common.DataCol umnMapping () {New System.Data.Common.DataCol umnMapping ("Location ID", "LocationID"), New System.Data.Common.DataCol umnMapping ("Location Name", "LocationName")})})
Me.DbLocations.UpdateComma nd = Me.OleDbUpdateCommand2
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.Cultu reInfo("en -GB")
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(80, 88)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(176, 21)
Me.ComboBox1.TabIndex = 0
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(360, 262)
Me.Controls.Add(Me.ComboBo x1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.DataSet11, System.ComponentModel.ISup portInitia lize).EndI nit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Locations")
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationID"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Main"), "LocationID")
End Sub
End Class
I don't think I need to give you anymore information on the actual database but please tell me if I do.
Thanks
Matt
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.ICon
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbCon
Friend WithEvents DbMain As System.Data.OleDb.OleDbDat
Friend WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbUpdateCommand2 As System.Data.OleDb.OleDbCom
Friend WithEvents OleDbDeleteCommand2 As System.Data.OleDb.OleDbCom
Friend WithEvents DbLocations As System.Data.OleDb.OleDbDat
Friend WithEvents DataSet11 As WindowsApplication3.DataSe
Friend WithEvents ComboBox1 As System.Windows.Forms.Combo
<System.Diagnostics.Debugg
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCom
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCom
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCom
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCom
Me.OleDbConnection1 = New System.Data.OleDb.OleDbCon
Me.DbMain = New System.Data.OleDb.OleDbDat
Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCom
Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCom
Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCom
Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCom
Me.DbLocations = New System.Data.OleDb.OleDbDat
Me.DataSet11 = New WindowsApplication3.DataSe
Me.ComboBox1 = New System.Windows.Forms.Combo
CType(Me.DataSet11, System.ComponentModel.ISup
Me.SuspendLayout()
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.Com
", DestroyFlag, FeeEarnerID, ID, LocationID, MatterNo, MatterTypeID, Notes, Offic" & _
"eName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, truede" & _
"stroydate FROM Main"
Me.OleDbSelectCommand1.Con
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.Com
"estroyDate, DestroyFlag, FeeEarnerID, LocationID, MatterNo, MatterTypeID, Notes," & _
" OfficeName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, " & _
"truedestroydate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
")"
Me.OleDbInsertCommand1.Con
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
Me.OleDbInsertCommand1.Par
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.Com
"y this File] = ?, DestroyDate = ?, DestroyFlag = ?, FeeEarnerID = ?, LocationID " & _
"= ?, MatterNo = ?, MatterTypeID = ?, Notes = ?, OfficeName = ?, RecallRequest = " & _
"?, RecallRequestDate = ?, RemoveDate = ?, StatusID = ?, StoreDate = ?, truedestr" & _
"oydate = ? WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS NULL)" & _
" AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = ? OR " & _
"? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS NULL" & _
") AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL) AND" & _
" (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = ? OR " & _
"? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND FeeEarn" & _
"erID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND (Matt" & _
"erNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS NULL A" & _
"ND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS NULL" & _
") AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND RecallRequ" & _
"estDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) AND (S" & _
"tatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS NULL A" & _
"ND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroydate " & _
"IS NULL)"
Me.OleDbUpdateCommand1.Con
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
Me.OleDbUpdateCommand1.Par
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.Com
"NULL) AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = " & _
"? OR ? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS" & _
" NULL) AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL" & _
") AND (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = " & _
"? OR ? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND Fe" & _
"eEarnerID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND " & _
"(MatterNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS N" & _
"ULL AND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS" & _
" NULL) AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND Recal" & _
"lRequestDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) A" & _
"ND (StatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS N" & _
"ULL AND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroy" & _
"date IS NULL)"
Me.OleDbDeleteCommand1.Con
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
Me.OleDbDeleteCommand1.Par
'
'OleDbConnection1
'
Me.OleDbConnection1.Connec
"ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _
"s\matthewm\Desktop\File Tracking.mdb"";Password=;J
"B:Global Bulk Transactions=1;Provider=""
" database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLE" & _
"DB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't" & _
" Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Use" & _
"r ID=Admin;Jet OLEDB:Encrypt Database=False"
'
'DbMain
'
Me.DbMain.DeleteCommand = Me.OleDbDeleteCommand1
Me.DbMain.InsertCommand = Me.OleDbInsertCommand1
Me.DbMain.SelectCommand = Me.OleDbSelectCommand1
Me.DbMain.TableMappings.Ad
Me.DbMain.UpdateCommand = Me.OleDbUpdateCommand1
'
'OleDbSelectCommand2
'
Me.OleDbSelectCommand2.Com
Me.OleDbSelectCommand2.Con
'
'OleDbInsertCommand2
'
Me.OleDbInsertCommand2.Com
Me.OleDbInsertCommand2.Con
Me.OleDbInsertCommand2.Par
'
'OleDbUpdateCommand2
'
Me.OleDbUpdateCommand2.Com
"? OR ? IS NULL AND LocationName IS NULL)"
Me.OleDbUpdateCommand2.Con
Me.OleDbUpdateCommand2.Par
Me.OleDbUpdateCommand2.Par
Me.OleDbUpdateCommand2.Par
Me.OleDbUpdateCommand2.Par
'
'OleDbDeleteCommand2
'
Me.OleDbDeleteCommand2.Com
"ND LocationName IS NULL)"
Me.OleDbDeleteCommand2.Con
Me.OleDbDeleteCommand2.Par
Me.OleDbDeleteCommand2.Par
Me.OleDbDeleteCommand2.Par
'
'DbLocations
'
Me.DbLocations.DeleteComma
Me.DbLocations.InsertComma
Me.DbLocations.SelectComma
Me.DbLocations.TableMappin
Me.DbLocations.UpdateComma
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.Cultu
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(80, 88)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(176, 21)
Me.ComboBox1.TabIndex = 0
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(360, 262)
Me.Controls.Add(Me.ComboBo
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.DataSet11, System.ComponentModel.ISup
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables(1)
ComboBox1.DisplayMember = "LocationID"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
End Class
I don't think I need to give you anymore information on the actual database but please tell me if I do.
Thanks
Matt
Maybe it is just a typo, but in the code you have send you use locationID for both display and value member
ComboBox1.DisplayMember = "LocationID"
ComboBox1.ValueMember = "LocationID"
and it should be
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11 , "Locations")
ComboBox1.DataSource = DataSet11.Tables("Location s")
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add ("selected value", DataSet11.Tables("Main"), "LocationID")
End Sub
ComboBox1.DisplayMember = "LocationID"
ComboBox1.ValueMember = "LocationID"
and it should be
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DbMain.Fill(DataSet11, "Main")
DbLocations.Fill(DataSet11
ComboBox1.DataSource = DataSet11.Tables("Location
ComboBox1.DisplayMember = "LocationName"
ComboBox1.ValueMember = "LocationID"
ComboBox1.DataBindings.Add
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
THANK YOU!! I finally got there!
I changed
ComboBox1.DataSource = DataSet11.Tables(1)
To
ComboBox1.DataSource = DataSet11.Tables("Location s")
Muchly appreciate the help you gave me today.
I changed
ComboBox1.DataSource = DataSet11.Tables(1)
To
ComboBox1.DataSource = DataSet11.Tables("Location
Muchly appreciate the help you gave me today.
glad I could help :-)
and do something like this (in the load event off your form)
combobox1.datasource = yourlocationtable
combobox1.displaymember = locationname
combobox1.Valuemember = locationID
I assumed that you have 2 dataadapters which load both the Main table and the location tabme