Realizar un Insert y recuperar el valor del campo Identity (Auto incremental) al momento de realizar el Insert.
Pensando que la tabla tiene 5 campos (id identity,fecha,maq,dep,status)
Dim adap_lin As SqlClient.SqlDataAdapter Dim tabla_lin As DataTable sql = "INSERT INTO tbl_doc VALUES ('" & fecha_tmp & "'," & maq_tmp & "," & dep_tmp & "," & sta_tmp & ")" sql = sql & ";Select @@Identity" 'Incrustamos el segundo query para ver que consecutivo asignó. Try dadaptador = New SqlClient.SqlDataAdapter(sql, cadena) dadaptador.Fill(dtabla) 'dtabla debe de traer el ultimo folio If dtabla.Rows.Count > 0 Then Lfolio.Text = dtabla.Rows(0).Item(0).ToString 'AQUI VIENE EL VALOR IDENTITY end try Catch ex As Exception MsgBox("Error al guardar " & ex.ToString, MsgBoxStyle.Critical, "Error al guardar folio") End Try
