Wenn ein Assistent das macht ist es ziemlich einfach
Code für einen Update Befehl sieht etwa so aus:
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Contacts SET CompanyID =" & _
"?, ContactType = ?, Dear = ?, EmailName = ?, FaxN" & _
"umber = ?, FirstName = ?, LastName = ?, Notes = ?, PrintFlag = ?," & _
"Title = ?, Wor" & _
"kExtension = ?, WorkPhone = ? WHERE (ContactID = ?) AND (CompanyID = ?" & _
"OR ? IS N" & _
"ULL AND CompanyID IS NULL) AND (ContactType = ? OR ? IS NULL AND" & _
"ContactType IS " & _
"NULL) AND (Dear = ? OR ? IS NULL AND Dear IS NULL) AND (EmailName = ?" & _
"OR ? IS NU" & _
"LL AND EmailName IS NULL) AND (FaxNumber = ? OR ? IS NULL AND" & _
"FaxNumber IS NULL)" & _
" AND (FirstName = ? OR ? IS NULL AND FirstName IS NULL) AND (LastName" & _
"= ?) AND (" & _
"PrintFlag = ?) AND (Title = ? OR ? IS NULL AND Title IS NULL) AND (" & _
"WorkExtension" & _
" = ? OR ? IS NULL AND WorkExtension IS NULL) AND (WorkPhone = ? OR ?" & _
"IS NULL AND" & _
" WorkPhone IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("CompanyID", _
System.Data.OleDb.OleDbType.Integer, 0, "CompanyID"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("ContactType", _
System.Data.OleDb.OleDbType.Integer, 0, "ContactType"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Dear", _
System.Data.OleDb.OleDbType.VarWChar, 50, "Dear"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("EmailName", _
System.Data.OleDb.OleDbType.VarWChar, 50, "EmailName"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("FaxNumber", _
System.Data.OleDb.OleDbType.VarWChar, 30, "FaxNumber"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("FirstName", _
System.Data.OleDb.OleDbType.VarWChar, 50, "FirstName"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("LastName", _
System.Data.OleDb.OleDbType.VarWChar, 50, "LastName"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Notes", _
System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("PrintFlag", _
System.Data.OleDb.OleDbType.Boolean, 2, "PrintFlag"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Title", _
System.Data.OleDb.OleDbType.VarWChar, 50, "Title"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("WorkExtension", _
System.Data.OleDb.OleDbType.VarWChar, 20, "WorkExtension"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("WorkPhone", _
System.Data.OleDb.OleDbType.VarWChar, 30, "WorkPhone"))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Original_ContactID", _
System.Data.OleDb.OleDbType.Integer, 0, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, _
Byte), "ContactID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Original_CompanyID", _
System.Data.OleDb.OleDbType.Integer, 0, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, _
Byte), "CompanyID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Original_CompanyID1", _
System.Data.OleDb.OleDbType.Integer, 0, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, _
Byte), "CompanyID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Original_ContactType", _
System.Data.OleDb.OleDbType.Integer, 0, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, _
Byte), "ContactType", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New _
System.Data.OleDb.OleDbParameter("Original_ContactType1", _
System.Data.OleDb.OleDbType.Integer, 0, _
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, _
Byte), "ContactType", System.Data.DataRowVersion.Original, Nothing))
' usw usw usw... |