Try
builder.GetUpdateCommand ()
myDataAdapter.UpdateCommand = builder.GetUpdateCommand ()
ds. Lijsten (0). Kolommen (1). Uniek = Waar
Schemerige myUC als UniqueConstraint
Schemerige mytable als DataTable = ds. Lijsten (0)
Probeer
myUC = Nieuwe UniqueConstraint („UC“, ds. Lijsten (0). Kolommen (1))
'ds. Lijsten (0). Constraints.Add (myUC)
Vangst ukex als ConstraintException
MessageBox.Show (de „inhoud van de Kolom is geen Unieke“, „Dubbele Gegevens“, MessageBoxButtons.OK, MessageBoxIcon.Stop)
'Vangst uniqEx als Uitzondering
'MessageBox.Show (uniqEx.Message)
Sub van de uitgang
Het eind probeert
myDataAdapter.Update (ds, „myDataset“)
MessageBox.Show („Uw gegeven wordt opgeslagen“, „sparen Succesvol! “)
Vangst ex als Uitzondering
MessageBox.Show („Naam: saveData“ + vbCrLf + „Foutenmelding: “ + ex.ToString)
Het eind probeert
|