Dim queryMainID als Schnur = „, WENN NICHT EXISTIERT (* VON table2 VORWÄHLEN, WO mainID = „“ u. MainID u. „") EINSATZ IN (field3, mainid) WERTE table2 („TEST“, „5“) AUSERWÄHLTES SCOPE_IDENTITY () als mainID“
Dscmd als neues SqlDataAdapter (UpdateSTS, DB) verdunkeln
Ds als neuer Datensatz verdunkeln ()
dscmd. Füllen (ds, „MainIDQuery“)
Papierlösekorotron als DataTable = ds. Tables.Item („MainIDQuery“) verdunkeln
rowJob als DataRow verdunkeln
Für jedes rowJob in Papierlösekorotron. Reihen
Schwach field3 = rowJob.Item („field3“) .ToString
Next
|