Using dataadapter

John · Jul 1, 2004

Hi

I have finally managed to create dataadapter and related commands. Code
below. My questions are; how do I now pass values to these commands and how
do I execute these commands?

Thanks

Regards

'
'daTasks
'
Me.daTasks.DeleteCommand = Me.delTask
Me.daTasks.InsertCommand = Me.insTask
Me.daTasks.SelectCommand = Me.salTask
Me.daTasks.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "tblTasks", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Activity", "Activity"), New
System.Data.Common.DataColumnMapping("ChangeStamp", "ChangeStamp"), New
System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New
System.Data.Common.DataColumnMapping("DateCompleted", "DateCompleted"), New
System.Data.Common.DataColumnMapping("DateEnded", "DateEnded"), New
System.Data.Common.DataColumnMapping("DateStarted", "DateStarted"), New
System.Data.Common.DataColumnMapping("Detail", "Detail"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Subject", "Subject"), New
System.Data.Common.DataColumnMapping("TimeCompleted", "TimeCompleted"), New
System.Data.Common.DataColumnMapping("TimeEnded", "TimeEnded"), New
System.Data.Common.DataColumnMapping("TimeRemind", "TimeRemind"), New
System.Data.Common.DataColumnMapping("TimeStarted", "TimeStarted"), New
System.Data.Common.DataColumnMapping("User", "User")})})
Me.daTasks.UpdateCommand = Me.updTask
'
'insTask
'
Me.insTask.CommandText = "INSERT INTO tblTasks(Activity, ChangeStamp,
ClientID, DateCompleted, DateEnded, D" & _
"ateStarted, Detail, Subject, TimeCompleted, TimeEnded, TimeRemind,
TimeStarted, " & _
"[User]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.insTask.Connection = dbConContacts
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
'
'updTask
'
Me.updTask.CommandText = "UPDATE tblTasks SET Activity = ?, ChangeStamp = ?,
ClientID = ?, DateCompleted = " & _
"?, DateEnded = ?, DateStarted = ?, Detail = ?, Subject = ?, TimeCompleted =
?, T" & _
"imeEnded = ?, TimeRemind = ?, TimeStarted = ?, [User] = ? WHERE (ID = ?)
AND (Ac" & _
"tivity = ? OR ? IS NULL AND Activity IS NULL) AND (ChangeStamp = ?) AND
(ClientI" & _
"D = ? OR ? IS NULL AND ClientID IS NULL) AND (DateCompleted = ? OR ? IS
NULL AND" & _
" DateCompleted IS NULL) AND (DateEnded = ? OR ? IS NULL AND DateEnded IS
NULL) A" & _
"ND (DateStarted = ? OR ? IS NULL AND DateStarted IS NULL) AND (Subject = ?
OR ? " & _
"IS NULL AND Subject IS NULL) AND (TimeCompleted = ? OR ? IS NULL AND
TimeComplet" & _
"ed IS NULL) AND (TimeEnded = ? OR ? IS NULL AND TimeEnded IS NULL) AND
(TimeRemi" & _
"nd = ? OR ? IS NULL AND TimeRemind IS NULL) AND (TimeStarted = ? OR ? IS
NULL AN" & _
"D TimeStarted IS NULL) AND ([User] = ? OR ? IS NULL AND [User] IS NULL)"
Me.updTask.Connection = dbConContacts
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'delTask
'
Me.delTask.CommandText = "DELETE FROM tblTasks WHERE (ID = ?) AND (Activity
= ? OR ? IS NULL AND Activity I" & _
"S NULL) AND (ChangeStamp = ?) AND (ClientID = ? OR ? IS NULL AND ClientID
IS NUL" & _
"L) AND (DateCompleted = ? OR ? IS NULL AND DateCompleted IS NULL) AND
(DateEnded" & _
" = ? OR ? IS NULL AND DateEnded IS NULL) AND (DateStarted = ? OR ? IS NULL
AND D" & _
"ateStarted IS NULL) AND (Subject = ? OR ? IS NULL AND Subject IS NULL) AND
(Time" & _
"Completed = ? OR ? IS NULL AND TimeCompleted IS NULL) AND (TimeEnded = ? OR
? IS" & _
" NULL AND TimeEnded IS NULL) AND (TimeRemind = ? OR ? IS NULL AND
TimeRemind IS " & _
"NULL) AND (TimeStarted = ? OR ? IS NULL AND TimeStarted IS NULL) AND
([User] = ?" & _
" OR ? IS NULL AND [User] IS NULL)"
Me.delTask.Connection = dbConContacts
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'selTask
'
Me.selTask.CommandText = "SELECT Activity, ChangeStamp, ClientID,
DateCompleted, DateEnded, DateStarted, De" & _
"tail, ID, Subject, TimeCompleted, TimeEnded, TimeRemind, TimeStarted,
[User] FRO" & _
"M tblTasks"
Me.selTask.Connection = dbConContacts

Mike Bell · Jul 1, 2004

May I ask, what type of database are you writing this for?

John said:
Hi

I have finally managed to create dataadapter and related commands. Code
below. My questions are; how do I now pass values to these commands and how
do I execute these commands?

Thanks

Regards

'
'daTasks
'
Me.daTasks.DeleteCommand = Me.delTask
Me.daTasks.InsertCommand = Me.insTask
Me.daTasks.SelectCommand = Me.salTask
Me.daTasks.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "tblTasks", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Activity", "Activity"), New
System.Data.Common.DataColumnMapping("ChangeStamp", "ChangeStamp"), New
System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New
System.Data.Common.DataColumnMapping("DateCompleted", "DateCompleted"), New
System.Data.Common.DataColumnMapping("DateEnded", "DateEnded"), New
System.Data.Common.DataColumnMapping("DateStarted", "DateStarted"), New
System.Data.Common.DataColumnMapping("Detail", "Detail"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Subject", "Subject"), New
System.Data.Common.DataColumnMapping("TimeCompleted", "TimeCompleted"), New
System.Data.Common.DataColumnMapping("TimeEnded", "TimeEnded"), New
System.Data.Common.DataColumnMapping("TimeRemind", "TimeRemind"), New
System.Data.Common.DataColumnMapping("TimeStarted", "TimeStarted"), New
System.Data.Common.DataColumnMapping("User", "User")})})
Me.daTasks.UpdateCommand = Me.updTask
'
'insTask
'
Me.insTask.CommandText = "INSERT INTO tblTasks(Activity, ChangeStamp,
ClientID, DateCompleted, DateEnded, D" & _
"ateStarted, Detail, Subject, TimeCompleted, TimeEnded, TimeRemind,
TimeStarted, " & _
"[User]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.insTask.Connection = dbConContacts
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
'
'updTask
'
Me.updTask.CommandText = "UPDATE tblTasks SET Activity = ?, ChangeStamp = ?,
ClientID = ?, DateCompleted = " & _
"?, DateEnded = ?, DateStarted = ?, Detail = ?, Subject = ?, TimeCompleted =
?, T" & _
"imeEnded = ?, TimeRemind = ?, TimeStarted = ?, [User] = ? WHERE (ID = ?)
AND (Ac" & _
"tivity = ? OR ? IS NULL AND Activity IS NULL) AND (ChangeStamp = ?) AND
(ClientI" & _
"D = ? OR ? IS NULL AND ClientID IS NULL) AND (DateCompleted = ? OR ? IS
NULL AND" & _
" DateCompleted IS NULL) AND (DateEnded = ? OR ? IS NULL AND DateEnded IS
NULL) A" & _
"ND (DateStarted = ? OR ? IS NULL AND DateStarted IS NULL) AND (Subject = ?
OR ? " & _
"IS NULL AND Subject IS NULL) AND (TimeCompleted = ? OR ? IS NULL AND
TimeComplet" & _
"ed IS NULL) AND (TimeEnded = ? OR ? IS NULL AND TimeEnded IS NULL) AND
(TimeRemi" & _
"nd = ? OR ? IS NULL AND TimeRemind IS NULL) AND (TimeStarted = ? OR ? IS
NULL AN" & _
"D TimeStarted IS NULL) AND ([User] = ? OR ? IS NULL AND [User] IS NULL)"
Me.updTask.Connection = dbConContacts
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'delTask
'
Me.delTask.CommandText = "DELETE FROM tblTasks WHERE (ID = ?) AND (Activity
= ? OR ? IS NULL AND Activity I" & _
"S NULL) AND (ChangeStamp = ?) AND (ClientID = ? OR ? IS NULL AND ClientID
IS NUL" & _
"L) AND (DateCompleted = ? OR ? IS NULL AND DateCompleted IS NULL) AND
(DateEnded" & _
" = ? OR ? IS NULL AND DateEnded IS NULL) AND (DateStarted = ? OR ? IS NULL
AND D" & _
"ateStarted IS NULL) AND (Subject = ? OR ? IS NULL AND Subject IS NULL) AND
(Time" & _
"Completed = ? OR ? IS NULL AND TimeCompleted IS NULL) AND (TimeEnded = ? OR
? IS" & _
" NULL AND TimeEnded IS NULL) AND (TimeRemind = ? OR ? IS NULL AND
TimeRemind IS " & _
"NULL) AND (TimeStarted = ? OR ? IS NULL AND TimeStarted IS NULL) AND
([User] = ?" & _
" OR ? IS NULL AND [User] IS NULL)"
Me.delTask.Connection = dbConContacts
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'selTask
'
Me.selTask.CommandText = "SELECT Activity, ChangeStamp, ClientID,
DateCompleted, DateEnded, DateStarted, De" & _
"tail, ID, Subject, TimeCompleted, TimeEnded, TimeRemind, TimeStarted,
[User] FRO" & _
"M tblTasks"
Me.selTask.Connection = dbConContacts

John · Jul 1, 2004

ms access

Mike Bell said:
May I ask, what type of database are you writing this for?

John said:

Hi

I have finally managed to create dataadapter and related commands. Code
below. My questions are; how do I now pass values to these commands and how
do I execute these commands?

Thanks

Regards

'
'daTasks
'
Me.daTasks.DeleteCommand = Me.delTask
Me.daTasks.InsertCommand = Me.insTask
Me.daTasks.SelectCommand = Me.salTask
Me.daTasks.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "tblTasks", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Activity", "Activity"), New
System.Data.Common.DataColumnMapping("ChangeStamp", "ChangeStamp"), New
System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New
System.Data.Common.DataColumnMapping("DateCompleted", "DateCompleted"), New
System.Data.Common.DataColumnMapping("DateEnded", "DateEnded"), New
System.Data.Common.DataColumnMapping("DateStarted", "DateStarted"), New
System.Data.Common.DataColumnMapping("Detail", "Detail"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Subject", "Subject"), New
System.Data.Common.DataColumnMapping("TimeCompleted", "TimeCompleted"), New
System.Data.Common.DataColumnMapping("TimeEnded", "TimeEnded"), New
System.Data.Common.DataColumnMapping("TimeRemind", "TimeRemind"), New
System.Data.Common.DataColumnMapping("TimeStarted", "TimeStarted"), New
System.Data.Common.DataColumnMapping("User", "User")})})
Me.daTasks.UpdateCommand = Me.updTask
'
'insTask
'
Me.insTask.CommandText = "INSERT INTO tblTasks(Activity, ChangeStamp,
ClientID, DateCompleted, DateEnded, D" & _
"ateStarted, Detail, Subject, TimeCompleted, TimeEnded, TimeRemind,
TimeStarted, " & _
"[User]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.insTask.Connection = dbConContacts
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
'
'updTask
'
Me.updTask.CommandText = "UPDATE tblTasks SET Activity = ?, ChangeStamp

Click to expand...

=

?,
ClientID = ?, DateCompleted = " & _
"?, DateEnded = ?, DateStarted = ?, Detail = ?, Subject = ?,

Click to expand...

TimeCompleted

=
?, T" & _
"imeEnded = ?, TimeRemind = ?, TimeStarted = ?, [User] = ? WHERE (ID = ?)
AND (Ac" & _
"tivity = ? OR ? IS NULL AND Activity IS NULL) AND (ChangeStamp = ?) AND
(ClientI" & _
"D = ? OR ? IS NULL AND ClientID IS NULL) AND (DateCompleted = ? OR ? IS
NULL AND" & _
" DateCompleted IS NULL) AND (DateEnded = ? OR ? IS NULL AND DateEnded IS
NULL) A" & _
"ND (DateStarted = ? OR ? IS NULL AND DateStarted IS NULL) AND (Subject

Click to expand...

=

?
OR ? " & _
"IS NULL AND Subject IS NULL) AND (TimeCompleted = ? OR ? IS NULL AND
TimeComplet" & _
"ed IS NULL) AND (TimeEnded = ? OR ? IS NULL AND TimeEnded IS NULL) AND
(TimeRemi" & _
"nd = ? OR ? IS NULL AND TimeRemind IS NULL) AND (TimeStarted = ? OR ? IS
NULL AN" & _
"D TimeStarted IS NULL) AND ([User] = ? OR ? IS NULL AND [User] IS NULL)"
Me.updTask.Connection = dbConContacts
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'delTask
'
Me.delTask.CommandText = "DELETE FROM tblTasks WHERE (ID = ?) AND (Activity
= ? OR ? IS NULL AND Activity I" & _
"S NULL) AND (ChangeStamp = ?) AND (ClientID = ? OR ? IS NULL AND ClientID
IS NUL" & _
"L) AND (DateCompleted = ? OR ? IS NULL AND DateCompleted IS NULL) AND
(DateEnded" & _
" = ? OR ? IS NULL AND DateEnded IS NULL) AND (DateStarted = ? OR ? IS NULL
AND D" & _
"ateStarted IS NULL) AND (Subject = ? OR ? IS NULL AND Subject IS NULL) AND
(Time" & _
"Completed = ? OR ? IS NULL AND TimeCompleted IS NULL) AND (TimeEnded =

Click to expand...

?

OR
? IS" & _
" NULL AND TimeEnded IS NULL) AND (TimeRemind = ? OR ? IS NULL AND
TimeRemind IS " & _
"NULL) AND (TimeStarted = ? OR ? IS NULL AND TimeStarted IS NULL) AND
([User] = ?" & _
" OR ? IS NULL AND [User] IS NULL)"
Me.delTask.Connection = dbConContacts
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'selTask
'
Me.selTask.CommandText = "SELECT Activity, ChangeStamp, ClientID,
DateCompleted, DateEnded, DateStarted, De" & _
"tail, ID, Subject, TimeCompleted, TimeEnded, TimeRemind, TimeStarted,
[User] FRO" & _
"M tblTasks"
Me.selTask.Connection = dbConContacts

Click to expand...

John · Jul 1, 2004

Come to think of it, can't I just use conn.execute("INSERT....") and
conn.execute("UPDATE....")??

Regards

Mike Bell said:
May I ask, what type of database are you writing this for?

John said:

Hi

I have finally managed to create dataadapter and related commands. Code
below. My questions are; how do I now pass values to these commands and how
do I execute these commands?

Thanks

Regards

'
'daTasks
'
Me.daTasks.DeleteCommand = Me.delTask
Me.daTasks.InsertCommand = Me.insTask
Me.daTasks.SelectCommand = Me.salTask
Me.daTasks.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "tblTasks", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Activity", "Activity"), New
System.Data.Common.DataColumnMapping("ChangeStamp", "ChangeStamp"), New
System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New
System.Data.Common.DataColumnMapping("DateCompleted", "DateCompleted"), New
System.Data.Common.DataColumnMapping("DateEnded", "DateEnded"), New
System.Data.Common.DataColumnMapping("DateStarted", "DateStarted"), New
System.Data.Common.DataColumnMapping("Detail", "Detail"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Subject", "Subject"), New
System.Data.Common.DataColumnMapping("TimeCompleted", "TimeCompleted"), New
System.Data.Common.DataColumnMapping("TimeEnded", "TimeEnded"), New
System.Data.Common.DataColumnMapping("TimeRemind", "TimeRemind"), New
System.Data.Common.DataColumnMapping("TimeStarted", "TimeStarted"), New
System.Data.Common.DataColumnMapping("User", "User")})})
Me.daTasks.UpdateCommand = Me.updTask
'
'insTask
'
Me.insTask.CommandText = "INSERT INTO tblTasks(Activity, ChangeStamp,
ClientID, DateCompleted, DateEnded, D" & _
"ateStarted, Detail, Subject, TimeCompleted, TimeEnded, TimeRemind,
TimeStarted, " & _
"[User]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.insTask.Connection = dbConContacts
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
'
'updTask
'
Me.updTask.CommandText = "UPDATE tblTasks SET Activity = ?, ChangeStamp

Click to expand...

=

?,
ClientID = ?, DateCompleted = " & _
"?, DateEnded = ?, DateStarted = ?, Detail = ?, Subject = ?,

Click to expand...

TimeCompleted

=
?, T" & _
"imeEnded = ?, TimeRemind = ?, TimeStarted = ?, [User] = ? WHERE (ID = ?)
AND (Ac" & _
"tivity = ? OR ? IS NULL AND Activity IS NULL) AND (ChangeStamp = ?) AND
(ClientI" & _
"D = ? OR ? IS NULL AND ClientID IS NULL) AND (DateCompleted = ? OR ? IS
NULL AND" & _
" DateCompleted IS NULL) AND (DateEnded = ? OR ? IS NULL AND DateEnded IS
NULL) A" & _
"ND (DateStarted = ? OR ? IS NULL AND DateStarted IS NULL) AND (Subject

Click to expand...

=

?
OR ? " & _
"IS NULL AND Subject IS NULL) AND (TimeCompleted = ? OR ? IS NULL AND
TimeComplet" & _
"ed IS NULL) AND (TimeEnded = ? OR ? IS NULL AND TimeEnded IS NULL) AND
(TimeRemi" & _
"nd = ? OR ? IS NULL AND TimeRemind IS NULL) AND (TimeStarted = ? OR ? IS
NULL AN" & _
"D TimeStarted IS NULL) AND ([User] = ? OR ? IS NULL AND [User] IS NULL)"
Me.updTask.Connection = dbConContacts
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'delTask
'
Me.delTask.CommandText = "DELETE FROM tblTasks WHERE (ID = ?) AND (Activity
= ? OR ? IS NULL AND Activity I" & _
"S NULL) AND (ChangeStamp = ?) AND (ClientID = ? OR ? IS NULL AND ClientID
IS NUL" & _
"L) AND (DateCompleted = ? OR ? IS NULL AND DateCompleted IS NULL) AND
(DateEnded" & _
" = ? OR ? IS NULL AND DateEnded IS NULL) AND (DateStarted = ? OR ? IS NULL
AND D" & _
"ateStarted IS NULL) AND (Subject = ? OR ? IS NULL AND Subject IS NULL) AND
(Time" & _
"Completed = ? OR ? IS NULL AND TimeCompleted IS NULL) AND (TimeEnded =

Click to expand...

?

OR
? IS" & _
" NULL AND TimeEnded IS NULL) AND (TimeRemind = ? OR ? IS NULL AND
TimeRemind IS " & _
"NULL) AND (TimeStarted = ? OR ? IS NULL AND TimeStarted IS NULL) AND
([User] = ?" & _
" OR ? IS NULL AND [User] IS NULL)"
Me.delTask.Connection = dbConContacts
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'selTask
'
Me.selTask.CommandText = "SELECT Activity, ChangeStamp, ClientID,
DateCompleted, DateEnded, DateStarted, De" & _
"tail, ID, Subject, TimeCompleted, TimeEnded, TimeRemind, TimeStarted,
[User] FRO" & _
"M tblTasks"
Me.selTask.Connection = dbConContacts

Click to expand...

William Ryan eMVP · Jul 1, 2004

You can write your own Insert statements one by one and use ExecuteNonQuery.
However that's a lot of work for nothing. From the configuration below, you
should just be able to call Update. The adapter looks to the ColumnMappings
for the values. What happens when you call Update is that the Adapter looks
at the datatable/dataset row by row, checking its rowstate, if it's changed
(Added, Deleted, Modified) then it uses the respective command (Update,
Insert, Delete). Anyway, it will fill in the parameters of the command
collection by using the values in the column which it knows via the
columnMappings. Remember though that if the DataSet .HasChanges == false,
calling update all year won't do anything.
http://www.knowdotnet.com/articles/efficient_pt4.html

Hopefully this explains it but if not, let me know.

Cheers,

Bill

--

W.G. Ryan, eMVP

Have an opinion on the effectiveness of Microsoft Embedded newsgroups?
Let Microsoft know!
https://www.windowsembeddedeval.com/community/newsgroups

John said:
Come to think of it, can't I just use conn.execute("INSERT....") and
conn.execute("UPDATE....")??

Regards

Mike Bell said:

May I ask, what type of database are you writing this for?

John said:

Hi

I have finally managed to create dataadapter and related commands. Code
below. My questions are; how do I now pass values to these commands

Click to expand...

and
how

do I execute these commands?

Thanks

Regards

'
'daTasks
'
Me.daTasks.DeleteCommand = Me.delTask
Me.daTasks.InsertCommand = Me.insTask
Me.daTasks.SelectCommand = Me.salTask
Me.daTasks.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "tblTasks", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Activity", "Activity"), New
System.Data.Common.DataColumnMapping("ChangeStamp", "ChangeStamp"), New
System.Data.Common.DataColumnMapping("ClientID", "ClientID"), New
System.Data.Common.DataColumnMapping("DateCompleted",

Click to expand...

"DateCompleted"),
New

System.Data.Common.DataColumnMapping("DateEnded", "DateEnded"), New
System.Data.Common.DataColumnMapping("DateStarted", "DateStarted"), New
System.Data.Common.DataColumnMapping("Detail", "Detail"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Subject", "Subject"), New
System.Data.Common.DataColumnMapping("TimeCompleted",

Click to expand...

"TimeCompleted"),
New

System.Data.Common.DataColumnMapping("TimeEnded", "TimeEnded"), New
System.Data.Common.DataColumnMapping("TimeRemind", "TimeRemind"), New
System.Data.Common.DataColumnMapping("TimeStarted", "TimeStarted"), New
System.Data.Common.DataColumnMapping("User", "User")})})
Me.daTasks.UpdateCommand = Me.updTask
'
'insTask
'
Me.insTask.CommandText = "INSERT INTO tblTasks(Activity, ChangeStamp,
ClientID, DateCompleted, DateEnded, D" & _
"ateStarted, Detail, Subject, TimeCompleted, TimeEnded, TimeRemind,
TimeStarted, " & _
"[User]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
Me.insTask.Connection = dbConContacts
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.insTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.insTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
'
'updTask
'
Me.updTask.CommandText = "UPDATE tblTasks SET Activity = ?,

Click to expand...

Click to expand...

ChangeStamp

=

?,
ClientID = ?, DateCompleted = " & _
"?, DateEnded = ?, DateStarted = ?, Detail = ?, Subject = ?,

Click to expand...

TimeCompleted

=
?, T" & _
"imeEnded = ?, TimeRemind = ?, TimeStarted = ?, [User] = ? WHERE (ID = ?)
AND (Ac" & _
"tivity = ? OR ? IS NULL AND Activity IS NULL) AND (ChangeStamp = ?) AND
(ClientI" & _
"D = ? OR ? IS NULL AND ClientID IS NULL) AND (DateCompleted = ? OR ? IS
NULL AND" & _
" DateCompleted IS NULL) AND (DateEnded = ? OR ? IS NULL AND DateEnded IS
NULL) A" & _
"ND (DateStarted = ? OR ? IS NULL AND DateStarted IS NULL) AND

Click to expand...

Click to expand...

(Subject

=

?
OR ? " & _
"IS NULL AND Subject IS NULL) AND (TimeCompleted = ? OR ? IS NULL AND
TimeComplet" & _
"ed IS NULL) AND (TimeEnded = ? OR ? IS NULL AND TimeEnded IS NULL) AND
(TimeRemi" & _
"nd = ? OR ? IS NULL AND TimeRemind IS NULL) AND (TimeStarted = ? OR ? IS
NULL AN" & _
"D TimeStarted IS NULL) AND ([User] = ? OR ? IS NULL AND [User] IS NULL)"
Me.updTask.Connection = dbConContacts
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Activity",
System.Data.OleDb.OleDbType.VarWChar, 25, "Activity"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, "ChangeStamp"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientID",
System.Data.OleDb.OleDbType.Integer, 0, "ClientID"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "DateEnded"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "DateStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Detail",
System.Data.OleDb.OleDbType.VarWChar, 0, "Detail"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("Subject",
System.Data.OleDb.OleDbType.VarWChar, 150, "Subject"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeCompleted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeEnded"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeRemind"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, "TimeStarted"))
Me.updTask.Parameters.Add(New System.Data.OleDb.OleDbParameter("User",
System.Data.OleDb.OleDbType.VarWChar, 50, "User"))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.updTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'delTask
'
Me.delTask.CommandText = "DELETE FROM tblTasks WHERE (ID = ?) AND (Activity
= ? OR ? IS NULL AND Activity I" & _
"S NULL) AND (ChangeStamp = ?) AND (ClientID = ? OR ? IS NULL AND ClientID
IS NUL" & _
"L) AND (DateCompleted = ? OR ? IS NULL AND DateCompleted IS NULL) AND
(DateEnded" & _
" = ? OR ? IS NULL AND DateEnded IS NULL) AND (DateStarted = ? OR ? IS NULL
AND D" & _
"ateStarted IS NULL) AND (Subject = ? OR ? IS NULL AND Subject IS

Click to expand...

NULL)
AND

(Time" & _
"Completed = ? OR ? IS NULL AND TimeCompleted IS NULL) AND (TimeEnded

Click to expand...

Click to expand...

=

?

OR
? IS" & _
" NULL AND TimeEnded IS NULL) AND (TimeRemind = ? OR ? IS NULL AND
TimeRemind IS " & _
"NULL) AND (TimeStarted = ? OR ? IS NULL AND TimeStarted IS NULL) AND
([User] = ?" & _
" OR ? IS NULL AND [User] IS NULL)"
Me.delTask.Connection = dbConContacts
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Activity1",
System.Data.OleDb.OleDbType.VarWChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Activity", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ChangeStamp",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "ChangeStamp",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ClientID1",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ClientID", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DateStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DateStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Subject1",
System.Data.OleDb.OleDbType.VarWChar, 150,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Subject", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeCompleted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeCompleted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeEnded1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeEnded",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeRemind1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeRemind",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TimeStarted1",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "TimeStarted",
System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
Me.delTask.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_User1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"User", System.Data.DataRowVersion.Original, Nothing))
'
'selTask
'
Me.selTask.CommandText = "SELECT Activity, ChangeStamp, ClientID,
DateCompleted, DateEnded, DateStarted, De" & _
"tail, ID, Subject, TimeCompleted, TimeEnded, TimeRemind, TimeStarted,
[User] FRO" & _
"M tblTasks"
Me.selTask.Connection = dbConContacts

Click to expand...

Click to expand...

What are OleDbParameter names with 'Original_' prefix?	5	Jan 7, 2007
Concurrency Troubles using Access as Database '?' Appear in SQL	1	Dec 6, 2004
DBConcurrencyException when using OleDBTypes DBDate and Double	1	Feb 22, 2005
dataset error	4	Sep 4, 2003
Update parameter error	1	Sep 11, 2003
excess parameters?	1	Aug 18, 2003
Deleted rows wont delete	3	Aug 9, 2003
Updating Tables Not Working	1	Aug 11, 2003

Using dataadapter

John

Mike Bell

John

John

William Ryan eMVP

Ask a Question

Similar Threads