Karam | Blog

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